xls多文件合并成多工作表

靖西网西网服务生

2022-04-07

多个独立的excel文件合并到一个excel文件的多个工作表Sheet中

步骤：

1、打开OFFice EXCEL

2、右键工作表--->查看代码

3、粘贴本VB代码，点击运行

4、弹出窗口选择要合并的所有文件

5、保存成新文件

复制代码

Sub Books2Sheets()
'定义对话框变量
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
'新建一个工作簿
Dim newwb As Workbook
Set newwb = Workbooks.Add
With fd
If .Show = -1 Then
'定义单个文件变量
Dim vrtSelectedItem As Variant
'定义循环变量
Dim i As Integer
i = 1
'开始文件检索
For Each vrtSelectedItem In .SelectedItems
'打开被合并工作簿
Dim tempwb As Workbook
Set tempwb = Workbooks.Open(vrtSelectedItem)
'复制工作表
tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i)
'把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，即Excel97-2003的文件，如果是Excel2007，需要改成xlsx
newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")
'关闭被合并工作簿
tempwb.Close SaveChanges:=False
i = i + 1
Next vrtSelectedItem
End If
End With
Set fd = Nothing
End Sub

多个独立的excel文件合并到一个excel文件的多个工作表Sheet中步骤：1、打开OFFice EXCEL2、右键工作表--->查看代码3、粘贴本VB代码，点击运行4、弹出窗口选择要合并的所有文件5、保存成新文件<div class="f12"><a href="javascript:" onclick="CopyCode(document.getElementById('code1'));">复制代码</a></div><div class="blockquote2" id="code1"><ol><li>Sub Books2Sheets()</li><li>    '定义对话框变量</li><li>    Dim fd As FileDialog</li><li>    Set fd = Application.FileDialog(msoFileDialogFilePicker)</li><li>    </li><li>    '新建一个工作簿</li><li>    Dim newwb As Workbook</li><li>    Set newwb = Workbooks.Add</li><li>    </li><li>    With fd</li><li>        If .Show = -1 Then</li><li>            '定义单个文件变量</li><li>            Dim vrtSelectedItem As Variant</li><li>            </li><li>            '定义循环变量</li><li>            Dim i As Integer</li><li>            i = 1</li><li>            </li><li>            '开始文件检索</li><li>            For Each vrtSelectedItem In .SelectedItems</li><li>                '打开被合并工作簿</li><li>                Dim tempwb As Workbook</li><li>                Set tempwb = Workbooks.Open(vrtSelectedItem)</li><li>                </li><li>                '复制工作表</li><li>                tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i)</li><li>                </li><li>                '把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，即Excel97-2003的文件，如果是Excel2007，需要改成xlsx</li><li>                newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")</li><li>                </li><li>                '关闭被合并工作簿</li><li>                tempwb.Close SaveChanges:=False</li><li>                </li><li>                i = i + 1</li><li>            Next vrtSelectedItem</li><li>        End If</li><li>    End With</li><li>    </li><li>    Set fd = Nothing</li><li>End Sub</li></ol></div>

浏览778377 / 回复1

举报内容