iT邦幫忙

0

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

ping9 2013-06-17 17:29:3117463 瀏覽

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

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

2 個回答

4
海綿寶寶
iT邦大神 1 級 ‧ 2013-06-18 23:12:22
最佳解答

試試看這可不可用

<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
外獅佬 iT邦大師 1 級 ‧ 2013-06-19 10:11:45 檢舉

ping9提到:
由user自己打開

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

10
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

看更多先前的回應...收起先前的回應...
ping9 iT邦新手 4 級 ‧ 2013-06-17 22:31:34 檢舉

不好意思,沒說清楚
無固定檔名時,要如何作複製貼上的動作,謝謝!

外獅佬 iT邦大師 1 級 ‧ 2013-06-17 23:49:01 檢舉

無固定檔名...是要怎麼開啟檔案?這個就是問題的癥結了吧...Orz

外獅佬 iT邦大師 1 級 ‧ 2013-06-17 23:50:49 檢舉

就算是你自己操作Excel複製工作表,也會看到檔案名稱,
程式不長眼,看不到的、沒有規則的,要他如何處理?
程式是用來處理『有規則』的工作的落寞

ping9 iT邦新手 4 級 ‧ 2013-06-18 20:21:10 檢舉

無固定檔名表示由user自己打開,打開後要用VBA去得到它的檔名,才方便作事

我要發表回答

立即登入回答