更改文件扩展名时出错 VBA

Question

我有一个 VBA 代码可以打开 .csv 文件，更改其名称和扩展名，然后关闭它并保存更改（作为摘要）。代码工作正常，但是当我尝试打开新文件时，我收到一条消息，提示无法打开文件，因为格式或文件扩展名无效。我知道问题是由代码产生的，因为如果我手动完成所有操作，就不会出现任何错误。这是代码：

Sub test2()

    Dim nombre As String
    Dim base As Workbook
    Dim filtros() As Variant
    Dim archivo As Workbook

    Set archivo = ActiveWorkbook

    Application.ScreenUpdating = False

    nombre = InputBox("Ingrese el nombre de la base con los nuevos clientes")

    Workbooks.Open ("C:\Users\npavon\Desktop\Bases de Datos Asistencia\" & nombre & ".csv")
    Set base = Workbooks(nombre & ".csv")

    base.Sheets(1).Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _
        True

    base.SaveAs ("C:\Users\npavon\Desktop\Bases de Datos Asistencia\" & Left(base.Name, InStr(base.Name, ".") - 1) & " ordenado.xlsb")
    base.SendMail Recipients:="xx@xx.cl", Subject:="Base de Datos " & Date, returnreceipt:=False
    base.Close savechanges:=True

    Application.ScreenUpdating = True

End Sub

有什么建议吗？

Answer 1

忘记扩展名并使用文件格式参数。

base.SaveAs filename:="C:\Users\npavon\Desktop\Bases de Datos Asistencia\" & Left(base.Name, InStr(base.Name, ".") - 1) & " ordenado", fileformat:=xlExcel12

在不指定文件格式的情况下，Excel 尝试从“文件”、“选项”、“保存”、“以此格式保存文件”中将文件保存为默认格式。添加不同的扩展程序不会改变这一点。

更多信息请见Workbook.SaveAs Method and XlFileFormat Enumeration .

更改文件扩展名时出错 VBA

Error when changing file extension VBA

vba

excel

csv

xlsb