[VBA/ACCESS] Openfiledialog en TransferSpreadsheet

[jvaneijk]

Ik heb een klein probleempje ik heb Access 2000 en ik wil een Excel 2000 Spreadsheet invoegen. Ik doe dit dus doormiddel van

code:

Docmd.TransferSpreadsheet(bla, bla, bla)

De tabelnaam laat ik opgeven door middel van een Inputbox das niet het probleem.
Maar als ik dit run dan krijg ik de volgende foutmelding:


Compileerfout:
Kan de methode of gegevenslid niet vinden

Hieronder de hele source:

code:

Private Sub btnImport_Click()
    Dim Tabel As String
    Dim fileToOpen As String
    Dim Excel As Object
    
    Tabel = InputBox("Geef een tabelnaam:", "Tabelnaam")
    fileToOpen = Application.Getopenfile("Excel files (*.XLS), *.XLS")
    Excel = DoCmd.TransferSpreadsheet(acImport, acSpreadsheetTypeExcel9, Tabel, fileToOpen, yes)
End Sub

Nu wil ik dus door middel van een fileopendialog een .XLS bestandje in voegen en dat gebruiken maar hij geeft dus fouten en ik kom er zelf niet uit.

Zou iemand mij kunnen helpen.
Heb me suf gezocht in [GOT search / Google / Technet / Microsofthelp] maar tevergeefs

[jvaneijk]

Deze mag dicht is al opgelost.

[OZ-Gump]

Waar krijg je de foutmelding? Je geeft aan dat je hem krijgt, maar niet waar... Verder vind ik het knap als je 'yes' mee kunt geven aan een functie. Tenzij je deze gedeclareerd hebt als variabele, is deze toch echt niet bruikbaar binnen VBA... Wellicht dat daar je probleem zit?

Edit:
1. Vlotte oplossing van je. Misschien beetje snel gepost?
2. Kijk ook eens naar het edit knopje ()
3. Wat is de oplossing uiteindelijk geweest?

[ Voor 35% gewijzigd door OZ-Gump op 23-01-2004 15:33 ]