[ACCESS]

[ODISSEO10]

Salve a tutti, il problema è questo:

devo importare un file .xls in una tabella Access.
Per l'import uso il comando "DoCmd.TransferSpreadsheet" ma il percorso/file varia e lo deve scegliere l'utente.

Per fare una cosa del genere in Excel utilizzo il comando VBA "application.Dialogs().show" che fa apparire la maschera di scelta file all'utente.

Ma in Access VBA come si fa?
Spero di essere stato chiaro.

Grazie a tutti :)

[yorkeiser]

Eccoti un esempio di prova:

Private Sub Command0_Click()
Dim FD As FileDialog
Dim Percorso As String

Set FD = Application.FileDialog(msoFileDialogFilePicker)
'FD.Filters.Delete
FD.Filters.Add "Cartella di Lavoro di Microsoft Excel", "*.xls", 1
FD.Title = "Selezionare il file da aprire..."
FD.Show

On Error GoTo No_File
Percorso = FD.SelectedItems(1)
MsgBox "Hai aperto il file " & Percorso

No_File:

End Sub

Devi importare la Microsoft Office Object Library per poter utilizzare un oggetto di tipo FileDialog

[ODISSEO10]

GRAZIE yorkeiser

Sei Grande! Non avevo trovato nessuna soluzione semplice come la tua.
Ma dove hai preso l'idea?
Grazie di nuovo

Ciao :D

[yorkeiser]

Ma figurati... Il codice l'ho riesumato da un vecchio progetto, e suppongo che all'epoca l'avessi preso pari pari da qualche sito linkato dall'amico google (mi rifiuto di studiare il VBA :))