如何更正语法错误(错误1004-范围类中的删除方法错误)

时间:2019-07-05 02:31:14

标签: excel vba

使用msoffice 2013。 有2个工作表。首先不使用autofilterautofilter ON位居第二 我将此工作表上传到msaccess中,并且第一个工作表已100%工作,但是第二个尝试删除包含"runtimne error 1004"的第一行时启动错误autofilter. 我的错误是sintax和.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

的第一行

0 个答案:

没有答案