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

• #24890 Fferi50 Topikgazda pirit28 #24888

  Új Válasz 2015-01-06 20:16:14 #24890

  Ú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 pirit28 #24888 üzenetére

  Szia!

  Úgy gondolom, az elakadás amiatt van, mert direktben xls kiterjesztésre van kondicionálva:
  myfile = Dir(folderName & "\*.xls")
  Ha más kiterjesztés is van, akkor így kellene:
  myfile = Dir(folderName & "\*.xls*")

  A mentésnél pedig ezt a sort kellene kiváltanod:
  ActiveWorkbook.SaveAs Filename:=folderName & "\" & Replace(myfile, ".xls", "ok.xls")
  úgy gondolom erre:
  ActiveWorkbook.SaveAs Filename:= Replace(ActiveWorkbook.FullName, ".xls", "ok.xls")
  Itt már nem probléma, ha a kiterjesztés pl. xlsx, mert csak az xls cserélődik ki.
  A FullName már tartalmazza a teljes elérési utat is, ezért nem kell a folderName hozzá.

  Üdv.

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