Säumigen einen Ordner für "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 = Nothing
DoCmd.TransferText acImportFixed, "[IMPORT SPECIFICATION]", "[TABLE]", P, False
End Sub
Meine Frage ist, wie man den FileDialog-Standard, um einen bestimmten Ordner, wenn es zum ersten mal geöffnet wird?
Dank im Voraus für jede Hilfe in dieser Angelegenheit
Schauen Sie sich den code hier: stackoverflow.com/questions/9399651/...
InformationsquelleAutor Chuck | 2013-06-04
Du musst angemeldet sein, um einen Kommentar abzugeben.
Fügen Sie den Ordner-Pfad (einschließlich des abschließenden
\
)InitialFileName
. Zum Beispiel, um den dialog zu öffnen im home-Verzeichnis des Benutzers tun:Wenn Sie vergessen, die nachfolgende
\
,dann wird das Dialogfeld, noch in den richtigen Ordner
aber der Ordner name erscheint auch als Standard-name der ausgewählten Datei.
Dann wird der dialog Suche nach einem sub-Ordner mit dem gleichen Namen, die in der Regel nicht vorhanden.
Ich denke
Application.PathSeparator
statt"\"
besser sein wirdInformationsquelleAutor Chuck
Oder, bevor Sie den dialog öffnen, ändern Sie einfach die deault-Datei-Verzeichnis mit:
InformationsquelleAutor KathyM