vba - 使用 VBA 在列中保存包含数据的 csv

Question

这个问题在这里已经有了答案:





How to save semi-colon delimited csv file using VBA?

(6 个回答)


6年前关闭。




我在 Excel-VBA 中制作了一个宏:

创建一个新工作表

将数据写入 5 列

将文件另存为 CSV

关闭文件

问题是，一旦文件关闭，数据就不再按列分隔。但它是逗号分隔并连接成一列。

奇怪的是，手动关闭最近创建的 csv 文件(而不是在 VBA 中关闭它)解决了这个问题，因为当再次打开它时数据仍然在列中。 .

我在这里尝试做的是在 VBA 中保存/关闭文件，并将数据保存在列中。

这是一个例子:

Sub test()
    Workbooks.Add
    Cells(1, 1) = "a"
    Cells(1, 2) = "a"
    Cells(1, 3) = "a"
    ActiveWorkbook.SaveAs filename:= "C:\Users\user\Desktop\File.csv", FileFormat:=xlCSV
End Sub

然后手动关闭“File.csv”并再次打开它:



第二个例子:

Sub test()
    Workbooks.Add
    Cells(1, 1) = "a"
    Cells(1, 2) = "a"
    Cells(1, 3) = "a"
    ActiveWorkbook.SaveAs filename:= "C:\Users\user\Desktop\File.csv", FileFormat:=xlCSV
    ActiveWorkbook.Close
End Sub

文件在此处自动关闭。这是手动打开时的结果:

Answer 1

这对我有用:

Sub test()

    Workbooks.Add
    Cells(1, 1) = "a"
    Cells(1, 2) = "a"
    Cells(1, 3) = "a"

    With ActiveWorkbook
        .SaveAs Filename:="C:\Users\user\Desktop\File.csv", FileFormat:=xlCSV, Local:=True
        .Close False
    End With

End Sub