通过VBA将Excel表格写入CSV

我有一个固定的表excel电子表格。 我想创build一个button，当按下时，将这个表格导出到一个CSV文件。

我创build了一个button并实现了以下代码; 然而，当我按下button时，文件只用逗号创build（没有添加单元格的数据）。 我错过了什么？ 我是VBA新手 – 谢谢。

Sub CommandButton21_Click() Dim FilePath As String Dim CellData As String CellData = "" FilePath = Application.DefaultFilePath & "\Table.txt" Open FilePath For Output As #1 For i = 30 To 34 For j = 3 To 7 CellData = CellData + Trim(ActiveCell(i, j).Value) + "," Next j Write #1, CellData CellData = "" Next i Close #1 End Sub 

Answer 1

Excel会将整个工作表保存为.csv文件。 您不需要单独保存单元格。

使用这个代码

 Sub CSVfile() ActiveWorkbook.SaveAs Filename:="C:\Users\AlexBor\Documents\my_excel_sheet.csv", _ FileFormat:=xlCSV, CreateBackup:=False End Sub 

它将保存所有非空单元格，保存表格格式。 当然，你可以select其他格式的文件.txt，例如制表符分隔符。