- Iszonyatos mennyiségű hulladékkal járhat a Windows 10 terméktámogatásának vége
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Bemutatkozott a Lexar legfrissebb, strapabíró memóriakártyája, a Blue Plus
- Androidos tablet topic
- Apple MacBook
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- AMD GPU-k jövője - amit tudni vélünk
- MILC felhasználók szakmai topikja
- Jóárasított AI PC-ket szeretne látni az AMD
- Kormányok / autós szimulátorok topikja
Új hozzászólás Aktív témák
-
cigam
titán
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
- Napelem
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Iszonyatos mennyiségű hulladékkal járhat a Windows 10 terméktámogatásának vége
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Linux kezdőknek
- Sorozatok
- Kerékpárosok, bringások ide!
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- One mobilszolgáltatások
- Xiaomi Smart Band 10 - a hetedik napon megpihen
- További aktív témák...
- ÁRGARANCIA! Épített KomPhone Ryzen 7 9800X3D 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- AKCIÓ! Gigabyte H610M i5 12400F 16GB DDR4 512GB SSD RX 6700XT 12GB Zalman S2 TG Seasonic 650W
- 136 - Lenovo Legion Pro 7 (16IRX9H) - Intel Core i9-14900HX, RTX 4080
- Csere-Beszámítás! Playstation 5 Slim Digital edition! OLVASS!
- LG 34WR55QK-B - 34" Ívelt VA - 3440x1440 - 100Hz 5ms - FreeSync Premium - HDR 10 - USB Type-C 65W
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest