Вызов диалогового окна "Сохранение как"

[lexincton]

Может кто подскажет как вызвать окно, появляющееся при сохранении с выбором каталога и имени??

[Wireless_Fidelity]

Есть соответствующий ActiveX компонент:

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

Private Sub fnShellBrowseForFolderVB()
    Dim objShell   As Shell
    Dim ssfWINDOWS As Long
    Dim objFolder  As Folder
   
    ssfWINDOWS = 36
    Set objShell = New Shell
        Set objFolder = objshell.BrowseForFolder(0, "Example", 0, ssfWINDOWS)
            If (Not objFolder Is Nothing) Then
                'Add code here
            End If
        Set objFolder = Nothing
    Set objShell = Nothing
End Sub

[lexincton]

Есть соответствующий ActiveX компонент:

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

Private Sub fnShellBrowseForFolderVB()
    Dim objShell   As Shell
    Dim ssfWINDOWS As Long
    Dim objFolder  As Folder
   
    ssfWINDOWS = 36
    Set objShell = New Shell
        Set objFolder = objshell.BrowseForFolder(0, "Example", 0, ssfWINDOWS)
            If (Not objFolder Is Nothing) Then
                'Add code here
            End If
        Set objFolder = Nothing
    Set objShell = Nothing
End Sub

Я в чистый макрос вставляю, на 1 строку ругается...

[Wireless_Fidelity]

Это отдельная функция, её нужно вызвать из CATMain, либо же использовать её код:

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

Sub CATMain()

    Dim objShell   As Shell
    Dim ssfWINDOWS As Long
    Dim objFolder  As Folder
   
    ssfWINDOWS = 36
    Set objShell = New Shell
        Set objFolder = objshell.BrowseForFolder(0, "Example", 0, ssfWINDOWS)
            If (Not objFolder Is Nothing) Then
                'Add code here
            End If
        Set objFolder = Nothing
    Set objShell = Nothing

End Sub

[lexincton]

Это отдельная функция, её нужно вызвать из CATMain, либо же использовать её код:

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

Sub CATMain()

    Dim objShell   As Shell
    Dim ssfWINDOWS As Long
    Dim objFolder  As Folder
   
    ssfWINDOWS = 36
    Set objShell = New Shell
        Set objFolder = objshell.BrowseForFolder(0, "Example", 0, ssfWINDOWS)
            If (Not objFolder Is Nothing) Then
                'Add code here
            End If
        Set objFolder = Nothing
    Set objShell = Nothing

End Sub

Тоже пробовал, в таком варианте или вообще ничего не происходит или ругается на shell 8 строка - класс неопределен!

[Wireless_Fidelity]

Уберите As Shell вообще.
Вместо New Shell напишите CreateObject("Shell.Application")

[lexincton]

Спасибо огромное!) только как сделать, чтобы objFolder содержал в себе полный путь?

[Wireless_Fidelity]

objFolder.Self.Path или CStr(objFolder)

[lexincton]

Спасибо! Все получилось)

[lexincton]

Оказалось все проще через вызов CATIA-ой комманды!