MS Excel

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

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

Zkus problematiku popsat ještě jednou a lépe ;-)...
P.citovat

Dingo(5.10.2016 11:16)#032982

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

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

Š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)

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.