vba - 将数据导出到CSV-Excel VBA

说我有一个函数，可以将一些数据生成到当前工作表的单元格中，例如:

Cells(1, "A").Value = ...
Cells(2, "A").Value = ...
Cells(3, "A").Value = ...
Cells(4, "A").Value = ...

我想创建当前的工作表并将其加载到一个csv文件中，而不是作为当前工作簿中的当前工作表，以提供路径

说C:\USERS\Documents\Sample.csv。

我看过类似的东西

     ActiveWorkbook.SaveAs Filename:= _
"c:\MyFile.csv", FileFormat:=xlCSV _
, CreateBackup:=False

但这只会将当前工作簿保存到另一个位置，但是我不想在当前工作表中生成数据然后保存，而是想立即导出？无论如何，我能做到这一点。也许像ActiveWorkbook = //pathname然后激活它？

最佳答案

您可以使用VBA非常简单地写入CSV。
一个示例可能是:

Sub WriteCSVFile()

Dim My_filenumber As Integer
Dim logSTR As String

My_filenumber = FreeFile

logSTR = logSTR & Cells(1, "A").Value & " , "
logSTR = logSTR & Cells(2, "A").Value & " , "
logSTR = logSTR & Cells(3, "A").Value & " , "
logSTR = logSTR & Cells(4, "A").Value

Open "C:\USERS\Documents\Sample.csv" For Append As #My_filenumber
    Print #My_filenumber, logSTR
Close #My_filenumber

End Sub