inhoud van bestanden filteren en in één file samenvoegen

[snb]

Niet voor watjes

Sub M_snb()
  For j = 1 To 2
    With GetObject("J:\Temp\" & j & ".xlsx")
      .Sheets(1).UsedRange.Copy
      With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
        c00 = .GetText
      End With
   
      sn = Split(c00, vbCrLf)
      c01 = Split(Filter(sn, "[")(0), vbTab)(6)
      c02 = c02 & c01 & Join(Filter(Filter(Filter(Filter(Filter(sn, sn(1), 0), vbTab), "o", 0), "a", 0), "Si", 0), c01)
    End With
  Next
 
  MsgBox c02
End Sub

 

[Verwijderd lid 501906]

@snb
het valt mij op dat je, in het algemeen, niet echt scheutig bent met uitleg.

3 berichten en zijn de teksten

1 Uit de brand ?
Begin het blussen zelf met de verwijdering van alle samengevoegde cellen.
2 simpul toch?
3 Niet voor watjes

Je kunt ook proberen het uit teleggen
Dan leren wij er ook nog wat van!

 

[Angela69]

En welke bronbestanden horen daarbij?

Wat bedoel je met bronbestanden?

 

[AHulpje]

De bestanden die je wilt verzamelen in één bestand, dus de bestanden die je hebt gebruikt waarbij het in regel 67 mis gaat.

 

[peter59]

Je bijlage in #18 komt absoluut niet overeen met de bestanden welke je in #1 hebt geplaatst.
Ik denk dat nu iedereen het spoor bijster is.

 

[Angela69]

Het programaatje schijnt te werken: Hoera, nou zou ik ook graag op alle regels in kolom A de datum vermeld zien zoals in mijn eerste verzoek, voorbeeld in totaalA

 

[AHulpje]

En dan moeten we raden welk "programmaatje" schijnt te werken.

 

[peter59]

En dan moeten we raden welk "programmaatje" schijnt te werken.

Alleen Gerth mag het weten.