麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] VBA程式內容COPY至新EXCEL問題詢問 [打印本頁]

作者: rouber590324 時間: 2018-3-21 16:54 標題: VBA程式內容COPY至新EXCEL問題詢問

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

作者: 空白的樂章 時間: 2018-3-24 00:19

本帖最後由空白的樂章於 2018-3-24 00:32 編輯

不知道這樣的建議是否可以幫上你的忙
你先聽聽看吧
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 時間: 2018-3-26 10:20

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

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)