< návrat zpět

MS Excel


Téma: Generuj z excelu txt soubor a název čti z bunky rss

Zaslal/a 4.10.2016 16:32

Dobrý den/ Ahoj,

Větší část úkolu už mám za sebou, teď už mi chybí jen do tohoto kódu přidat, čti název txt. souboru, který ukládáš z bunky.

Můj aktuální kód:
Sub zapis_NV_OBA()
Dim iCntr
Dim strFile_Path As String
strFile_Path = "C:\Users\pkoci\Desktop\NV000_010120_new_1909075239.txt"
Open strFile_Path For Output As #1
For iCntr = 1 To 10
Print #1, Range("A" & iCntr)
Next iCntr
Close #1
End Sub

Díky

Zaslat odpověď >

#032966
avatar
Zkus problematiku popsat ještě jednou a lépe ;-)...
P.citovat
#032982
avatar
Vysvětlení je jasné. Asi by stačilo změnit jeden řádek např. takto, pro název v B1:
strFile_Path = "C:\Users\pkoci\Desktop\" & Range("B1") & ".txt"citovat
#032984
avatar
Vzhledem k interpunkci, která je využita v zadání, mi to jasné nebylo... ;-)

Pokud chce toto, pak měl napsat:
"čti název txt souboru, který ukládáš, z buňky",
a nikolov:
"čti název txt. souboru, který ukládáš z bunky".
Stěžejní je ta čárka za "ukládáš", proto mě to nedávalo smysl.

Já si říkal, co myslí tím čtením názvu souboru, který se ukládá z buňky :D.
P.citovat
#032987
elninoslov
Šlo by to aj bez cyklu:
Sub zapis_NV_OBA()
Dim strFile_Path As String
strFile_Path = "C:\Users\pkoci\Desktop\" & Range("B1") & ".txt"
Open strFile_Path For Output As #1
Print #1, Join(WorksheetFunction.Transpose(Range("A1:A10")), vbCrLf)
Close #1
End Sub
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

Vytvoření tabulky dovolených excel 2007

MisaKl • 19.9. 11:10

Excel po otevření změní filtry

Pepe123 • 19.9. 9:44

nahodne cisla

mepexg • 18.9. 12:09

nahodne cisla

pavol14pavol • 17.9. 21:46

Nájsť správne číslo a dosadiť novú hodnotu

Alindros • 17.9. 13:21

Nájsť správne číslo a dosadiť novú hodnotu

Alindros • 17.9. 13:15

Nájsť správne číslo a dosadiť novú hodnotu

Alindros • 17.9. 13:13