Использование 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