как исправить синтаксическую ошибку в (ошибка 1004 - Удалить ошибку метода в классе Range) - PullRequest
0 голосов
/ 05 июля 2019

Использование msoffice 2013. Есть 2 рабочих листа. сначала без autofilter. Второй с autofilter ON Я загружаю эти рабочие листы в msaccess и первый работает на 100%, но второй запускает ошибку "runtimne error 1004" при попытке удалить первую строку, содержащую autofilter. Моя ошибка в синтаксисе и размещении .autofiltermode в коде ниже

Я пробовал 17 различных способов использования .autofiltermode, .filtermode и т. Д., А .autofiltermode всегда возвращает FALSE, то есть не оценивается, имеет неверный синтаксис и находится в неправильном месте

Function proceso_archivo_excel()

' Rutina para eliminar la 1a fila y formatear las columnas

    Dim oAPP As Object
    Dim xl As Object ''Early binding: New Excel.Application
    Dim xls As Object

        Set xl = CreateObject("Excel.Application")

        With xl
        .Visible = False
        .displayalerts = False
        .Workbooks.Open global_path_archivo & "temp1.xlsx"

        .sheets(1).Select

        ' FIRST FILE WITHOUT AUTOFILTER

        If global_tipo_archivo = "ingresos y costos" And global_empresa = "DS" Then

            .rows("1").Delete
            .columns("A:D").numberformat = "text"
            .columns("E").numberformat = "0.00"

        End If

        'SECOND FILE WITH AUTOFILTER ON

        If global_tipo_archivo = "ingresos y costos" And global_empresa = "IN" Then

            .rows("1").Delete    'HERE IS THE ERROR

            .columns("A:B").numberformat = "text"
            .columns("C").numberformat = "0.00"

        End If

        .ActiveWorkbook.Close (True)
        .Quit

    End With

        Set xl = Nothing

End Function

Мне нужно удалить первую строку, содержащую autofilter

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...