Здравствуйте. Делаю выгрузку данных из формы аксесса в excel. Вот код выгрузки:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
Dim PrintRep As Object
Dim ExportData As DAO.Recordset
Dim LastRow As Integer
Set PrintRep = CreateObject("Excel.Application")
Set WB = PrintRep.Workbooks.Add
Set WS = WB.Worksheets(1)
Set ExportData = Me.FactOfJobsForPeriod.Form.Recordset
WS.Range("A1:H1").Merge
WS.Rows(1).Font.Bold = True
WS.Rows(1).Font.Size = 12
WS.Rows(7).Font.Bold = True
ExportData.MoveFirst
WS.Range("D8").CopyFromRecordset ExportData
LastRow = WS.usedRange.Row + WS.usedRange.Rows.Count - 1
WS.usedRange.Columns.autofit
WS.cells(LastRow + 2, 2).Formula = "=SUBTOTAL(109,O8:O" & LastRow & ")"
WS.cells(LastRow + 3, 2).Formula = "=SUBTOTAL(109,R8:R" & LastRow & ")"
WS.cells(LastRow + 4, 2).Formula = "=SUBTOTAL(109,T8:T" & LastRow & ")"
WS.cells(LastRow + 5, 2).Formula = "=SUBTOTAL(109,U8:U" & LastRow & ")"
WS.cells(LastRow + 6, 2).Formula = "=SUBTOTAL(109,V8:V" & LastRow & ")"
WS.cells(LastRow + 7, 2).Formula = "=SUBTOTAL(109,W8:W" & LastRow & ")"
WS.cells(LastRow + 8, 2).Formula = "=SUBTOTAL(109,X8:X" & LastRow & ")"
WS.cells(LastRow + 9, 2).Formula = "=SUBTOTAL(109,Y8:Y" & LastRow & ")"
WS.Range("D8:AA" & LastRow).Select
WS.Selection.AutoFilter
PrintRep.Visible = True
кодом
1.
LastRow = WS.usedRange.Row + WS.usedRange.Rows.Count - 1
определяю номер последней строки выгруженного диапазона.
Проблема возникла в коде :
1.
2.
WS.Range("D8:AA" & LastRow).Select
WS.Selection.AutoFilter
Здесь я попытался поставить автофильтр. На строку
ругается:
Object Doesn't support this property or method . Что не так?
1.
WS.Range("D8:AA" & LastRow).Select
работает - лист выходит с выделенным диапазоном.
Пробовал в Excel записывать макрос по установке фильтра. Он написал 2 строчки:
1.
2.
Range("D8:AA100").Select
Selection.Autofilter
я попробовал сделать по этому образцу - не работает...
писал
и
никакой из вариантов не проходит...
