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

• #977 STC Speed őstag cigam #975

  Új Válasz 2020-05-11 20:41:35 #977

  Ú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

  

  STC Speed

  őstag

  válasz cigam #975 üzenetére

  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!

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