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

当我试图打开文本文件进行输入时，会出现此错误。代码在我看来没问题

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

我希望文本文件只有一行，即指向工作簿的路径。

使用EnvironUSERPROFILE将返回例如：

C:\Users\NAlexP

因此，您需要修改文件路径分配，以便：

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

---

只需使用filePath=enviro&\AppData\Roaming\Microsoft\Outlook\path.txt，因为EnvironUSERPROFILE类似于C:\Users\NAlexPYes，这很有效。你愿意回答这个问题吗？这样我就可以把它设置为接受了？