- Az akkumulátor AI lehet a Galaxy S25 fegyvere
- Szerkesztett és makrofotók mobillal
- Samsung Galaxy A54 - türelemjáték
- ZTE Blade A34 - nem a legélesebb kés a fiókban
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- OnePlus 7 - magabiztos folytatás
- Dobhatja a Galaxy S26 az AMD GPU-t
- Elkaszálhatja az Apple az iPhone Plust
- Netfone
- Honor Magic6 Pro - kör közepén számok
Hirdetés
-
AMD Radeon undervolt/overclock
lo Minden egy hideg, téli estén kezdődött, mikor rájöttem, hogy már kicsit kevés az RTX2060...
-
Még ebben az üzleti évben leleplezi az új konzolját a Nintendo
ph De biztosan nem a júniusi Nintendo Direct rendezvényen, hanem valamikor máskor.
-
Még több embert rúgott ki a Tesla
it A jelentések szerint újabb dolgozókat küld el a Tesla, ezúttal a szoftvereket és a szolgáltatásokat, mérnöki részlegeket érinti a leépítés.
-
Mobilarena
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Delila_1
Topikgazda
válasz lordring #3363 üzenetére
A makró egyenként behívja az "utvonal" változó szerinti könyvtárban lévő csv-ket, elvégzi a módosításokat, amiket adsz neki, majd xls kiterjesztéssel menti ugyanoda, bezárja mindkét tip. fájlt. Ha nem akarod bezáratni, töröld a zárás sorát. Azért írtam bele, mert 20-30 (-szor 2) fájl elég sok és zavaró egyszerre megnyitva.
Sub csv()
Const utvonal = "C:\Documents and Settings\KZoli.TIGER-TOOLS\Asztal\"
Dim FN As String, WB As Workbook
ChDir utvonal
FN = Dir(utvonal & "*.csv", vbNormal)
Do
If FN <> "." And FN <> ".." Then
Set WB = Workbooks.Add
Workbooks.Open Filename:=FN
nev = Left(FN, Len(FN) - 3) & "xls"
' Ide írd be, amit az xls-ben el akarsz végeztetni
ActiveWorkbook.SaveAs Filename:=utvonal & nev, FileFormat:=xlNormal
WB.Close False 'Ez azonnal be is zárja a változatlan csv-t.
ActiveWindow.Close 'Ez meg a csv-hez képest módosított xls-t
End If
FN = Dir()
Loop Until FN = ""
End Sub[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Warhammer Online - Age of Reckoning (DE) Collectors Box (Figurával!)
- Vírusirtó, Antivirus VPN kulcsok
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- BIG BOX lot - Simulator (Panzer Commander, Luftwaffe Commander, Flanker 2.0)
- PC játékok 800Ft/db
- Windows 7 Home Premium, Pro, Ultimate és Windows 8, 8.1 Pro licenckulcsok 64, 32 bit - MEGA Akció!
- GameStar / PC Guru játékmellékletek tokkal és borítóval 500Ft/db
- Steam, Ubisoft és XBOX játékok kedvező áron!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest