EXCEL VBA代码

发布网友发布时间：2022-04-22 13:26

共5个回答

热心网友时间：2023-06-15 09:49

灞曞紑鍏ㄩ儴

宸叉祴璇曠粨鏋滐細

Sub test()
Application.ScreenUpdating = False

    Dim f
    ChDir ThisWorkbook.Path
    f = Application.GetOpenFilename("Excel2007鏂囦欢,*.xlsx,Word鏂囦欢,*.doc,鏂囨湰鏂囦欢,*.txt", 3, "閫夋嫨瑕佹眹鎬荤殑鏂囦欢", MultiSelect:=True)
    Dim wb As Workbook
    Dim x
    For x = 1 To UBound(f)
        Set wb = Workbooks.Open(f(x))

        wb.Sheets(1).Range("a2:bt2").Copy Workbooks("鍚堝苟.xlsm").Sheets(1).Range("a10000").End(3).Offset(1, 0)

        wb.Close False
    Next x
    Application.ScreenUpdating = True

    MsgBox "澶勭悊瀹屾垚"
End Sub

热心网友时间：2023-07-13 21:23

可以百度搜我的教程

热心网友时间：2023-07-13 21:24

唉，都这样了还要来问，那就没办法了。只能慢慢来。最起码要知道for 的用法。

热心网友时间：2023-07-13 21:24

补充用For each ...Next workbook，这样不用每次记录工作薄的名称，直接循环导入数据。
Dim wb As Workbook open和close的方法打开和关闭

热心网友时间：2023-07-13 21:25

.......57132899........
依次打开各工作簿，放入数组，最后写出

热心网友时间：2023-07-13 21:26

汇总吗，我有个已经做好的汇总程序，需要可以私我