Добрый день
произвожу экспорт по следующему коду:

+

Sub test1() Dim Exap As Object Dim ExApWo As Excel.Workbook Dim mysheet As Excel.Worksheet Dim FileD As FileDialog Set FileD = Application.FileDialog(msoFileDialogFolderPicker) With FileD .Title = "Select destination file" .ButtonName = "Select" .Filters.Clear .Filters.Add "*.*", "*.*", 1 .InitialView = msoFileDialogViewList .AllowMultiSelect = False DestF = .Item If .Show = 0 Then GoTo exit_sub End With Set FileD = Nothing Set Exap = CreateObject("Excel.Application") Set ExApWo = Exap.workbooks.Open(DestF) Set mysheet = ExApWo.Sheets(1) With mysheet FiR = .UsedRange.Row FiC = .UsedRange.Column LaR = .UsedRange.Row + .UsedRange.Rows.Count - 1 LaC = .UsedRange.Column + .UsedRange.Columns.Count - 1 .Range(Cells(FiR + 1, FiC), Cells(LaR, LaC)).Delete Set rs = CurrentDb.OpenRecordset("soft_ok") .Range("A2").CopyFromRecordset rs rs.Close End With ....

но при выполнении кода, компилятор ругается на ".Filters.Add "*.xls*", "*.xls*", 1", с ошибкой объект не поддерживает данное свойство или метод

в чем может причина? помогите плз

http://www.sql.ru/forum/1116616/problema-pri-eksporte-v-excel