Új hozzászólás Aktív témák

• #19493 Mutt senior tag the radish #19489

  Új Válasz 2013-11-11 21:24:46 #19493

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mutt

  senior tag

  válasz the radish #19489 üzenetére

  Hali,

  Jó lesz az, csak a csv formátumot is hozzád kell fűznöd vagyis kell elé a &-jel.

  DIM valtozo$
  valtozo$=Cstr(Range ("A1").Value) 'biztosra megyünk hogy szöveges értéket kapjunk
  ActiveWorkbook.SaveAs Filename:=utvonal$ & valtozo$ & ".csv", FileForm.....

  Fontos, hogy az útvonal végén legyen backslash. Ezt így tudod ellenőrizni és javítani.

  If Right(utvonal$, 1) <> "\" Then utvonal$ = utvonal$ & "\"

  üdv

Új hozzászólás Aktív témák