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

• cigam titán

  #978

  #977 STC Speed

  2020-05-11 21:14: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

  

  cigam

  titán

  #977 STC Speed

  #977 STC Speed

  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!

  Nincs elöttem Windows, nem tudom kisakkozni, de valami ilyesmi:

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  objStartFolder = "C:\Folder1\"
  Set objFolder = objFSO.GetFolder(objStartFolder)
  Set colFiles = objFolder.Files
  For Each objFile in colFiles
  strFileName = objFile.Name
  If objFSO.GetExtensionName(strFileName) = "xls" Then
  InputFile = strFileName
  SheetName = "Munka1"
  OutputFile = "C:\Folder2\"&InputFilename
  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
  End If
  Next

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