- 帖子
- 561
- 主題
- 160
- 精華
- 0
- 積分
- 725
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- xp
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2014-9-10
- 最後登錄
- 2024-8-7
  
|
[發問] 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-21 16:54
| 
