Makro pro uložení souboru Vyřešeno

[fmartin1]

Ahoj,

mám udělané makro, které mi jeden list z mnoha v souboru xls ukládá jako nový soubor aaa.csv na pevně zadané místo ( C:\DATA\...\aaa.csv).
Mohl by mi někdo poradit, jak nastavit, aby se soubor aaa.csv ukládal do stejného adresáře jako je zdrojový xls soubor?

Díky moc za pomoc.

Pěkný den
Martin

[Reklama]

[karel.laska]

Zdravím,

co takto?

Dim cestaadresare As String
cestaadresare = ThisWorkbook.Path
cestaadresare=cestaadresare & "\"


a to dáš místo svojí cesty

Mě to ovšem nijak extra nefunguje, protože jsem na PC omezen právy...

S pozdravem Karel

[fmartin1]

Ahoj,
díky moc za super rychlou reakci.
Vypadá to super, ale mám problém s tím, že neznám cestu adresáře.
Soubor xls používá více lidí na vlastních PC a každý bude mít soubor někde na vlastním PC.
Potřeboval bych, aby si to makro automaticky poznalo aktuální cestu souboru xls.

Díky moc.
Martin

[karel.laska]

Zdravím,

Vyzkoušej si to například takto...

Dim cestaadresare As String

Sub Test()
cestaadresare = ThisWorkbook.Path
cestaadresare=cestaadresare & "\"
msgbox(cestaadresare)
End Sub

Do promenne cestaadresare se uloží cesta otevřeného excelu...

Karel

[fmartin1]

Ahoj,

už je to super.
Pokud bych mohl ještě poprosit - ale to už je nabídneš prst a ukousne ti ruku:
Bylo by krásné, kdyby se do názvu souboru dalo zadat natvrdo "aaa" + text z listu1 a buňky A1

A ještě jeden problém. Uložil jsem makro, které mi ukládá soubor ve formátu csv se středníkem ActiveWorkbook.SaveAs Filename:="C:\Users\martin\Desktop\Sešit8.csv", _ FileFormat:=xlCSV, CreateBackup:=False

KDYŽ ALE přepíšu makro ActiveWorkbook.SaveAs Filename:=cestaadresare, _ FileFormat:=xlCSV, CreateBackup:=False, tak mi to ukládá sice v csv, ale data jeou oddělena čárkou.

Jak soubor uložit do aktuálního adresáře, s názvem souboru s buňky A1 a při zachování csv se středníkem?


Děkuji moc za pomoc.
Martin

[karel.laska]

Zdravím,

no koukam jak umim, ale asi neumim jak bych chtěl...
To první je bez problémů, to druhé je však horší.

Dim cestaadresare As String
Sub a()
nazev = Cells(1, 1)

cestaadresare = ThisWorkbook.Path
cestaadresare = cestaadresare & "\" & nazev & ".csv"
ActiveWorkbook.SaveAs Filename:= cestaadresare, FileFormat:=xlCSV, CreateBackup:=False

End Sub

S tím oddělením si ale nevím rady.
Možná pomůže podobné téma viewtopic.php?f=35&t=77144
Karel

--- Doplnění předchozího příspěvku (30 Lis 2011 11:25) ---

Beru z5,
našel jsem odpověď :-) tady : viewtopic.php?f=35&t=42544


Sub a()
nazev = Cells(1, 1)
cestaadresare = ThisWorkbook.Path
cestaadresare = cestaadresare & "\" & nazev & ".csv"

ActiveWorkbook.SaveAs Filename:= _
cestaadresare, FileFormat:=xlCSV _
, CreateBackup:=False, Local:=True

End Sub

Důležitý je to Local:=True

Hodně štěstí Karel

[fmartin1]

Ahoj,

jsi bůh. Vše funguje naprosto perfektně.

Ještě jednou díky moc.

Pěkný den
Martin