返回列表 上一主題 發帖

[發問] Excel VBA 開啟Excel表 並複製其中一分頁

[發問] 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

小弟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

TOP

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

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

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

TOP

        靜思自在 : 【生命在呼吸間】佛陀說:「生命在呼吸間。」人無法管住自己的生命,更無法擋住死期,讓自己永住人間。既然生命去來這麼無常,我們更應該好好地愛惜它、利用它、充實它,讓這無常、寶貴的生命,散發它真善美的光輝,映照出生命真正的價值。
返回列表 上一主題