商业网站开发深圳最好seo

您可以按照以下VBA代码来实现把同一路径上的所有工作簿合并到同一个工作簿中：

```VBA

Option Explicit

Sub MergeWorkbooks()

Dim path As String, fileName As String, sheet As Worksheet

Dim targetWorkbook As Workbook, sourceWorkbook As Workbook

Dim worksheetsCount As Integer, i As Integer, j As Integer

'设置合并后的目标工作簿，即第一个打开的工作簿

Set targetWorkbook = Application.Workbooks.Open(Application.GetOpenFilename("Excel Workbooks (*.xls;*.xlsx;*.xlsm;*.xlsb),*.xls;*.xlsx;*.xlsm;*.xlsb"))

'获取路径

path = targetWorkbook.path

'遍历所有工作簿，连接到目标工作簿并复制工作表

fileName = Dir(path & "\*.xls*")

While fileName <> ""

'跳过目标工作簿本身

If fileName <> targetWorkbook.Name Then

Set sourceWorkbook = Application.Workbooks.Open(path & "\" & fileName)

'复制每个工作表

worksheetsCount = sourceWorkbook.Worksheets.Count

For i = 1 To worksheetsCount

'如果名称相同，则跳过该工作表

For j = 1 To targetWorkbook.Worksheets.Count

If targetWorkbook.Worksheets(j).Name = sourceWorkbook.Worksheets(i).Name Then

GoTo NextIteration

End If

Next j

'将工作表复制到目标工作簿

sourceWorkbook.Worksheets(i).Copy After:=targetWorkbook.Worksheets(targetWorkbook.Worksheets.Count)

NextIteration:

Next i

'关闭已经复制完的工作簿

sourceWorkbook.Close False

End If

fileName = Dir

Wend

'保存目标工作簿

targetWorkbook.Save

'关闭目标工作簿

targetWorkbook.Close

'显示消息框提示处理完成

MsgBox "完成合并工作簿操作。"

End Sub

```

在这个VBA程序中，首先会打开第一个工作簿作为合并后的目标工作簿。接着，程序会获取目标工作簿的路径，然后遍历该路径下的所有工作簿。对于除了目标工作簿本身以外的每个工作簿，程序都会打开它，并将其所有工作表复制到目标工作簿中。最后，程序会保存目标工作簿并显示一个消息框来提示处理完成。#excel技巧#