Excel-Tabelle in CSV exportieren - aber die ersten 10 Zeilen ausschließen

Question

[![Gelbe Blätter möchte ich beim Exportieren ignorieren. Der Befehl Ws.rows löscht die ersten 10 Zeilen, aber das VBA-Skript exportiert trotzdem alle Blätter als CSV, was ich nicht möchte, da alle Blätter Daten enthalten. Ich habe die Tabelle beigefügt. Die erste Seite ist der Index. Unten sehen Sie die Blätter mit den Übernachtungspreisen.

Sub ExportCSV()

Application.DisplayAlerts = False
ActiveWorkbook.Save

Dim ws As Worksheet
Dim path As String

path = ActiveWorkbook.path & "\" & Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1)

    For Each ws In ActiveWorkbook.Worksheets
        ws.Rows("1:10").Delete
        If ws.Name <> "Document Control" And ws.Name <> "Index sheet" Then           
            'With ws
                ws.SaveAs filename:=path & "_" & ws.Name & ".csv", FileFormat:=xlCSV, CreateBackup:=False
            'End With
        End If
    Next ws
Application.DisplayAlerts = True
End Sub

Answer 1

Sie können nicht nur einen Teil eines Blattes speichern. Sie müssen den Bereich, den Sie nicht benötigen, vor dem Exportieren löschen.
Sie verlieren die Daten nicht, da Sie die ursprüngliche Arbeitsmappe gespeichert haben.

ws.Rows("1:10").Delete