【原創(chuàng)圖文,剽竊追責(zé),！】長按文末二維碼或輸入微信號 baowangfu 添加 憤怒的山丘 , 學(xué)習(xí)Excel VBA知識,，實現(xiàn)自動化高效工作技能！玩轉(zhuǎn)表格,！變身職場精英,！ 

工作簿包含四種類型的工作表：

• 工作表     xlWBATworksheet

• 圖表       xlWBATchart

• 宏工作表   xlWBATExcel4Macrosheet

• 對話框     xlWBATExcel4intMacrosheet

所以創(chuàng)建工作簿有四種類型

Sub創(chuàng)建工作簿()

Workbooks.AddxlWBATWorksheet  

Workbooks.AddxlWBATChart

Workbooks.AddxlWBATExcel4MacroSheet

Workbooks.AddxlWBATExcel4intMacrosheet

Workbooks.AddCount:=2               '創(chuàng)建2個工作簿（默認(rèn)含工作表）

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為參數(shù)名稱；與參數(shù)值之間連接用:=Filename:=,；參數(shù)名稱可以省略,；

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 關(guān)閉工作簿()

Dim wb As Workbook

Set wb= ThisWorkbook

wb.Closesavechanges:=False '關(guān)閉前不保存

Set wb= Nothing

End Sub