VBA宏创建带变量名文本文件报错求助：路径由用户选择

你的代码最后一行报错主要有以下几个问题：

• BuildPath方法使用错误：BuildPath的作用是安全拼接路径片段，正确用法是传入多个路径部分（比如父路径和文件名），而不是把完整拼接好的字符串作为第一个参数。你现在错误地将wr和True传给了BuildPath，导致参数混乱。
• CreateTextFile参数传递错误：CreateTextFile的参数顺序是(文件名, 覆盖已有文件?, 是否使用Unicode编码?)，你把本该属于CreateTextFile的参数放到了BuildPath里，导致方法调用签名不匹配。
• 冗余的路径拼接："" & Inp & "\"这种写法不仅多余，还可能导致路径出现双斜杠（比如Inp本身以\结尾时），BuildPath会自动处理路径分隔符，无需手动添加。
• 未定义的变量：代码中的wr变量未定义，需要明确它的作用（通常是控制是否覆盖已有文件，用布尔值True或False）。

修正后的完整代码 #

Set oFSO = CreateObject("Scripting.FileSystemObject")

Set app = CreateObject("Shell.Application")
Set D = app.BrowseForFolder(0, "Select Folder", 1)
If D Is Nothing Then
    Inp = "C:\"
Else
    Inp = D.Self.Path
End If

' 确保partdatetime变量已定义并赋值，且文件名无非法字符（示例用当前时间生成合法文件名）
Dim partdatetime As String
partdatetime = Format(Now(), "yyyy-mm-dd_hh-mm-ss")

' 用BuildPath安全拼接完整路径
Dim fullFilePath As String
fullFilePath = oFSO.BuildPath(Inp, partdatetime & ".txt")

' 正确调用CreateTextFile：参数分别为路径、是否覆盖、是否Unicode编码
Set oTF = oFSO.CreateTextFile(fullFilePath, True, True)

' 可选：写入内容后关闭文件
'oTF.WriteLine("这是测试内容")
'oTF.Close

额外注意事项 #

• 确保partdatetime变量的值不包含文件名非法字符：\ / : * ? " < > |，否则会创建文件失败。
• 如果不需要Unicode编码，可以将CreateTextFile的第三个参数改为False，生成ANSI编码的文本文件。

内容的提问来源于stack exchange，提问作者Megha P