-2

[! [Желтые листы, которые я хочу игнорировать, когда я делаю экспорт, команда 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

1 ответ1

0

Вы не можете сохранить только часть листа. Вам нужно удалить диапазон, который вам не нужен, перед экспортом.
Вы не потеряете данные, так как сохранили оригинальную книгу.

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

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .