導出 header 和每兩行由宏從 Excel 到 csv 的問題

Question

我想將數據從主 Excel 導出到 CSV 文件。

如您所見，第一行是 header，每兩行將復制到新的 CSV 文件中。 CSV 文件由 City（從沒有變音符號的行）和預定義的單詞命名。 這是我的宏：

    Sub Macro1()

Dim newWB As Workbook
Dim myWS As Worksheet
Dim lastRow As Long

Set myWS = ThisWorkbook.Worksheets("ExportSamospravy")

With myWS

    lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

    For x = 2 To lastRow
    
        Set newWB = Workbooks.Add

        newWB.Sheets("Hárok1").Rows(1) = myWS.Rows(1).Value
        newWB.Sheets("Hárok1").Rows(2) = myWS.Rows(x).Value
        newWB.Sheets("Hárok1").Rows(3) = myWS.Rows(x).Value

        
        newWB.SaveAs Filename:="C:\Users\andre\OneDrive\prispevky\smart-cities\data\1-2021\Export\EconomySamospravy\" & Range("I2").Value & "EconomySamospravy", FileFormat:=xlCSV

        Columns(9).EntireColumn.Delete
        Columns(9).EntireColumn.Delete

        newWB.Close True
        
    Next x
    
End With

End Sub

我的問題是只有第 2019 行乘以第二行。 還有保存的問題。

Answer 1

我找到了解決方案

    For x = 2 To lastRow Step 2
n = x + 1
    Set newWB = Workbooks.Add

現在它完美導出！