路径/文件访问错误怎么调啊?Open FileName(t) For Input As #i 运行时错误75
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