尝试从.txt读取字符串时文件名或编号错误

Question

当我尝试打开文本文件进行输入时出现此错误。代码看起来很好......

enviro = CStr(Environ("USERPROFILE"))
 filePath = "C:\Users\" & enviro & "\AppData\Roaming\Microsoft\Outlook\path.txt"
 Open filePath For Input As #1
 Do Until EOF(1)
    Line Input #1, strPath
 Loop
 Close #1

我打算文本文件只有一行，这是指向工作簿的路径。

Answer 1

使用Environ("USERPROFILE")将返回例如：

C:\Users\NAlexP

因此，您需要将filePath作业修改为：

filePath = enviro & "\AppData\Roaming\Microsoft\Outlook\path.txt"