Excel VBA中分号分隔的csv

我正在创建一个以分号分隔的csv，但是csv的文件输出在顶部有一个空行。 请帮我在下面的代码中更新哪些内容

Sub WriteToCSV()
Dim FileNumber As Long
Dim temp As String
Dim cl As Range
Dim rw As Range
    FileNumber = FreeFile    '
    'get a new file number
    FileNumber = FreeFile
    ' change path & file name as required
    Open "C:\Users\standard\Desktop\automation\ankur.csv" For Output As #FileNumber
    Print #FileNumber, temp

   'change the worksheet index by its real position or Name between quotes, eg Worksheets("Sheet1").
    For Each rw In Worksheets(1).Range("A1").CurrentRegion.Rows
        For Each cl In rw.Cells
            temp = temp & cl.Value & ";"
        Next cl
        Print #FileNumber, temp
        're=initialise string
        temp = ""
    Next rw
    Close #FileNumber
End Sub

打开文件进行输出后，您的代码立即具有

打印#FileNumber，temp

。由于

temp

未设置为任何值，因此它是一个空字符串，因此为空行

此外，您不需要使用

FreeFile

两次

问候,