Re: [算表] 匯入文字檔案vba問題
※ 引述《ptguitar (佩蒂吉他)》之銘言：
: 軟體: excel
: 版本: 2007
上次問過只有三個文字檔案
現在是有很多文字檔案要一起匯入
我改寫上次程式
不過卡在無法關閉檔案
跟迴圈不會繼續
不知道要怎麼改...
感謝各位
Sub 實驗匯入文字檔()
Dim thisbook$
thisbook = ThisWorkbook.Name
buf = Dir("D:\ttt\*.txt")
If buf = "" Then
MsgBox "找不到檔案，請記得複製到指定資料夾(目前路徑\ttt\項下)"
Exit Sub
Else
End If
tpbuf = "D:\ttt\" & buf
cnt = 1
Do While buf <> ""
Workbooks.Open (tpbuf)
ActiveSheet.UsedRange.Copy
Workbooks(thisbook).Activate
Sheets("設定").Range("A" & cnt).Select
Selection.PasteSpecial Paste:=xlPasteValues
cnt = Sheets("設定").Range("A1").End(xlDown).Row + 1
Workbooks(buf).Close
buf = Dir()
Loop
End Sub
檔案如下
https://drive.google.com/open?id=0BwCgrQhGgaw7MlpFNFNMUFlZV0E
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 60.250.67.77
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1490758006.A.EB5.html
→
03/29 11:47, , 1F
03/29 11:47, 1F
→
03/29 14:11, , 2F
03/29 14:11, 2F
討論串 (同標題文章)
Office 近期熱門文章
PTT數位生活區 即時熱門文章
