Поблема с сохранением файла

[borg]

Привет усем!!!
проблема наверное стара как мир...
... но всё же..

при вызове диалога сохранения файла немогу добиться, чтобы сохранялись только файлы c разрешением xls.
в диалоге открытия файла понятно .filters.add и погнал
в диалоге сохранения ругается матом на данный метод
подскажите люди добрые как сделать?[/u]

[Cyrax]

borg, что-то ты намудрил . нет у Common Dialog Controll такого метода... зато есть свойство .Filter.
использование:

Код: Выделить всё

CommonDialog1.Filter = "Книга Excel (*.xls)|*.xls|Документ Word (*.doc)|*.doc"

т.е. сначала описание, затем расширение, потм еще одно описание, затем расширение

[borg]

а у меня FileDialog
а не CommonDialog
кароче, вот мой код
как мне этот фильтр прописать?:

Dim fd As FileDialog


Set fd = Application.FileDialog(msoFileDialogSaveAs)
Dim vrtSelectedItem As Variant

'Use a With...End With block to reference the FileDialog object.
With fd
.AllowMultiSelect = False


If .Show = -1 Then
vrtSelectedItem = .SelectedItems(1)

Else
Exit Sub
End If
End With


Set fd = Nothing

[Cyrax]

2borg: ты где эти классы нашел?
если это Office VBA, то я видимо о нем чего-то не знаю...
а если это VB то там точно такого не может быть...
или может?

[borg]

это исть VBA

[dimix]

чтобы сохранялись только файлы c разрешением xls.

Ну вот! Только недавно узнал на этом форуме, что расширение - это параметр экрана , а теперь узнаю, что xls - это разрешение

Простите за флуд, не удержался. А может, это и не флуд? Зачем-то ведь существует понятие "терминология"?

[Konst_One]

это уже "этомология" пошла