в 16:33, 26 мая 2010

2010-05-26T16:33:00Z

Admin: 1 версия

2010-05-26T12:47:03Z

1 версия

Новая страница

==Displays a dialog box that allows the user to select a directory. The selected directory name (or "Canceled") is then displayed by using the MsgBox function.==



<source lang="vb">

Sub GetAFolder()
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Please select a location for the backup"
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Canceled"
Else
MsgBox .SelectedItems(1)
End If
End With
End Sub
</source>

==FileDialogFilters==



<source lang="vb">

Private Sub cmdGetFile_Click()
Dim fd As FileDialog
Dim ffs As FileDialogFilters
Dim vItem
On Error GoTo Problem
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
Set ffs = .Filters
With ffs
.clear
.add "Pictures", "*.jpg"
End With
.AllowMultiSelect = True
If .show = False Then Exit Sub
For Each vItem In .SelectedItems
Debug.Print vItem
Next vItem
End With
Exit Sub
Problem:
MsgBox "That was not a valid picture"
End Sub
</source>

==FileDialog with JPG file filter==



<source lang="vb">

Private Sub cmdGetFile_Click()
Dim fd As FileDialog
Dim ffs As FileDialogFilters
On Error GoTo Problem
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
Set ffs = .Filters
With ffs
.clear
.add "Pictures", "*.jpg"
End With
.AllowMultiSelect = False
If .show = False Then Exit Sub
Image1.Picture = LoadPicture(.SelectedItems(1))
End With
Exit Sub
Problem:
MsgBox "That was not a valid picture"
End Sub
</source>

==Get selected paths==



<source lang="vb">

Public Sub ShowFileDialog()
Dim fd As FileDialog
Dim selectedPaths() As String
Dim I As Integer
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd "Configure dialog box
.AllowMultiSelect = True
.FilterIndex = 2
.Title = "Select Excel File(s)"
.InitialFileName = ""
"Show the dialog and collect file paths selected by the user
If .Show = -1 Then "User clicked Open
ReDim selectedPaths(.SelectedItems.Count - 1)
"Store file paths for later use.
For I = 0 To .SelectedItems.Count - 1
selectedPaths(I) = .SelectedItems(I + 1)
Next I
End If
.Execute "Open selected files
End With
Set fd = Nothing
End Sub
</source>

==Open File Open Dialog and get the selection (Dialog Types Used with the FileDialog Object)==



<source lang="vb">

Dialog Type VBA Constant (FileDialogType)
Open msoFileDialogOpen
Save msoFileDialogSaveAs
File Picker msoFileDialogFilePicker
Folder Picker msoFileDialogFolderPicker
Sub openDlg()
Dim fc As FileDialogFilters
Dim ff As FileDialogFilter
Set fc = Application.FileDialog(msoFileDialogOpen).Filters
Set ff = fc.Item(1)
MsgBox ff.Description & ff.Extensions "Displays "AllFiles" and *.*
End Sub
</source>

==Set the AllowMultiSelect property of the dialog box to allow multiple selections in the dialog box==



<source lang="vb">

Sub OpenDialog()
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog( _
DialogType:=msoFileDialogOpen)
With dlgOpen
.AllowMultiSelect = True
.Show
End With
msgBox dlgOpen.SelectedItems(1)
End Sub
</source>

==The FileDialog Object==



<source lang="vb">

Sub SaveDialog()
Dim dlgSaveAs As FileDialog
Set dlgSaveAs = Application.FileDialog(DialogType:=msoFileDialogSaveAs)
dlgSaveAs.Show
msgBox dlgSaveAs.SelectedItems(1)
End Sub
</source>

==User selects path to save HTML files==



<source lang="vb">

Private Sub cmdChangePath_Click()
Dim fd As FileDialog
Dim I As Integer
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.AllowMultiSelect = False "Allow only one selection
.Title = "Select Folder"
.InitialFileName = ""
If .Show = -1 Then
MsgBox .SelectedItems(1)
End If
End With
Set fd = Nothing
End Sub
</source>

==Use the SelectedItems property of the FileDialog object to return the FileDialogSelectedItems collection.==



<source lang="vb">

Sub selected()
Dim si As FileDialogSelectedItems
Set si = Application.FileDialog(msoFileDialogOpen).SelectedItems
End Sub
</source>

==You can use the Add method of the FileDialogFilters collection object to create your own list of filter==



<source lang="vb">

Sub fileDlg()
Dim fd As FileDialog
Dim imagePath As String
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "All files", "*.*"
.Filters.Add "Image", "*.jpg", 1
.FilterIndex = 1
.InitialFileName = ""
.Title = "Select JPEG file"
If .Show = -1 Then "User pressed action button
imagePath = .SelectedItems(1)
End If
End With
End Sub
</source>

← Предыдущая	Версия 16:33, 26 мая 2010
(нет различий)

VBA/Excel/Access/Word/File Path/FileDialog - История изменений

в 16:33, 26 мая 2010

Admin: 1 версия