竖线分隔CSV转XLSX后部分文件未显示为Excel工作簿问题求助

问题根因 #

1. 文件名拼接逻辑错误：代码直接在带.csv后缀的原始文件名后拼接.xlsx，生成的文件实际后缀为.csv.xlsx。如果系统开启了「隐藏已知文件类型的扩展名」，资源管理器只会显示.csv后缀，看起来就不是Excel工作簿格式。4个异常文件大概率是原始文件名/路径中存在特殊字符、不可见空格，导致扩展名识别优先级异常。
2. SaveAs语法不规范：VBA调用方法时如果不使用Call关键字，不要给参数加括号，否则会强制将参数按值传递，可能导致路径识别异常。

修复方案 #

1. 调整文件名拼接逻辑 #

保存前先移除原始CSV的后缀，修正后代码如下：

Sub CSVtoXlsx()
    Dim fname As String, csvfolder As String, xlsfolder As String
    ' 此处保留你原有给csvfolder、xlsfolder、fname赋值的逻辑
    
    Do While fname <> ""
        Dim wb As Workbook
        Dim temparray() As String, strdata() As String
        Dim i As Integer, fileNameWithoutExt As String
        
        Set wb = Workbooks.Add
        csvfilepath = csvfolder & fname
        
        ' 清理文件名中的不可见控制字符
        fname = Application.Clean(fname)
        ' 提取不带后缀的文件名
        fileNameWithoutExt = Left(fname, InStrRev(fname, ".") - 1)
        
        Open csvfilepath For Binary As #1
        mydata = LOF(1)
        Get #1, , mydata
        Close #1
        
        strdata() = Split(mydata, vbCrLf)
        temparray() = Split(strdata(0), "|")
        
        ReDim arcol(0 To UBound(temparray))
        For i = 0 To UBound(temparray)
            arcol(i) = 2
        Next i
        
        With wb.Sheets(1).QueryTables.Add( _
        Connection:="text;" & csvfilepath, Destination:=wb.Sheets(1).Range("a1"))
        .Name = "formatted_data"
        .FieldNames = True
        .TextFilePlatform = 437
        .TextFileStartRow = 1
        .TextFileParseType= xlDelimited
        .TextFileTextQualifier = xlTextQualifierNone
        .TextFileOtherDelimiter = "|"
        .TextFileColumnDataTypes = arcol
        .Refresh BackgroundQuery:=False
        End With
        Application.DisplayAlerts = False
        
        ' 修正SaveAs写法，去掉多余括号，显式指定FileFormat参数
        wb.SaveAs Filename:=xlsfolder & fileNameWithoutExt & ".xlsx", FileFormat:=xlOpenXMLWorkbook
        
        Application.DisplayAlerts = True
        
        wb.Close savechanges:=False
        
        fname = Dir
    Loop
End Sub

2. 验证扩展名设置 #

打开资源管理器的「查看」选项卡，勾选「文件扩展名」，确认生成的文件后缀为正常的.xlsx即可。

可选优化 #

你代码中提前用Binary读取CSV内容的逻辑和后续QueryTable导入逻辑重复，可以直接删除Binary读取部分，仅保留QueryTable导入即可，减少不必要的IO操作。

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