PTT數位生活區 / Office

[算表] VBA複製文件固定空格?

看板Office作者 (無限大地)時間11年前 (2014/12/31 20:32), 編輯推噓0(0推 0噓 9→)
留言9則, 2人參與, 最新討論串1/1
軟體:excel 版本:2010 先付上程式碼 Sub Macro1() Dim allinOne As Worksheet Set allinOne = ActiveSheet patch$ = "C:XXXXXXX" For i = 1 To 5 With Workbooks.Open(patch$ & i & ".log") .Sheets(1).Columns("B:F").Copy allinOne.Columns(i) .Close End With Next i End Sub 這是在網路上抓的範本 我目前在練習大量資料合併在一個工作表上， 但是我想自行加入每段資料貼在工作表上在空一格後再繼續黏貼 ABCDEF ________ | A B C | A B C | A B C 類似像上面這樣，不知是否該修正哪個地方? -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 42.64.173.163 ※ 文章網址: http://www.ptt.cc/bbs/Office/M.1420029173.A.03B.html
→
12/31 20:46, , 1F
是希望欄和欄間在多空一欄嗎？
12/31 20:46, 1F
→
12/31 20:47, , 2F
對 目前這個貼起來會年再一起 希望能空格方便看
12/31 20:47, 2F
→
12/31 20:50, , 3F
另外，allinone有宣告，i卻又無宣告
12/31 20:50, 3F
→
12/31 20:51, , 4F
patch$ = "C:XXXXXXX"，這裡將patch指定為$字串，下方又為
12/31 20:51, 4F
→
12/31 20:52, , 5F
何Workbooks.Open(patch$ & i & ".log") 這裡又重覆指定呢
12/31 20:52, 5F
→
12/31 20:53, , 6F
那邊不是給他固定路徑讓他開啟檔案?
12/31 20:53, 6F
→
12/31 20:57, , 7F
是讓他開啟檔案沒錯
12/31 20:57, 7F
→
12/31 21:03, , 8F
離題了；[F:F,E:E,D:D,C:C,B:B].Insert xlToRight
12/31 21:03, 8F
→
12/31 21:11, , 9F
謝謝... 今天才剛開始學VBA 想練習大量資料複製
12/31 21:11, 9F
‣ 更多 infinity1980 的文章
文章代碼(AID): #1Ke-pr0x (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 infinity1980 的文章
文章代碼(AID): #1Ke-pr0x (Office)