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

• STC Speed őstag

  #977

  #975 cigam

  2020-05-11 20:41:35

  Új Válasz

  Ú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

  

  STC Speed

  őstag

  #975 cigam

  #975 cigam

  Inkább VBS kell ide: [link]

  Esetleg még annyit tudnál segíteni, hogy sok fájl esetén hogyan tudnám alkalmazni? pl egy mappa 100 ilyen fájl mentés másként nél.
  1 fájlal most így néz ki :

  InputFile = "C:\Users\Fel\Desktop\fajl.xlsx"
  SheetName = "Munka1"
  OutputFile = "C:\Users\Fel\Desktop\fajluj"
  Ext = "44"
  Set objExcel = CreateObject("Excel.application")
  objExcel.application.visible=false
  objExcel.application.displayalerts=false
  set objExcelBook = objExcel.Workbooks.Open(InputFile)
  objExcel.Sheets(SheetName).Select
  objExcelBook.SaveAs OutputFile, Ext
  objExcel.Application.Quit
  objExcel.Quit

  Köszi!

• STC Speed őstag

  #976

  #975 cigam

  2020-05-11 17:18:47

  Új Válasz

  Ú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

  

  STC Speed

  őstag

  #975 cigam

  #975 cigam

  Inkább VBS kell ide: [link]

  Köszi!!

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