VBA代码执行后指定路径C:\Users\用户名\Documents\Tmp\xlLog目录未生成

你的代码执行后找不到指定目录，核心问题有两个：

• MkDir只能创建单级目录，如果C:\Users\你的用户名\Documents\Tmp这个父目录不存在，直接创建xlLog会失败，而且On Error Resume Next把错误掩盖了，你完全不知道这一步出了问题。
• 全局启用On Error Resume Next的错误处理方式太粗暴，所有错误都会被忽略，导致你无法定位问题。

修正后的代码 #

Option Explicit

Private log As Object
Declare PtrSafe Function GlobalUnlock Lib "kernel32" (ByVal hMem As LongPtr) As LongPtr
Declare PtrSafe Function GlobalLock Lib "kernel32" (ByVal hMem As LongPtr) As LongPtr
Declare PtrSafe Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As LongPtr) As LongPtr
Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As LongPtr
Declare PtrSafe Function EmptyClipboard Lib "user32" () As Long
Declare PtrSafe Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As LongPtr) As LongPtr
Declare PtrSafe Function CloseClipboard Lib "user32" () As Long
Declare PtrSafe Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, ByVal lpString2 As Any) As LongPtr
#If VBA7 Then
 Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems
#Else
 Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds as Long) 'For 32 Bit Systems
#End If

'===================================== Log ====================================
Public Sub initLog()
    Dim FSO As Object
    Dim sLogName As String
    Dim sLogPath As String
    Dim fullLogFilePath As String
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    sLogPath = "C:\Users\" & UserName & "\Documents\Tmp\xlLog"
    sLogName = "Metric-Log.txt"
    fullLogFilePath = FSO.BuildPath(sLogPath, sLogName)
    
    ' 创建多级目录，父目录不存在也会自动创建
    If Not FSO.FolderExists(sLogPath) Then
        FSO.CreateFolder sLogPath
    End If
    
    ' 打开日志文件，不存在则创建，存在则追加内容
    Set log = FSO.OpenTextFile(fullLogFilePath, 8, True)
    
    Set FSO = Nothing
End Sub

关键修改说明 #

1. 移除全局On Error Resume Next：如果需要错误处理，可以在特定步骤添加针对性的错误捕获，而不是掩盖所有错误。
2. 用FSO.CreateFolder替代MkDir：CreateFolder支持创建多级目录，只要路径合法，所有不存在的父目录都会被自动创建。
3. 用FSO.BuildPath拼接路径：避免手动拼接字符串时出现路径分隔符错误，更可靠。
4. 简化文件创建逻辑：OpenTextFile的第三个参数设为True，表示如果文件不存在就自动创建，不需要额外的Dir检查。

这样修改后，代码会正确创建所有需要的目录和日志文件，你可以在指定路径下找到它们。

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