macro om data uit andere excelbestanden samen te voegen

[Kristinho1978]

Het helpt een beetje De eerste melding over de link to other data sources krijg ik nog steeds, maar als ik daar voor niet updaten kies, krijg ik al niet meer het tweede scherm. Dus de helft van de meldingen zijn weg, nu de andere helft nog

 

[HSV]

En zo?

For Each fl In CreateObject("scripting.filesystemobject").GetFolder(Path).Files
    With Workbooks.Add(fl)
      ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1) = fl
        .Sheets(1).UsedRange.Copy 
     thisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1).pastespecial -4163
    .Close False
    End With
    Next
  Next j

 

[Kristinho1978]

Dat verandert verder niets, het blijft dezelfde melding per excel.
Well fijn dat je meedenkt

 

[HSV]

Jammer.
En?

thisWorkbook.[B]UpdateRemoteReferences[/B] = false

Of:

Application.DefaultWebOptions.UpdateLinksOnSave = False

 

[Kristinho1978]

Allbei in plaats van regel

thisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1).pastespecial -4163

neem ik aan?

Ik heb ze beide geprobeerd, maar de melding bijft Vreemd he?

 

[HSV]

Zo!

For Each fl In CreateObject("scripting.filesystemobject").GetFolder(Path).Files
    With Workbooks.Add(fl)
      ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1) = fl
     [COLOR=#FF0000] thisWorkbook.[B]UpdateRemoteReferences[/B] = false[/COLOR]
         .Sheets(1).UsedRange.Copy 
     thisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1).pastespecial -4163
       .Close False
    End With
    Next
  Next j

 

[Kristinho1978]

Helaas nog altijd dezelfde melding... Maar je bent wel creatief

 

[HSV]

Heb je ze alle twee geprobeerd?
Zet ze anders alle twee erin (onder elkaar).

 

[Kristinho1978]

Geloof 't of niet, maar zefls met allebei blijft ie de melding nog geven...
In ieder geval goed te zien dat het voor een expert ook een uitdaging is

 

[HSV]

Hoe ziet de code er inmiddels uit.
Misschien kan ik het eens reproduceren voor je.

 

[Kristinho1978]

Heel graag. Hier is ie:

Sub Consolidation()
Application.DisplayAlerts = False
Dim j As Integer


Sheets("ConsolidatieNaam").Range("A11:X1000000").ClearContents
Range("A5").Select
Application.ScreenUpdating = False


For j = 0 To 2
Path = Worksheets("Sheet2").Range("B79").Offset(j, 0)
For Each fl In CreateObject("scripting.filesystemobject").GetFolder(Path).Files
With Workbooks.Add(fl)
ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1) = fl
ThisWorkbook.UpdateRemoteReferences = False
Application.DefaultWebOptions.UpdateLinksOnSave = False
.Sheets(1).UsedRange.Copy
ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial -4163
.Close False
End With
Next
Next j

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub



Sub Example2()
Dim objFSO As Object
Dim objFolder As Object
Dim objSubFolder As Object
Dim i As Integer

'Create an instance of the FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Get the folder object
Set objFolder = objFSO.GetFolder("C:\...\a")
i = 1
'loops through each file in the directory and prints their names and path
For Each objSubFolder In objFolder.subfolders
'print folder name
Cells(i + 1, 1) = objSubFolder.Name
'print folder path
Cells(i + 1, 2) = objSubFolder.Path
i = i + 1
Next objSubFolder
End Sub

 

[HSV]

Hoe ziet zo'n link naar een ander bronbestand eruit?

 

[Kristinho1978]

De link die wordt geproduceerd door Sub Example2() bedoel je denk ik he?

Die ziet er zo uit:

C:\...\naammap1
C:\...\naammap2
etc

zonder aanhalingstekens o.i.d.

 

[HSV]

Zo ver ben ik dat ik omdat te reproduceren.
Je schrijf over 'bevatten links naar bronbestanden'.

Wat voor links zijn dat?

 

[Kristinho1978]

Oh je bedoelt waarschijnlijk die link waar ie de foutmelding op geeft.
Ja, ik weet niet of ie er altijd zo uitziet, maar dit is een voorbeeld. Er zijn cellen met dit soort formules:

=IF(Q11="XXX",VLOOKUP(A11,'\\...\...\[...xlsm]SHEET1'!A:K,5,FALSE))

 

[Kristinho1978]

ja, het lijkt erop dat dit altijd het format is...

 

[HSV]

Ik heb alles erin staan, alles wordt netjes in thisworkbook geschreven, maar geen melding.

Heb je het vinkje aanstaan in opties van Excel 'koppelingen naar andere documenten bijwerken'?
Vink die eens uit.

 

[Kristinho1978]

Het vinkje voor "Update links to otther documents'' heb ik uitgezet (excel 2010), maar ik krijg nog altijd de melding.
Zou het met andere instellingen te maken kunnen hebben?

 

[Kristinho1978]

Hey ik denk dat ik 'm heb

Ik heb ook het vinkje voor
-Save external link values
-Ask to update automatic links
...uitgezet en nu loopt ie netjes door

Je hebt me hier heel goed in de juiste richting geholpen! Het had met de instelllingen te maken

Heb je eventueel nog tijd om me met een paar kleine cosmetische ingrepen te helpen of staan de oliebollen al klaar?

 

[HSV]

Dit is wel erg zuur.
Ik had liever de foutmelding ook gekregen.
Ik kan me er ook geen voorstelling van maken, alles wordt weggeschreven als waarden, dus geen links meer.
Probeer in de opties nog een wat.

Edit: ik zie dat het is opgelost. :thumb:

Geen probleem, maar we gaan straks het feestgedruis in, als mijn vrouw het er aan toe heeft.