[! [Желтые листы, которые я хочу игнорировать, когда я делаю экспорт, команда Ws.rows удаляет первые 10 строк, но скрипт vba по-прежнему экспортирует все листы как CSV, что мне не нужно, все листы содержат данные. Я приложил электронную таблицу, первая страница - указатель, внизу вы увидите листы с ценой в течение ночи.
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