[發問] VBA程式內容COPY至新EXCEL問題詢問

rouber590324

DEAR  ALL  大大
1.如圖一    新增EXCEL後 覆製工作表內容到新EXCEL
  1.1 請問如何 copy 原excel內之 VBA 程式至新開之EXCEL 內??
2.煩不吝賜教    THANKS *10000

圖一
Sub 新增EXCEL()
    Range("A1").Select
    Application.DisplayAlerts = False '關
    Workbooks.Add
    ChDir "\\Pcbfs02\C701\產設早會會議記錄輸入系統"
    ActiveWorkbook.SaveAs Filename:= _
        "\\Pcbfs02\C701\產設早會會議記錄輸入系統\各區早會DATA\PD KPI (績效)" & Sheet1.Range("AG1") & " .xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    ActiveWindow.Close
    Range("A1").Select
End Sub

Sub 覆製週資料庫()
    '全面性變更名稱可用編輯內之取代功能一次ALL置換
    Workbooks.Open Filename:="\\Pcbfs02\C701\產設早會會議記錄輸入系統\各區早會DATA\PD KPI (績效)" & Sheet1.Range("AG1") & " .xls" '需求EXCEL ADDRESS-自行變更.   
    Windows("PD KPI (績效).xls").Activate '至原覆製PDM資料庫.xls檔-名稱依需求變更
    Sheets("早會DATA").Cells.Copy 'COPY TBDD2060 ALL 儲存格-名稱依需求變更
    Windows("PD KPI (績效)" & Sheet1.Range("AG1") & " .xls").Activate '至測試表單.xls檔-名稱依需求變更
    Sheets("SHEET1").Select '至TBDD2060工作表-名稱依需求變更
    Range("A1").Select '至A1儲存格
    ActiveSheet.Paste '覆製   
    Windows("PD KPI (績效).xls").Activate '至覆製PDM資料庫.xls檔-名稱依需求變更
    Sheets("早會DATA").Select '至封面工作表-名稱依需求變更
    Range("A1").Select '至A1儲存格
    Windows("PD KPI (績效)" & Sheet1.Range("AG1") & " .xls").Activate '至測試表單.xls-名稱依需求變更
    Sheets("Sheet1").Select '至目錄"工作表-名稱依需求變更
    Range("A1").Select '至A1儲存
    Application.DisplayAlerts = False '關
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub

空白的樂章

不知道這樣的建議是否可以幫上你的忙
你先聽聽看吧
1.如果是常常要使用到的巨集
建議將有此model巨集的檔案另存成"增益集"
然後再excel啟動增益集，這樣不管在哪個檔案都能使用這個活頁簿的巨集
不需要再額外多出複製的這個動作

2.巨集的Module可以進行匯出及匯入。

3.第三個方法是比較陽春的方法，
你直接用巨集先複製原始檔案一份(代表巨集都會一起複製)，然後清除掉所有內容後再進行你的資料輸入。

4.剛剛爬文爬到的微軟官方說明
https://support.office.com/zh-tw/article/%E5%B0%87%E5%B7%A8%E9%9B%86%E6%A8%A1%E7%B5%84%E8%A4%87%E8%A3%BD%E5%88%B0%E5%8F%A6%E4%B8%80%E5%80%8B%E6%B4%BB%E9%A0%81%E7%B0%BF-13c0938b-8432-4259-9177-a71f7e626de0

開啟VB編輯器後，直接用滑鼠把module1從活頁簿1按住左鍵拉到活頁簿2放開就會直接複製

這是我想到得以上方法
如果有其他大大有其他的方法或是以上有錯誤，煩請告知小弟，
這是我的學習機會:)

rouber590324

dear 空白的樂章 大大
感謝指導   thanks*10000