TopPicLogo TopPicText

Диалог сохранения Файла (msoFileDialog)

Private Function ShowFileDialog(InitPath$) As String
Dim dlgOpen As Object
Dim iResult As Integer
On Error GoTo ShowFileDialog_Error

    Set dlgOpen = Application.FileDialog(2) 'msoFileDialogSaveAs = 2
    With dlgOpen
         .Title = "Куда сохранять???"
        .InitialFileName = InitPath
        iResult = .Show
        If iResult = -1 Then 'Был сделан выбор - Была отмена: 0
            ShowFileDialog = .SelectedItems(1)
        End If
    End With

   On Error GoTo 0
   Exit Function

ShowFileDialog_Error:
    ShowFileDialog = ""
    'MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure ShowFileDialog of VBA Document Form_INBOUND"
End Function



Пример эксплуотации:


Dim sFilePath$, sInit$

    sInit = CurrentProject.Path 'Полный путь к папке аппликации (без слеша на конце)
    sFilePath = ShowFileDialog(sInit & "\о_торг2_1234.pdf")
    If sFilePath <> "" Then
        DoCmd.OutputTo acOutputReport, "о_торг2_1234", "PDFFormat(*.pdf)", sFilePath, True, , , acExportQualityPrint
    End If


Назад ToTop
L.E. 28.08.2017
Рейтинг@Mail.ru