MS Excel

Téma: Automatické doplnění názvu z obsahu buňky k .txt

Zaslal/a J.R 27.10.2016 7:55

Dobrý den,

mám excel soubor, který uložím do souboru s koncovkou .txt. Ale neumím měnit název souboru dle obsahu buňky např. A3 = číslo 10, umím jen ukládat název souboru neměnný v tomto případě "Test.txt" viz zdrojový kód:

Sub uloz()

Dim i As Integer
Dim zapis As String
Dim cesta As String, jmeno As String, filtr As String, nadpis As String

jmeno = "Test.txt" 'nebo když chces aby cerpalo nazev z listu tak tohle => Sheets(1).Name & ".txt"
filtr = "Text Soubory (*.txt), *.txt"
nadpis = "Vyberte cestu kam uložit textový soubor"
cesta = Application.GetSaveAsFilename(jmeno, filtr, , nadpis, "Uložit")

If cesta <> "False" Then
Open cesta For Output As #1
i = 1
Do
zapis = Cells(i, 1) & ";" & Cells(i, 2) ' tady jsem upravil kod
Print #1, zapis ' a tady místo write jsem dal print (ten nedelá uvozovky)
i = i + 1
Loop Until i = 35
Close #1
End If
End Sub

Nevím jak přesně zapsat kód jmeno = Range("A3").Name&."txt" - aby to prostě bralo název z obsahu buňky.

Děkuji za radu.

J.R.

Zaslat odpověď >

eLCHa(27.10.2016 8:19)#033213

jmeno = Range("A1").Value & ".txt"
pokud A1 = 10
vrátí 10.txt

Jen poznámka
Dávat název podle čísla nemusí být úplně OK, pokud je tam desetina...citovat

J.R(27.10.2016 9:08)#033215

Děkuji. Výborně funguje!citovat

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.