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

• #24798 Mutt senior tag Thrawnad #24778

  Új Válasz 2014-12-30 13:07:21 #24798

  Ú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 Thrawnad #24778 üzenetére

  Hello,

  Igen, csak ugye a Törzskönyv nálam már Xlsx máshol meg még XLS.
  Ezért egy ciklussal végig szaladok rajta a pontig

  Én erre a SPLIT függvényt szoktam használni, amely egy szöveget egy adott karakter alapján felszabdal, az eredmény egy tömbbe kerül. A kiterjesztes a tömb utolsó elemében lesz megtalálható.

  filenev = Split(utvonal, ".")
  File_Ki = Replace(utvonal, filenev(UBound(filenev)), "txt")

  üdv

• #24780 Fferi50 Topikgazda Thrawnad #24778

  Új Válasz 2014-12-29 18:17:22 #24780

  Ú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

  

  Fferi50

  Topikgazda

  válasz Thrawnad #24778 üzenetére

  Szia!

  Ennél azért szerintem egyszerűbb a left és az instr függvény használata:

  File_Ki=left(workbooks(file_ez).fullname,instr(workbooks(file_ez).fullname,".")) & "TXT"

  (Persze csak akkor, ha nincs a nevében több pont...)

  Esetleg így:
  File_Ki=workbooks(file_ez).fullname
  File_Ki=left(File_Ki,instr(File_Ki,".")) & "TXT"

  Üdv.

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