Re: [算表] 匯入文字檔案vba問題

[ptguitar (佩蒂吉他)]

※ 引述《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
→ soyoso: https://i.imgur.com/NmBR1Nf tpbuf放至迴圈內試試
→ ptguitar: 感謝S大 原來是這樣~