< návrat zpět

MS Excel

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

Zaslal/a Pavel-Kvetak 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ěď >
Pavlus(4.10.2016 19:22)#032966
avatar
Zkus problematiku popsat ještě jednou a lépe ;-)...
P.citovat
Dingo(5.10.2016 11:16)#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
Pavlus(5.10.2016 12:31)#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
elninoslov(5.10.2016 19:29)#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 Subcitovat

Uživatelské menu

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

Menu

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje