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

• STC Speed őstag

  #981

  #978 cigam

  2020-05-18 17:17:00

  Ú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

  #978 cigam

  #978 cigam

  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