- Házimozi haladó szinten
- Lenovo Thinkbook, Yoga széria
- Pc beárazás segítség.
- Gaming notebook topik
- Kormányok / autós szimulátorok topikja
- ThinkPad (NEM IdeaPad)
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Vezeték nélküli fejhallgatók
- A fényes siker is lehet szög a koporsóban: gondban a MacBook Neo gyártása
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
Új hozzászólás Aktív témák
-
STC Speed
őstag
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.QuitKöszi!
-
STC Speed
őstag
Sziasztok,
Esetleg van ötlete valakinek, hogy van sok excel fájlom, amit megkell nyitnom és rámegyek, hogy mentés másként, átváltom xlsx re és a formátumot weblap ról excel munkalapra, ezt fellehet gyorsítani valahogy? Köszi!

Új hozzászólás Aktív témák
Hirdetés
- GAMER PC! i7-14700F / RX 9070 XT / 32GB 6000MHz / 1TB NVMe / 850w Gold! BeszámítOK
- Nothing Phone (1) / 8/256GB / Kártyafüggetlen / 12Hó Garancia /
- BESZÁMÍTÁS! 1TB WD Black SN7100 NVMe SSD meghajtó garanciával hibátlan működéssel
- Bomba ár! Fujitsu Celsius H730 - i5-4G I 16GB I 500GB I Nvidia I 15,6" FHD I W10 I Garancia!
- Samsung Galaxy S20 Ultra / 12/128GB / Kártyafüggetlen / 12Hó Garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

