VBA - import souborů – Visual Basic – Fórum – Programujte.com

Ahoj,
chtěl bych se zeptat jak naprogramovat tlačítko, po jehož stisknutí se otevře výběrové okno windows, kde si vyberu soubor, který načtu a následně importuju do accesu. Jak txt tak i xls. Zatím mám vyřešen pouze import, ale je tam natvrdo nastavena cesta.

Private Sub vias_Click()
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "VIAS", "D:/DATA/vias.xls", _
True
End Sub

Díky za pomoc

Tuto akci zajišťuje komponenta "Microsoft Common Dialog control" z objektů "ActiveX object...".
Umístíte komponentu do formuláře a na formulář umistíte tlačítko s následujícím kódem:

Private Sub Command1_Click()



    Dim MyString



    Me!CmnDlg.DialogTitle = "Výběr adresáře..."

'tady se mohou navolit pozadovane filtry

    Me!CmnDlg.Filter = "All Files(*.*)|*.*|"    

    Me!CmnDlg.FileName = ""



'tady se aktivuje zobrazeni dialogoveho okna

    Me!CmnDlg.ShowOpen    

'tady je vysledny retezec, ktery se pouzije pro kod pripojeni databaze

    MyString = Me!CmnDlg.FileName

End Sub