vba打开excel并按照一定顺序去复制里面的内容?

发布网友 发布时间：2022-04-24 12:34

我来回答

共1个回答

热心网友 时间：2023-04-29 20:49

 Sub 复制数据()

    Dim iBokName$, iShtName$, iPath$, iShu%

    '**********填写两个参数的值：开始填写*******************

    iPath = "E:\Excel仓库\分捡表.xlsm" '【填写要打开的工作簿的完整路径】

    iShu = 1                   '【填写打开工作簿后从第几张表里复制数据】

    '**********填写两个参数的值：填写结束*******************

    iBokName = ThisWorkbook.Name '用iBokName记录下当前工作簿的名称

    iShtName = ActiveSheet.Name  '用iShtName记录下当前工作表的名称

    Workbooks.Open iPath '打开工作簿（注意，打开后，活动工作簿变成了刚刚打开的工作簿）

    Sheets(iShu).Select  '选中第iShu张工作表

    Range("A1:C2").Copy Workbooks(iBokName).Sheets(iShtName).Range("A1")

    '上方这行代码的意思：复制A1:C2区域 粘贴到原工作簿的原工作表的A1单元格

    ActiveWorkbook.Close '活动工作簿关闭（注意，此行关闭的是刚才打开的工作簿）

    ActiveWorkbook.Save  '活动工作簿保存（注意，此行保存的是原来的那个工作簿）

    MsgBox "处理完毕", , "提示"

End Sub