PC-HELP.CZ

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

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

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

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

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

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

Ahoj,

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

Ještě jednou díky moc.

Pěkný den
Martin