vba菜鳥在使用VBA將批量txt匯入excel時發現老是在Open FileName(t) For Input As #i 運行時發生錯誤75 ，調整了幾次檔案位置和檔案名格式都沒用，各路大神有沒有更好的解決辦法呀？
在excel模塊中運行的VBA代碼如下：
Option Explicit
Public Const sPath As String = "F:\Output860" '讀取txt的路徑
Dim FileName() As String '要處理的檔案名
Dim MyString() As String '從text中讀取內容
Sub ReadFile()
Dim getLine '每次讀取一行資料
Dim i%, t%, k%
i = FreeFile
Open "F:\list.txt" For Input As #i ' 打開含有所需要讀取的TXT檔案名的檔案。
Do While Not EOF(i)
Input #i, getLine '將資料讀入變數。
t = t + 1
Loop
k = t - 1
ReDim FileName(k), MyString(k)
t = 0
Seek #i, 1 '設定檔案的第一條記錄
Do While Not EOF(i)
Input #i, FileName(t)
FileName(t) = sPath & "\" & FileName(t)
t = t + 1
Loop
Close #i ' 關閉檔案。
'讀取txt內容到本excel表格
For t = 0 To k
i = FreeFile
Open FileName(t) For Input As #i ‘老是發生檔案錯誤
Do While Not EOF(i)
Input #i, getLine
MyString(t) = MyString(t) & vbNewLine & getLine
Loop
Close #i
With ThisWorkbook.Sheets(1)
.Cells(t + 1, 1) = FileName(t)
.Cells(t + 1, 2) = Right(MyString(t), Len(MyString(t)) - 2)
End With
Next t
End Sub
uj5u.com熱心網友回復：
錯誤代碼75的話是檔案沒有被找到。檔案路徑和檔案格式的問題。
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/131209.html
上一篇：Python