使用msoffice 2013。
有2个工作表。首先不使用autofilter
。 autofilter 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