VBA基础

Application
│
├─ Workbooks (所有打开的工作簿集合)'Workbook父对象
│   │
│   └─ Workbook (单个工作簿)'Worksheets父对象
│       │
│       ├─ Worksheets (所有工作表集合) 'Worksheet父对象
│       │   │
│       │   └─ Worksheet (单个工作表) 'Range的父对象
│       │       │
│       │       ├─ Range (单元格及区域)'Worksheet子对象
│       │       │
│       │       ├─ ChartObjects (嵌入的图表集合)
│       │       │   └─ ChartObject → Chart (嵌入的图表)
│       │       │
│       │       └─ Shapes (形状/图形集合，如文本框、图片等)
│       │           └─ Shape (单个形状)
│       │
│       └─ Charts (独立的图表工作表集合)
│           └─ Chart (独立的图表工作表)
│
└─ Windows (所有窗口集合)

Sub 工作簿的引用()

    Workbooks("工作簿1.xlsx").Sheets(1).Range("A1").Value = "工作簿引用-名称" '名称引用

    Workbooks(3).Sheets(1).Range("A1").Value = "工作簿引用-索引"             '索引引用

    Dim wb As Workbook
    Set wb = ActiveWorkbook
    wb.Sheets(1).Range("A1").Value = "工作簿引用-活动工作簿"                 '引用活动工作薄

    ThisWorkbook.Sheets(1).Range("A1").Value = "工作簿引用-当前代码运行所在的工作薄"   '引用含代码的工作薄

    Workbooks.Open ("C:\Users\MagicBook\Desktop\kk\工作薄对象\工作簿4.xlsx")        '完整路径引用

End Sub

Sub 工作簿对象的方法和属性()

    Dim new_wb As Workbook      '一个工作簿对象的变量
    Set new_wb = Workbooks.Add  '新建工作薄
    MsgBox new_wb.Saved         '查看是否已经保存
    new_wb.SaveAs "C:\Users\MagicBook\Desktop\kk\工作薄对象\第一个用代码新建的工作簿.xlsx" '保存新建的工作簿到指定路径
    new_wb.Sheets(1).Range("A1").Value = new_wb.Name '在工作簿中写入名字
    MsgBox new_wb.Saved                    '查看是否已经保存
    new_wb.Save                            '保存工作薄
    MsgBox new_wb.Saved                    '重新查看保存状态
    new_wb.Close                           '在查看保存状态、关闭工作簿

    Set new_wb = Workbooks.Open("C:\Users\MagicBook\Desktop\kk\工作薄对象\第一个用代码新建的工作簿.xlsx") '保存新建的工作簿到指定路径
    new_wb.Sheets.Add After:=new_wb.Sheets(new_wb.Sheets.Count)    '在新建工作薄增加一个工作表，位置在最后
    ActiveSheet.Name = "表1"                                       '新建的工作表，就是当前的工作表，次重命名
    new_wb.Sheets.Add After:=new_wb.Sheets(new_wb.Sheets.Count)
    ActiveSheet.Name = "表2"

    new_wb.Protect Password:="123"                                    '对工作簿添加保护，密码是“123”
    new_wb.Sheets.Add After:=new_wb.Sheets(new_wb.Sheets.Count)     '尝试新增一个工作表
    ActiveSheet.Name = "表3"
    new_wb.Unprotect Password:="123"                                  '取消工作簿保护
    new_wb.Sheets.Add After:=new_wb.Sheets(new_wb.Sheets.Count)     '尝试增加一个工作表
    ActiveSheet.Name = "表3"

    Dim sht As Worksheet
    For Each sht In new_wb.Worksheets                               '遍历工作表，在立即窗口输入名名称
        Debug.Print sht.Name
    Next sht

    MsgBox "工作簿的完整路径是： " & new_wb.FullName                '工作簿的完整路径
    MsgBox "工作薄保存在： " & new_wb.Path & "文件中"               '工作簿的不完整路径（不含工作簿名称，只是存放位置）

    ThisWorkbook.Activate
    MsgBox "当前活动工作的工作簿名称是： " & ActiveWorkbook.Name

End Sub

Sub VBA代码合并工作表()
    Dim sht As Worksheet
    Dim end_row As Long, step_row As Long

    '合并工作表的核心代码，即：遍历、复制、粘贴、添加来源表名
    For Each sht In Worksheets
        end_row = Sheets("汇总").UsedRange.Rows.Count + 1
        sht.UsedRange.Copy Destination:=Sheets("汇总").Range("B" & end_row)
        step_row = sht.UsedRange.Rows.Count
        Sheets("汇总").Range("A" & end_row & ":A" & end_row + step_row).Value = sht.Name
    Next

End Sub

Sub VBA代码合并工作簿和工作表()
    Dim sht As Worksheet
    Dim end_row As Long, step_row As Long

    Dim FileToOpen As Variant  '声明一个可以存储任何数据类型的Variant变量
    Dim i As Long
    '显示标准的“打开”对话框，并获取选择的文件名，包含完整的路径
    FileToOpen = Application.GetOpenFilename("Excel文件,*.xl*", , "请选择要合并的多个工作簿/表", , True)

    '原核心代码的外层，包裹一层循环，用来遍历所有需要操作工作簿
    For i = 1 To UBound(FileToOpen)
        Workbooks.Open Filename:=FileToOpen(i)  '只是对每个遍历的工作簿执行一个打开(激活为当前工作簿)，执行合并的核心代码，最后关闭即可

            '合并工作表的核心代码，即：遍历、复制、粘贴、添加来源工作簿名 + 表名
            For Each sht In Worksheets
                end_row = ThisWorkbook.Sheets("汇总").UsedRange.Rows.Count + 1     '注意汇总的位置，要显示制定是在代码所在的工作簿的“汇总”工作表
                sht.UsedRange.Copy Destination:=ThisWorkbook.Sheets("汇总").Range("B" & end_row)
                step_row = sht.UsedRange.Rows.Count
                ThisWorkbook.Sheets("汇总").Range("A" & end_row & ":A" & end_row + step_row).Value = ActiveWorkbook.Name & "-" & sht.Name
            Next

        ActiveWorkbook.Close  '最后关闭工作簿
    Next i

End Sub