创建没有空列和行的CSV文件

Question

Situation：使用Excel工具，需要通过以下代码将.csv文件保存为共享文件夹上的.csv文件：

Dim FileName As String
    Dim Path As String
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs FileName:= _
        "FILEPATH&NAME ".txt", FileFormat:=xlText, CreateBackup:=False

    Application.DisplayAlerts = True

问题：通过此方法创建的文件很大（20,046 Ko），并且减慢了所有速度（以后为用户和excel查询保存）。这似乎是由于这样的事实：当我的文件应该只有27列时，它可以节省数千个空列。

我尝试过的内容：我尝试另存为CSV，同样存在尺寸问题。

我如何编码它以创建没有空的列和行的文件？

感谢您的帮助！

Answer 1

不是xlText，而是xlCSV。

Sub test()
    Dim Wb As Workbook
    Dim Ws As Worksheet
    Set Wb = ActiveWorkbook
    Set Ws = Wb.ActiveSheet
    'Wb.SaveAs Filename:="myTest.text", FileFormat:=xlCSV
    Ws.SaveAs Filename:="myTest.text", FileFormat:=xlCSV

End Sub