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

• #978 cigam titán STC Speed #977

  Új Válasz 2020-05-11 21:14:47 #978

  Ú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

  

  cigam

  titán

  LOGOUT blog

  válasz STC Speed #977 üzenetére

  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