高手請教，VBA要如何處理兩個excel檔之間的資料

ping9 2013-06-17 17:29:31 ‧ 20893 瀏覽

分享至

目前已打開此檔code.xlsm（這是要寫程式碼的地方）
然後又打開另一個excel檔（此檔只有一個資料表），
請問如何將此檔的此資料表
"資料表.Copy After:=Workbooks("code.xlsm").最後一個資料表"
謝謝

PS.不知此表達清楚嗎？謝謝

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

2 個回答

海綿寶寶

iT邦大神 1 級 ‧ 2013-06-18 23:12:22

最佳解答

試試看這可不可用

&lt;pre class="c" name="code">
Sub Main()
    Windows(2).Activate
    
    Sheets(1).Select
    Sheets(1).Copy After:=Workbooks("code.xlsm").Sheets(ThisWorkbook.Sheets.Count)
End Sub

回應 1
分享
檢舉

外獅佬 iT邦大師 1 級 ‧ 2013-06-19 10:11:45 檢舉

ping9提到：
由user自己打開

開啟檔案，請用Application.GetOpenFilename
其他的部份，請自行參考海綿寶寶的料理法，自行料理

登入發表回應

chengwin1957

iT邦新手 1 級 ‧ 2013-06-17 21:49:44

doc.xslx 裡的doc夾 copy到 code.xlsm 的last 夾

Sub Macro1()
'
' Macro1 Macro
'

'
Windows("doc.xlsx").Activate
Sheets("doc").Select
Cells.Select
Selection.Copy
Windows("code.xlsm").Activate
Sheets("last").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
End Sub