Здравствуйте, помогите пожалуйста. Пишу макрос, чтобы экспортировал таблицу в excel, не получается написать, чтобы при экспорте, в excel ставился фильтр на поле, и чтобы в этом поле исключить пустые значения. Ниже приведены screen. screen1 сейчас вот так экспортируется, screen2 а надо вот так. Помоги пожалуйста. Заранее спасибо! Ниже скину код макроса. screen1 
screen2 
sub exportReportToExcel
Set QvDoc = ActiveDocument
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = true
objExcelApp.DisplayAlerts = false
dim qvObjectId
Set objExcelDoc = objExcelApp.Workbooks.Add
objExcelDoc.Sheets(1).Name="Табличные данные"
objExcelDoc.Sheets(2).Delete
objExcelDoc.Sheets(2).Delete
set objExcelSheet=objExcelDoc.Sheets(1)
objExcelSheet.Select set objSource = QvDoc.GetSheetObject("CH01") Call objSource.GetSheet().Activate()
Set objCurrentSheet = objExcelDoc.Sheets("Табличные данные")
Call objSource.CopyTableToClipboard(true)
' Set objCurrentSheet = objExcelDoc.Sheets("Лист с данными")
objCurrentSheet.Range("A2").Select
objExcelDoc.Sheets("Табличные данные").Paste set objExcelSheet=objExcelDoc.Sheets(1) objExcelSheet.Select set objSource = QvDoc.GetSheetObject("CH01")
objExcelDoc.Sheets("Табличные данные").Range("A2:AH2").WrapText = True
objExcelDoc.Sheets("Табличные данные").Range("A2:AH1000").Borders.Color = Black
objExcelDoc.Sheets("Табличные данные").Range("E:F").NumberFormat = "dd/mm"
objExcelDoc.Sheets("Табличные данные").Range("G:K").NumberFormat = "dd/mm h:mm"
objExcelDoc.Sheets("Табличные данные").Range("M:O").NumberFormat = "dd/mm h:mm"
objExcelDoc.Sheets("Табличные данные").Range("T:U").NumberFormat = "dd/mm h:mm"
objExcelDoc.Sheets("Табличные данные").Range("AH:AH").NumberFormat = "#,##0.00 _?"
'objExcelDoc.Sheets("Табличные данные").Range("L:L").AutoFilter Field=12, Criteria1="<>"
end sub
| 
