MS Excel

Téma: proměnná v příkazovém řádku

Zaslal/a bordov 4.2.2013 19:56

Mám následující příkazové řádky pro import dat.

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT; C:\Users\Lada\Desktop \programy gordic\datové soubory\KOFF0001.TXT", Destination _
:=Range("$A$1"))
.Name = "KOFF1001"
.FieldNames = True
… tady to pokračuje. Vše je v pořádku, ale já bych potřeboval cestu C:\Users\Lada\Desktop mít
jako proměnnou, kterou bych si někde načetl. Nevím, ale jak to zapsat. Zkoušel jsem následující:

cesta=“ C:\Users\Lada\Desktop“
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT; & cesta & \programy gordic\datové soubory\KOFF0001.TXT", Destination _
:=Range("$A$1"))
.Name = "KOFF1001"
.FieldNames = True

ale to mi nefunguje.

Může mi někdo prosím poradit ?

Díky za radu.

Laďa B.

Zaslat odpověď >

AL(4.2.2013 20:05)#011392

Na prvý pohľad sa mi zdá, že chyba je v:
"TEXT; & cesta & \programy gordic\datové soubory\KOFF0001.TXT", Destination _
nemalo by tam byť náhodou:
"TEXT;" & cesta & "\programy gordic\datové soubory\KOFF0001.TXT", Destination _citovat

Opičák(4.2.2013 20:28)#011393

Pokud chceš cestu i s názvem souboru vyhledat makrem, zkus toto. Do svého makra to musíš samozřejmě nějak "namontovat"

Sub najít_cestu_k_souboru()
Dim soubor As String
Sheets("List1").Select
' zjištení cesty
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = C:
.Title = "Vyber adresar"
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Zrušeno": Exit Sub
Else
soubor = .SelectedItems(1)
' soubor je kompletní cesta k souboru i s jeho názvem
End If
End With
MsgBox "proměnnou souborv ve VBA použij jako kompletní cestu k souboru co potřebuješ " & soubor
End Subcitovat

Téma: proměnná v příkazovém řádku

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje