MyTetra Share
Делитесь знаниями!
Диалог сохранения Файла (msoFileDialog)
19.07.2018
19:31
Раздел: VBA - Access - msa.polarcom.ru - 12 Папки и Файлы


Диалог сохранения Файла (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





Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования