Excel VBA入门(4) - Workbook常用功能及方法介绍

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文