< návrat zpět

MS Excel


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

Zaslal/a 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ěď >

icon #033213
eLCHa
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
#033215
avatar
Děkuji. Výborně funguje!citovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

Makro na opakovanou změnu barvy tlačítka

Jiří497 • 26.1. 20:31

Pozvyhledat s vnořeným COUNTIF

Jiří497 • 26.1. 19:36

Makro na opakovanou změnu barvy tlačítka

alois1111 • 26.1. 13:24

Pozvyhledat s vnořeným COUNTIF

majovy-bycek • 26.1. 12:45

Makro na opakovanou změnu barvy tlačítka

alois1111 • 26.1. 12:32

Makro na výmaz hodnoty pouze v modře podbarvené

Anonym • 26.1. 11:29

SVYHLEDAT (generovaná cesta oblasti vyhledávaní)

eLCHa • 26.1. 10:05