johant1957
Gebruiker
- Lid geworden
- 30 sep 2009
- Berichten
- 10
Hoi,
Ik gebruik onderstaande code om een verkenner te openen in mijn access omgeving. De gebruiker wil een .xls bestand kunnen selecteren dat geimporteerd moet worden. De import werkt prima, alleen het importbestand moet variabel worden. Kan iemand mij hier mee helpen?
Code:
Sub Show_BrowseDirectory_dialog()
Dim dirInfo As BROWSEINFO
Dim path As String
Dim r As Long, X As Long, pos As Integer
dirInfo.pidlRoot = 0&
dirInfo.lpszTitle = "Selecteer een map"
dirInfo.ulFlags = &H1
X = SHBrowseForFolder(dirInfo)
path = Space$(512)
r = SHGetPathFromIDList(ByVal X, ByVal path)
If r Then
pos = InStr(path, Chr$(0))
MsgBox ("U heeft geselecteerd := " & Left(path, pos - 1))
Else
MsgBox ("Selecteer een folder")
End If
End Sub
Alvast hartelijk bedankt
Johan
Ik gebruik onderstaande code om een verkenner te openen in mijn access omgeving. De gebruiker wil een .xls bestand kunnen selecteren dat geimporteerd moet worden. De import werkt prima, alleen het importbestand moet variabel worden. Kan iemand mij hier mee helpen?
Code:
Sub Show_BrowseDirectory_dialog()
Dim dirInfo As BROWSEINFO
Dim path As String
Dim r As Long, X As Long, pos As Integer
dirInfo.pidlRoot = 0&
dirInfo.lpszTitle = "Selecteer een map"
dirInfo.ulFlags = &H1
X = SHBrowseForFolder(dirInfo)
path = Space$(512)
r = SHGetPathFromIDList(ByVal X, ByVal path)
If r Then
pos = InStr(path, Chr$(0))
MsgBox ("U heeft geselecteerd := " & Left(path, pos - 1))
Else
MsgBox ("Selecteer een folder")
End If
End Sub
Alvast hartelijk bedankt
Johan
