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

標題: [發問] Excel VBA 開啟Excel表並複製其中一分頁 [打印本頁]

作者: fantersy 時間: 2014-12-24 16:30 標題: Excel VBA 開啟Excel表並複製其中一分頁

各位Excel高手大家好
小弟有一VBA問題想請教
如下是小弟用錄製巨集做出來的VBA
其中在清單小第有用一個連結到Excel MPS
開啟MPS檔案後我要MPS總表分頁的A:AM欄全部複製

再貼到我的檔案分頁(MPS)上
後面都是多的......

問題如下
1.如果這個檔案是在一個內網上,那要如何用VBA開啟Excel檔及指定那個分頁呢?
2.下面的錄制巨集有缺點,因為原本的MPS總表也有一個巨集,開啟之後都會再問要不要開啟巨集,是否能修改下面的程式,讓它很單純的開啟MPS檔案然後再到MPS總表分頁,讓我能執行複製動作及貼上動作
最後在自己關掉開啟的MPS檔案,也不要問我要不要存檔,就自己關掉就好了
不然每次都問我有大量資料要不要釋放~很麻煩

以上~若有不清楚的話再麻煩各位高手提問~謝謝!!

Sub 複製MPS()

Sheets("清單").Select
Range("A1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Sheets("MPS總表").Select
Columns("A:AM").Select
Selection.Copy
Windows("新增 Microsoft Office Excel 工作表.xlsx").Activate
Sheets("MPS").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D8").Select
Windows("MPS.xls").Activate
ActiveWindow.Close
Sheets("Sheet1").Select
Range("A2").Select
End Sub

作者: rouber590324 時間: 2014-12-24 16:59

小弟17:00下班.
下有一類似CASE 煩參考之.

Sub 覆製PDM資料庫()
'全面性變更名稱可用編輯內之取代功能一次ALL置換
Workbooks.Open Filename:="\\Pcbfs02\c700\c740\檢核表\測試表單.xls" '需求EXCEL ADDRESS-自行變更.

Windows("覆製PDM資料庫.xls").Activate '至原覆製PDM資料庫.xls檔-名稱依需求變更
Sheets("tbdd2060").Cells.Copy 'COPY TBDD2060 ALL 儲存格-名稱依需求變更
Windows("測試表單.xls").Activate '至測試表單.xls檔-名稱依需求變更
Sheets("tbdd2060").Select '至TBDD2060工作表-名稱依需求變更
Range("A1").Select '至A1儲存格
ActiveSheet.Paste '覆製

Windows("覆製PDM資料庫.xls").Activate
Sheets("tbdd2040").Cells.Copy
Windows("測試表單.xls").Activate
Sheets("tbdd2040").Select
Range("A1").Select
ActiveSheet.Paste

Windows("覆製PDM資料庫.xls").Activate
Sheets("tbdd2002").Cells.Copy
Windows("測試表單.xls").Activate
Sheets("tbdd2002").Select
Range("A1").Select
ActiveSheet.Paste
Windows("覆製PDM資料庫.xls").Activate '至覆製PDM資料庫.xls檔-名稱依需求變更
Sheets("封面").Select '至封面工作表-名稱依需求變更
Range("A1").Select '至A1儲存格
Windows("測試表單.xls").Activate '至測試表單.xls-名稱依需求變更
Sheets("目錄").Select '至目錄"工作表-名稱依需求變更
Range("A1").Select '至A1儲存

End Sub

作者: fantersy 時間: 2014-12-24 17:29

Hi rouber590324 感謝你的幫忙
請問一下你的例子會遇到開啟該檔時會有詢問的動作嗎?

我的是開啟MPS就會問我巨集要不要開啟
還要另外點選才會進行下一步的覆制動作

晚點來試試你建議的方式~感謝你!!

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