Uit een geselecteerde map van alle excel bestanden open, tab "Codes" kopieren.

[MJKoolschijn]

Hallo,

Wil om een status overzicht te krijgen uit een geselecteerde map (de bron van deze map staat in mijn excel sheet op lokatie C10). Van alle daarin aanwezige excel bestanden het van tabblad "Codes" regel 1 kopiëren en deze onder elkaar in de map "temp" zetten (welke volledig leeg is).

Heb al wel wat in elkaar gezet, maar is redelijk complex (en werkt niet), waarschijnlijk kan het veel eenvoudiger (en wel werkend). Daarom heb ik mijn opzet nog even achter wegen gelaten.

Hoop dat jullie me kunnen helpen, als er toch wens voor is zal ik later anders mijn bestand erbij zetten.

mvg Maarten

 

[gast0660]

en wel werkend

Daarvoor zijn de helpers hier
Maar vbtjes lijken mij toch aangewezen

 

[edmoor]

Probeer dit maar eens in een nieuw document:

Sub Verzamelen()
    Dim Doc As String
    Dim Pad As String
    Dim WBook As Workbook
    Dim ABook As Workbook
    Dim i As Long
    
    Pad = Range("C10") & "\"
    Doc = Dir(Pad & "*.xlsx")
    Set ABook = ActiveWorkbook
    
    Application.ScreenUpdating = False
    While Doc <> ""
        i = i + 1
        Workbooks.Open Pad & Doc
        Set WBook = ActiveWorkbook
        WBook.Sheets("Codes").Range("A1").EntireRow.Copy ABook.Sheets("Blad1").Cells(i, 1)
        WBook.Close False
        Doc = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub

 

[MJKoolschijn]

Hallo,

Bedankt voor jullie reactie.
Heb het deel van Edmoor gebruikt wat opzich goed werkt (in ieder gevaal ook veweeeeeel korter dan mijn code), alleen dien ik bij het openen van ieder stand aan te geven dat ik het vertrouw.

This workbook contains links to one or more external sources that could be unsafe.
If you trust the link, update them to get the latest data. Otherwise, you can keep working with the data you have.

Is dat ook nog met een simple code te omzeilen?

Tevens zie ik dat hij eventuele verwijzingen meeneemt als links. Wil dat hij de binnen gehaalde regel alles meeneemt als "value".

mvg Maarten

 

[edmoor]

En daarom is een voorbeeld bestandje zo belangrijk.

 

[MJKoolschijn]

Bekijk bijlage Qualification_systems_V003.xlsm

Heb het huidige document toegevoegd,

Ziet er nog niet uit, is nog erg ruw qua opzet.

Hoop dat dit je verder kan helpen.

maarten

ps. voor mij om weer iets te leren, zie in je code dat je copy zegt, maar nergens paste...... ?

 

[MJKoolschijn]

Oke,

Het gevonden hoe ik de error melding kan verhelpen. namelijk :

Application.AskToUpdateLinks = False

Nu alleen nog zorgen dat hij de waarde als "value" binnen haalt...... Iemand?

Mvg
Maarten

 

[edmoor]

Volgens je informatie moet van het Blad Codes regel 1 worden opgehaald.
In je voorbeeld document staat daar alleen maar tekst dus ik begrijp je probleem even niet.

 

[MJKoolschijn]

Edmoor,

Haal de informative op uit andere documenten en verzamel het in deze.

Inmiddels heb ik de copy actie uit elkaar getrokken door :
WBook.Sheets("Codes").Range("A1").EntireRow.Copy
ABook.Sheets("temp").Cells(i, 1).PasteSpecial Paste:=xlPasteValues

Hierdoor kopieert hij alleen value.

Iedereen bedankt voor het meedenken, is vaak net het zetje dat ik nodig heb om me verder te helpen. TOP

mvg Maarten