meerdere datas uit meerdere excel

[gdonkers]

Hallo experts,

ik ben al een aantal dagen op het net aan het zoeken naar een oplossing voor mijn probleem.
en misschien kunnen jullie hierin wat betekenen.

ik heb een Excel bestand waar ik uit 11 verschillende Excel bestanden haal.

elk bestand heeft als tabbladen waarnaar ik verwijs naar cellen die altijd gelijk zijn.
door in een aparte cel keuzes te maken welk tabblad(week) bv 35 is tabblad 35 dit lukt.

ook als ik in een cel aangeef om welk bestand (gebied) ik deze wil halen.

mijn probleem is nu dat ik continu de betreffend bestan open moet hebben als hij deze data toont?

is er een manier om alle 11 bestanden data op te halen zonder deze te openen?

voorbeeld ken ik en dan als 1 ste bestand bv voorbeeld1 enz .
zie test
map2 is het bestand waar ik het showen moet bv

 

[DigiCafee]

Bij mijn weten niet : Excel kan enkel data lezen uit bestanden die openstaan of toch minstens op moment van het ophalen geopend worden ...

 

[JEC.]

Je kunt met VBA wel een bepaald bestand openen, dan kopieren en vervolgens het bestand weer sluiten.

 

[gdonkers]

Bij mijn weten niet : Excel kan enkel data lezen uit bestanden die openstaan of toch minstens op moment van het ophalen geopend worden ...

hmm, ik heb wel veel gelezen over vba dat het wel via een button macro te doen is maar niet de oplossing gevonden

 

[JEC.]

https://www.helpmij.nl/forum/showthread.php/787425-Data-uit-gesloten-Excel-werkmap-kopieren

Misschien helpt dit

 

[gdonkers]

onderstaande oplossing al gevonden en werkt bij 1 enkel bestand.
nu de vraag of hij ook alle kan activeren ?



Public Sub OpenDatabase()

Dim active As String
Dim wb As Workbook

Application.ScreenUpdating = False
active = ActiveWorkbook.Name

On Error Resume Next:
Set wb = Workbooks("voorbeeld1.xlsm")
On Error GoTo 0

If wb Is Nothing Then
On Error GoTo ErrMsg
Set wb = Workbooks.Open("C:localpath voorbeeld van mij\voorbeeld1.xlsm")

wb.Activate
ActiveWindow.Visible = False
Workbooks(active).Activate
Else
wb.Activate
ActiveWindow.Visible = False
Workbooks(active).Activate
End If

Application.ScreenUpdating = True

ErrMsg:
MsgBox "Kan het database bestand niet openen"
On Error GoTo 0
Exit Sub

End Sub

 

[VenA]

Plaats even de code tussen codetags dat maakt het wat beter leesbaar.

Met zoiets zal het wel lukken.

Sub VenA()
  c00 = "C:\localpath voorbeeld van mij\"
  ar = Sheets("Product B").Cells(1, 4).CurrentRegion
  For j = 1 To UBound(ar)
    If Dir(c00 & ar(j, 2) & ".xlsm") <> "" Then
      With GetObject(c00 & ar(j, 2) & ".xlsm")
        MsgBox j 'jouw code'
        .Close 0
      End With
    End If
  Next j
End Sub

 

[jkpieterse]

Dit is typisvh iets dat zich ook prima met Ophalen en Transformeren laat doen. Die bestanden met gegevens, staan die allemaal bij elkaar in 1 map?

 

[gdonkers]

ja alles staat in dezelfde map

 

[gdonkers]

Plaats even de code tussen codetags dat maakt het wat beter leesbaar.

Met zoiets zal het wel lukken.

Sub VenA()
  c00 = "C:\localpath voorbeeld van mij\"
  ar = Sheets("Product B").Cells(1, 4).CurrentRegion
  For j = 1 To UBound(ar)
    If Dir(c00 & ar(j, 2) & ".xlsm") <> "" Then
      With GetObject(c00 & ar(j, 2) & ".xlsm")
        MsgBox j 'jouw code'
        .Close 0
      End With
    End If
  Next j
End Sub

ga het proberen, en ja zal voortaan het tussen code # zetten