Defaulting a folder for FileDialog in VBA
问题 Private Sub Command93_Click() Dim f As Object Dim strFile As String Dim strFolder As String Dim varItem As Variant Dim P As String Dim DeleteEverything As String DoCmd.SetWarnings False DeleteEverything = "DELETE * FROM [TABLE]" DoCmd.RunSQL DeleteEverything Set f = Application.FileDialog(3) f.AllowMultiSelect = False If f.Show Then For Each varItem In f.SelectedItems strFile = Dir(varItem) strFolder = Left(varItem, Len(varItem) - Len(strFile)) P = strFolder & strFile Next End If Set f =