Question

我需要将一个csv文件转换为xlsx，以便我的宏可以正确读取该值，但我不知道该怎么做，请您能帮我吗？

Dim ExApp As Excel.Application
Set ExApp = New Excel.Application 
ExApp.Visible = False
Dim MyWb As Workbook
Set MyWb = ExApp.Workbooks.Open(Filename:="U:\a.csv", ReadOnly:=True

MyWb.Close SaveChanges:=False
ExApp.Quit

在这里我打开文件a.csv，但是我想在xlsx中打开它而不做任何事情，或者可能在打开后不知道的情况下进行转换。

Answer 1

您只需像黑魔法一样更改文件类型：(

为您提供两种解决方案：

使您的宏可以直接读取csv，易于读取CSV文件。（推荐）
创建一个宏以打开CSV文件并将其另存为xlsx文件，然后您可以使用宏读取此xlsx文件。

一些代码可以帮助您

    Dim WB As Workbook

    Set WB = Workbooks.Open("\\users\path\Desktop\test.csv")

    WB.SaveAs fileName:="\\users\path\Desktop\test.xlsx", _
            FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
            ReadOnlyRecommended:=False, CreateBackup:=False

将CSV文件转换为XLSX

1 个答案: