[VBA/ACCESS] FileDialog

[jvaneijk]

Ik Ben nu bezig in Access 2k3 om een bestand te openen door middel van een openfiledialog, Maar nu zit ik met een probleem. Hoe haal ik een string uit dat FileDialog waarin de bestandsnaam staat opgeslagen ik zat al met SelectedItems maar volgens mij is dit hem niet. Iig in de help staat dat dat het Path geeft waar het bestand staat volgens mij en dus niet de bestandsnaam zelf.

code:

Private Sub btnImport_Click()
    Dim Tabel As String
    Dim Bestand As String
    Dim dlgOpen As FileDialog
    Dim vrtSelectedItem As Variant

    Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
    With dlgOpen
        .Filters.Add "Excel bestand", "*.xls", 1
        '.Show
        .AllowMultiSelect = False
        If .Show = -1 Then
            For Each vrtSelectedItem In .SelectedItems
            Next
        'If the user presses Cancel...
        Else
        End If

    End With

  
    'Tabelnaam opgeven
    Tabel = InputBox("Voer een tabelnaam in:", "Tabelnaam")
    
    
    'Excel bestand importeren in tabel
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, Tabel, vrtSelectedItem, True, ""
    Knop4.SetFocus
    btnImport.Enabled = False
    
    

End Sub

Dit is de betreffende code, zou iemand mij hiermee kunnen helpen want mij lukt het gewoon echt niet. Ik zou het erg fijn vinden als het ooit nog eens gaat lukken met dit stomme ding ben al 3 dagen bezig met dit projectje voor dat éne knopje :

[WildernessChild]

1. De help is je vriend
2. Probeer dit eens:

code:

Private Sub btnImport_Click()
    ...
    With dlgOpen
        ...
        If .Show = -1 Then
            If .Files.Count = 1 Then
                DoeIetsLeuksMet(.Files(1))
            End If
        'If the user presses Cancel...
        Else
        End If
    End With
    ...
End Sub

Als je ook meerdere files tegelijk wilt kunnen verwerken, moet je een For-lusje maken.
Ik heb bijna geen VBA-ervaring en draai momenteel Linux, dus kan niets garanderen

[ Voor 37% gewijzigd door WildernessChild op 25-01-2004 22:18 ]