• 智能AI问答!更聪明、更完整、原创作!
  • 一款基于GPT的超级AI机器人,可以回答问题、聊天、创作、写文案!

选择路径:XXX的ABC.xlsm文件的Sheet5,复制A1到F12的数据,粘贴到XXX.xlsm文件的Sheet 1的B5单元格

发布于 2024-04-17 15:19:19

在VBA中,如果你想选择路径为"XXX"的"ABC.xlsm"文件的Sheet5工作表,复制A1到F12的数据,并将其粘贴到路径为"XXX"的"XXX.xlsm"文件的Sheet1工作表的B*单元格,可以使用以下代码:

Sub CopyDataFromABCToXXX()
    ' 选择路径为 "XXX" 的 "ABC.xlsm" 文件的 Sheet5 工作表
    Workbooks("XXX\ABC.xlsm").Sheets("Sheet5").Select
    ' 复制 A1 到 F12 的数据
    Range("A1:F12").Select
    ' 复制选定区域
    Selection.Copy
    ' 粘贴到路径为 "XXX" 的 "XXX.xlsm" 文件的 Sheet1 工作表的 B* 单元格
    Workbooks("XXX\XXX.xlsm").Sheets("Sheet1").Range("B5").Paste
End Sub

请将以上代码复制到VBA编辑器中,然后运行它。这段代码将选择路径为"XXX"的"ABC.xlsm"文件的Sheet5工作表,复制A1到F12的数据,并将其粘贴到路径为"XXX"的"XXX.xlsm"文件的Sheet1工作表的B*单元格。请根据需要更改文件名。

0 条评论

发布
问题

在线
客服