vba代碼求助-有解無憂

老師，我可不可以請假您一個excel vb的問題。百度了好久都找不到解決辦法。
這個宏的功能是從一個作業簿提取其中三個作業表，這個功能已經實作了，但是不能通用在其他的作業簿上。當我在其他作業簿運行時，他的作用域還是原先的作業簿。
現在我想要解決的問題就是如何把這個宏運用到同一模板的所有作業簿上
以下是代碼：Sub 復制z()

Dim s As String
s = ThisWorkbook.Name
Application.ScreenUpdating = False

Dim gzb As Workbook

Set gzb = Workbooks.Add

ActiveSheet.Name = "清單"
Sheet1.Cells.Copy [a1]

Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = "箱單"
Sheet101.Cells.Copy [a1]

Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = "發票"
Sheet9.Cells.Copy [a1]

gzb.SaveAs ThisWorkbook.Path & "\Tracking#" & s & ".xls", FileFormat:=xlExcel8

Set gzb = Nothing

ActiveWorkbook.Close

Application.ScreenUpdating = True

End Sub

uj5u.com熱心網友回復：

Quote: 參考樓主 weixin_45652504 的回復:

還不是很清楚你的意思，能說的清楚些或者發附件上來么

uj5u.com熱心網友回復：
我剛才試了一下,你要是把代碼復制到被提取的檔案中并執行的話是沒問題的;
但是估計你是想不復制代碼,在其它作業簿中呼叫成功復制的那個作業簿的程序"復制z",也就是跨作業簿呼叫宏,對吧?
uj5u.com熱心網友回復：
改好了,代碼如下:
Option Explicit



Sub 復制z()



    Application.ScreenUpdating = False

    

    Dim wb As Workbook

    Set wb = Application.ActiveWorkbook

    

    Dim gzb As Workbook

    Set gzb = Workbooks.Add

    

    Dim objSheet As Worksheet

    Set objSheet = gzb.ActiveSheet

    objSheet.Name = "清單"

    wb.Worksheets("Sheet1").Cells.Copy objSheet.[a1]

    

    Set objSheet = Worksheets.Add(after:=Worksheets(Worksheets.Count))

    objSheet.Name = "箱單"

    wb.Worksheets("Sheet101").Cells.Copy objSheet.[a1]

    

    Set objSheet = Worksheets.Add(after:=Worksheets(Worksheets.Count))

    objSheet.Name = "發票"

    wb.Worksheets("Sheet9").Cells.Copy objSheet.[a1]

    

    gzb.SaveAs wb.Path & "\Tracking#" & wb.Name & ".xls", FileFormat:=xlExcel8

    

    gzb.Close

    Set gzb = Nothing

    

    Application.ScreenUpdating = True

End Sub
下載地址:
鏈接：https://pan.baidu.com/s/1206M0jP-5jmqmsqklDaOhA
提取碼：xpjr

運行示例:

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/25213.html
標籤：VBA

上一篇：一個vbs整人代碼，電腦半癱瘓了，求救啊~~
下一篇：c++11