如何用VBA打开没有内容的cvs文件？

Sub OpenEmptyCSVFile()
    Dim filePath As String
    
    filePath = "C:\path\to\your\empty\file.csv" '替换为你的空CSV文件的路径
    
    Workbooks.OpenText fileName:=filePath, Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True, Space:=False, Other:=False, TrailingMinusNumbers:=True
    
    '如果需要保存CSV文件，请使用以下代码：
    'ActiveWorkbook.SaveAs "C:\path\to\save\file.xlsx", xlOpenXMLWorkbook '将CSV文件另存为Excel工作簿文件
    
End Sub