复制黏贴

指尖的阳光、

将“文件”文件夹中的表格内容，通过vba一键复制到“复制”表格中，请看看代码应怎样改动，谢谢。

3190496160

Sub 同步汇总台账()
    Dim MyPath$, MyName$, sh As Worksheet, arr
    Set sh = ActiveWorkbook.Sheets("汇总台帐")
    MyPath = ThisWorkbook.Path & "\文件\"
    MyName = Dir(MyPath & "风险贷款（汇总台账）.xlsm")
    If MyName = "" Then MsgBox "找不到风险贷款（汇总台账）文件": End
    Application.ScreenUpdating = False
    sh.Cells.ClearContents
    If MyName <> ThisWorkbook.Name Then
        With GetObject(MyPath & MyName)
            .Sheets(1).UsedRange.Copy sh.[a1]
        End With
    End If
End Sub

3190496160

指尖的阳光、

3190496160 发表于 2022-12-27 15:45

如果“文件”文件夹在F盘呢？

ykcbf1100

指尖的阳光、 发表于 2022-12-27 17:27
如果“文件”文件夹在F盘呢？

先送花，再提新要求。

3190496160

指尖的阳光、 发表于 2022-12-27 17:27
如果“文件”文件夹在F盘呢？

MyPath = "f:\文件\"

ykcbf1100

ykcbf1100 发表于 2022-12-28 10:36
先送花，再提新要求。

不是给我，给帮你写代码的老师。

指尖的阳光、

谢谢两位老师的解答，深表感谢。