- gban: Ingyen kellene, de tegnapra
- sziku69: Fűzzük össze a szavakat :)
- Elektromos rásegítésű kerékpárok
- sziku69: Szólánc.
- GoodSpeed: Sapphire Radeon RX 9070 XT Pulse - út a harmadik AMD korszakig.
- MaxxDamage: Vizes Laptop Hűtés? Lehetséges? Igen!
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Magga: PLEX: multimédia az egész lakásban
-
LOGOUT
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
-
picsu
csendes tag
Sziasztok!
Egy kis segítségre lenne szükségem. Régen office 2003-am volt amin szuperül működött ez a parancs:
Set fajllista = Application.FileSearchAz új 2007-esben azonban hibát kapok rá... :-(
"Runtime error '445'
Object doesn't support this actionTudnátok segíteni, hogy mivel tudom helyettesíteni?
Előre is nagyon köszönöm.
IstiA makróm ez:
Sub export()Dim elso, masodik, harmadik, negyedik, otodik, hatodik, hetedik As String
Dim fold As FileDialog
Dim foldrv As Variant
Dim fso As Object
Dim fajllista As FileSearch
Dim fajllistaindex As Long
Dim forras, cel As StringApplication.Calculation = xlCalculationManual
Application.ScreenUpdating = Falsecel = ActiveWindow.Caption
Set fold = Application.FileDialog(msoFileDialogFolderPicker)
With fold
If .Show = -1 Then
foldrv = .SelectedItems(1)
Else
Exit Sub
End If
End WithSet fajllista = Application.FileSearch
With fajllista
.NewSearch
.LookIn = foldrv
.Filename = "*.xls"
.SearchSubFolders = False
If .Execute > 0 Then
For fajllistaindex = 1 To .FoundFiles.Count
'MsgBox .FoundFiles(fajllistaindex)
Workbooks.Open Filename:=.FoundFiles(fajllistaindex)forras = ActiveWindow.Caption
'
With Workbooks(forras).Sheets(1)Workbooks(cel).Sheets(1).Cells(fajllistaindex + 5, 1) = Workbooks(forras).Sheets(1).Cells(3, 1)
Workbooks(cel).Sheets(1).Cells(fajllistaindex + 5, 2) = Workbooks(forras).Sheets(1).Cells(3, 2)
Workbooks(cel).Sheets(1).Cells(fajllistaindex + 5, 3) = Workbooks(forras).Sheets(1).Cells(3, 3)
Workbooks(cel).Sheets(1).Cells(fajllistaindex + 5, 4) = Workbooks(forras).Sheets(1).Cells(3, 4)
Workbooks(cel).Sheets(1).Cells(fajllistaindex + 5, 5) = Workbooks(forras).Sheets(1).Cells(3, 5)
Workbooks(cel).Sheets(1).Cells(fajllistaindex + 5, 6) = Workbooks(forras).Sheets(1).Cells(3, 6)End With
'(fajllistaindex, 1) = workbooks(Application.DisplayAlerts = False
Workbooks(forras).Close
Application.DisplayAlerts = True'"=[Book1.xls]Sheet1!R1C1"
'"=[" & .FoundFiles(fajllistaindex) & "]Sheet1!R1C1"Next fajllistaindex
End If
End WithApplication.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.CalculateMsgBox "Na ez is megvan mégsincs este... Összesen " & fajllistaindex & " fájlból importáltunk adatokat.", vbInformation + vbOKOnly, "Komisszióadatok importálása befejeződött"
End Sub
Új hozzászólás Aktív témák
- Mégis mi értelme az Xbox PC-nek, ha limitálja a hardverválasztékot?
- SSD kibeszélő
- A fociról könnyedén, egy baráti társaságban
- GL.iNet Flint 2 (GL-MT6000) router
- BestBuy topik
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Elektromos autók - motorok
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Futás, futópályák
- iPhone 16e - ellenvetésem lenne
- További aktív témák...
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Battlefield 6 - Digitális játékkulcs
- Eredeti - Choice - Bundle - Steam kulcsok beszerzése. Írj kérés PM-et!
- Eladó Steam kulcsok kedvező áron!
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- BESZÁMÍTÁS! ASRock X570 R9 5900X 32GB DDR4 1TB SSD RX 7800 XT 16GB Fractal Design Meshify 2 850W
- Telefon felvásárlás!! iPhone 14/iPhone 14 Plus/iPhone 14 Pro/iPhone 14 Pro Max
- HIBÁTLAN iPhone 13 Pro Max 128GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS3390, 93% Akkumulátor
- GYÖNYÖRŰ iPhone 12 mini 128GB Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3327, 94% Akkumulátor
- 25+ típus!!! Lenovo ThinkPad, X1 carbon, X1 Yoga 5-12. gen 12,5-15" all-in-one, Workstation, stb.
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest