Excel VBA lista egy folder fájlok ugyanazon celláiból

Excel VBA lista egy folder fájlok ugyanazon celláiból
2018-05-03T19:37:16+02:00
2018-05-03T22:01:29+02:00
2022-10-15T21:40:25+02:00
datamed
Sziasztok, egy folder megegyező szerkezetű fájljaiból szeretnék listát csinálni egy cella tartalmával.
Találtam egy takaros algoritmust, ami kissé átírva akár működhetne is, de amikor a fájl nevét tartalmazó cella felhasználásával szeretném kiolvasni a listázandó cella tartalmát, Run-time error '9'-el elszáll. Valamit nagyon benéztem... Tudna valaki segíteni? Köszönöm.
Ő lenne a kód:

Sub Example1()

Dim objFSO As Object

Dim objFolder As Object

Dim objFile As Object

Dim i As Integer



Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder("D:\EXCEL\valami")

i = 1


For Each objFile In objFolder.Files


Cells(i + 1, 1) = objFile.Name

Cells(1 + 1, 2) = Workbooks(objFile.Name).Worksheets("Munkalap1").Range("Q10") 'Ennél a sornál száll el.



i = i + 1

Next objFile

End Sub
Mutasd a teljes hozzászólást!
Szia!

Ha nincs megnyitva a fájl, aminek a cellájából értéket szeretnél kapni, akkor képlettel kell a hivatkozást megcsinálni, utána pedig értékké lehet alakítani.

Cells(1 + 1, 2).Formula="='" & objFolder & "\[" & objFile.Name & "]Munkalap1'!Q10" 'ezzel beírjuk a képletet Cells(1+1,2).Value=Cells(1+1,2).Value ' ezzel értékké alakítjuk.
Üdv.
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd