将行追加到 CSV 文件 (VBA)

Question

我在 MrExcel 上从 TommyGun 借用了以下代码，但遇到了以下困难：

1. 在生成文件的末尾，它会重复下面行中的分隔符，即使它们之间没有数据；

2. 必须根据我们所处的月份动态生成文件名，但 'Const CSVFile As String' 不接受 Format(date, "mmm-yy") 作为字符串元素，例如。

Sub Append2CSV()
Dim tmpCSV As String 'string to hold the CSV info
Dim f As Integer

Const CSVFile As String = "C:\VBA Code\test.csv" 'replace with your filename

f = FreeFile

Open CSVFile For Append As #f
tmpCSV = Range2CSV(Range("A2:H3"))
Print #f, tmpCSV
Close #f
End Sub

Function Range2CSV(list) As String
Dim tmp As String
Dim cr As Long
Dim r As Range

If TypeName(list) = "Range" Then
cr = 1

For Each r In list.Cells
    If r.Row = cr Then
        If tmp = vbNullString Then
            tmp = r.Value
        Else
            tmp = tmp & "," & r.Value
        End If
    Else
        cr = cr + 1
        If tmp = vbNullString Then
            tmp = r.Value
        Else
            tmp = tmp & Chr(10) & r.Value
        End If
    End If
Next
End If

Range2CSV = tmp
End Function

请考虑以下几点： 如果文件不存在，则使用标题（第 1 行）创建它。如果是，则追加 (range"A2:S" & lastorw)

Answer 1

我无法复制第一个问题（输出 CSV 中分隔符的尾随行）。为了使您的文件名动态化，它应该以Dim（而不是常量表达式Const）的形式给出，或者您应该对常量表达式使用字符串Replace。使用Dim 变量如下：

Option Explicit

Sub Append2CSV()
Dim tmpCSV As String 'string to hold the CSV info
Dim f As Integer

Dim CSVFile As String
CSVFile = "C:\VBA Code\" & Format(Date, "MMM-YY") & ".csv"

f = FreeFile

Open CSVFile For Append As #f
tmpCSV = Range2CSV(Range("A2:H3"))
Print #f, tmpCSV
Close #f
End Sub

输入数据：

输出：