vb操作电子表格 增加工作表 工作表数据合并

Dim xlApp As Object '定义Excel应用程序对象
Dim wb As Object '定义工作簿对象
Dim ws As Object '定义工作表对象
Dim xlBook As New Excel.Workbook '创建工作簿
Dim I, HH, ii, ZUIHYIH, DD As Long
Dim gzbmc As String
Dim huwei As String
'创建Excel应用程序对象
Set xlApp = CreateObject(“Excel.Application”)
HH = 2
Set xlBook = xlApp.Workbooks.Open(App.Path & “/2023年退休工资.xls”) '打开个人表
Set ws = Worksheets.Add
ws.Name = “汇总” ’ 为新工作表命名
For I = 1 To xlApp.Workbooks.Count
Set wb = xlApp.Workbooks(I) '获取工作簿对象
For Each ws In wb.Worksheets
gzbmc = ws.Name
If ws.Name = “汇总” Then GoTo ll
ZUIHYIH = Sheets(gzbmc).Range(“b” & Rows.Count).End(xlUp).Row
For ii = 5 To ZUIHYIH
huwei = Sheets(gzbmc).Cells(ii, 2)
If huwei = “” Then GoTo lLl
If huwei = “合计” Then GoTo lLl
HH = HH + 1
Sheets(“汇总”).Cells(HH, 1) = HH - 2
Sheets(“汇总”).Cells(HH, 2) = gzbmc
Sheets(“汇总”).Cells(HH, 3) = huwei
Sheets(“汇总”).Cells(HH, 4) = Sheets(gzbmc).Cells(ii, 7)
lLl:
'End If
Next ii
’ End If
ll:
Next ws
Next I

xlApp.Visible = True '让Excel可见