VBA - import souborů – Visual Basic – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

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

 

Smouker
~ Anonymní uživatel
2 příspěvky
6. 8. 2009   #1
-
0
-

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

Nahlásit jako SPAM
IP: 212.67.67.–
19. 1. 2010   #2
-
0
-

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

Nahlásit jako SPAM
IP: 90.179.63.–
Zjistit počet nových příspěvků

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 3 hosté

Moderátoři diskuze

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032024 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý