Workbook工作簿的常用功能:
1. 新建工作簿
Dim wb As Workbook
Application.SheetsInNewWorkbook = 1 '设置初始工作簿中的工作表数
Set wb = Application.WorkBooks.Add
wb.Worksheets(1).name = "表1" '给第一个工作表设置名称
Application.SheetsInNewWorkbook = 3
2.用Excel对话框打开Excel文件
Dim fileInfo As String
fileInfo = Application.GetOpenFilename("Excel 工作簿(*.xlsx), *.xlsx")
MsgBox fileInfo
如果用户选择了一个Excel文件,则fileInfo为该文件的全路径。若未选择,则fileInfo为False
3. 备份(另存为)Excel文件
Dim wb As Workbook
Set wb = Application.WorkBooks(1) '原文件名为vba.xlsx
wb.Activate
wb.SaveCopyAs wb.path & "\" & "Bak_" & wb.name '备份文件名为Bak_vba.xlsx
4. 用Excel对话框保存Excel文