工作薄与工作表基础操作

一.工作薄

Dim wkb As Workbook    申明

Set wkb = Workbooks.Add    新建

Set wkb = Workbooks.Open('c:\123.xls')打开指定工作薄

ThisWorkbook.Name    当前工作薄名

ThisWorkbook.FullName    当前工作薄全名

ThisWorkbook.Path    当前工作薄路劲

ActiveWorkbook.Name    活动工作薄名

ActiveWorkbook.FullName    当前工作薄全名

FileCopy 'c:\123.xls', 'c:\321.xls'    工作薄复制

Kill 'c:\321.xls'    工作薄删除

wkb .Activate    工作薄激活

wkb .Select       工作薄选择

Dir('c:\123.xls')    检测工作表存在

Workbooks('123').Close True    关闭指定工作薄

二.工作表

工作表表示：

Sheets('我的图表').Name    直接使用工作表名称

Worksheets(1).Name    索引号表示

Sheets(1).Name    工作表代码索引号

Sheet1.Name    直接取工作表代码

ActiveSheet.Name    活动工作表

新建

Sheets..Add(Before, After, Count, Type)

    XlSheetType 常量之一：

    xlChart                        图表

    xlExcel4MacroSheet     宏表

    xlExcel4IntlMacroSheet 对话框

     默认值为 xlWorksheet

    Sheets.Add    新建

    Sheets.Add Sheets('abc')    在Sheets('abc')前新建

    Sheets.Add , Sheets('abc')    在Sheets('abc')后新建

    Sheets.Add after:=Sheets('abc')    在Sheets('abc')后新建

    Sheets.Add.Name = '1月'    新建名为“1月”的工作表

    Sheets.Add Count:=2    新建两个

    Sheets.Add , , 2    新建两个

    Sheets.Add , , , xlChart    新建图表

删除

    Sheets('Sheet8').Select    选择Sheets('Sheet8')

    ActiveWindow.SelectedSheets.Delete    删除选择的工作表

    Sheet('1月').Delete    删除Sheet('1月')

    Application.DisplayAlerts = False/True    警告框打开/屏蔽

移动

    表达式.Move(Before, After)

    Sheet1.Move , Sheet3    Sheet1移动到Sheet3后

    Sheet1.Move  Sheet3    Sheet1移动到Sheet3前

复制

    表达式.copy(Before, After)

    Sheet1.Copy，Sheet3    Sheet1复制到Sheet3后

    Sheet1.Copy Sheet3    Sheet1复制到Sheet3前

选择、激活

    Worksheet.Select    方法

    Sheet3.Select     不支持隐藏选取

    Worksheet.Activate     方法

    Sheet3.Activate     支持隐藏选取

    Worksheets.Select    选择所有工作表(不包括图表)

    Sheets.Select    选择所有工作表(包括图表)

    Worksheets(Array(1, 3, 5)).Select    自定义选择

保存

    Save方法        保存

    ThisWorkbook.Save   保存工作薄

    SaveAs方法    另存为

    On Error Resume Next

    ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & '\SaveAsWb.xlsm'

    保存路劲ThisWorkbook.Path  文件名SaveAsWb.xlsm

    SaveCopyAs方法    保存副本

    ThisWorkbook.SaveCopyAs ThisWorkbook.Path & '\SaveCopyWb.xlsm'

    复制保存路劲ThisWorkbook.Path  文件名SaveCopyWb.xlsm

    工作表的移动复制

    Sub ShtCopy()

        On Error GoTo line

        Sheet2.Copy    一张工作表

        'Worksheets(Array('Sheet2', 'Sheet3')).Copy    一张以上

        ActiveWorkbook.Close SaveChanges:=True, _

            Filename:=ThisWorkbook.Path & '\ShtCopy.xlsx'

        Exit Sub

    line:

        ActiveWorkbook.Close False

    End Sub