Excel快速合并表格代码（仅限于office）
多个Excel表格合并为一张工作表
在Excel界面按住alt+f11-视图-代码窗口-复制粘贴-运行
Sub sheets2one（）
‘定义对话框变量
Dim cc As FileDialog
Set cc = Application.FileDialog（msoFileDialogFilePicker）
Dim newwork As Workbook
Set newwork = Workbooks.Add
With cc
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：=newwork.Worksheets（i）
newwork.Worksheets（i）.Name = VBA.Replace（tempwb.Name， “.xls”， “”）
tempwb.Close SaveChanges：=False
i = i + 1
Next vrtSelectedItem
End If
End With
Set cc = Nothing
End Sub
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。
微信扫一扫 
