【原】VBA:操作工作簿

【原创图文,剽窃追责！】长按文末二维码或输入微信号 baowangfu 添加 愤怒的山丘 , 学习Excel VBA知识，实现自动化高效工作技能！玩转表格！变身职场精英！ 

工作簿包含四种类型的工作表：

• 工作表     xlWBATworksheet

• 图表       xlWBATchart

• 宏工作表   xlWBATExcel4Macrosheet

• 对话框     xlWBATExcel4intMacrosheet

所以创建工作簿有四种类型

Sub创建工作簿()

Workbooks.AddxlWBATWorksheet  

Workbooks.AddxlWBATChart

Workbooks.AddxlWBATExcel4MacroSheet

Workbooks.AddxlWBATExcel4intMacrosheet

Workbooks.AddCount:=2               '创建2个工作簿（默认含工作表）

End Sub

---

Sub 新建工作簿并以新名称保存()

Dim wb As Workbook

Set wb= Workbooks.Add

wb.SaveAsfilename:="D:\hhh.xlsm"  '以新名"hhh"字保存

End Sub

---

Sub 打开工作簿()

Workbooks.OpenFilename:="D:\绩效考核表.xls"  '打开D盘中的绩效考核Excel表

'注意：其中Filename为参数名称；与参数值之间连接用:=Filename:=；参数名称可以省略；

Workbooks.Open"F:\绩效考核表.xls"

End Sub

---

Sub 激活工作簿()

Workbooks("销售表").Activate

End Sub

---

Sub保存工作簿()

Workbooks("销售表").Save

Workbooks("销售表").SaveAs Filename:="D:\销售表第二版"

Workbooks("销售表").SaveCopyAsFilename:="D:\销售表副本"

ThisWorkbook.SaveAsFilename:=ThisWorkbook.Path & "\123.xls"

End Sub

---

Sub 关闭工作簿()

Dim wb As Workbook

Set wb= ThisWorkbook

wb.Closesavechanges:=False '关闭前不保存

Set wb= Nothing

End Sub

---