vbs 中移动其他sheet到当前工作薄中

最新推荐文章于 2023-09-09 20:19:00 发布

bruce_wang_janet

最新推荐文章于 2023-09-09 20:19:00 发布

阅读量1.6k

点赞数

分类专栏：日常

日常专栏收录该内容

10 篇文章 0 订阅

订阅专栏

1. vbs 中移动其他sheet到当前工作薄中

Sub MergeWorkbooks()
    Dim FileSet
    Dim i As Integer
    On Error GoTo 0
    Application.ScreenUpdating = False
    FileSet = Application.GetOpenFilename(FileFilter:="Excel 2003(*.xls),*.xls,Excel 2007(*.xlsx),*.xlsx", _
                                            MultiSelect:=True, Title:="Ñ¡ÔñÒªºÏ²¢µÄÎÄ¼þ")
    If TypeName(FileSet) = "Boolean" Then
        GoTo ExitSub
    End If
    For Each Filename In FileSet
        Workbooks.Open Filename
        Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    Next
ExitSub:
    Application.ScreenUpdating = True
End Sub

2. 代码放到模块中