Sub ImportOLDI()
Dim wkName If Application.Dialogs(xlDialogOpen).Show Then Set wkName = Application.Caption End If Лист1.CommandButton1.Caption = wkName End Sub Процедура эта написана в отдельном модуле. Не понимаю, что делаю неправильно |
А тебе что нужно, просто название приложения? тогда попробуй вообще .caption убери
Set wkName = Application |
Время: 18:38. |
Время: 18:38.
© OSzone.net 2001-