Openen van .mpf bestanden op 1 werkblad kolom A

Status
Niet open voor verdere reacties.

appie701

Gebruiker
Lid geworden
11 apr 2021
Berichten
6
Hallo,

Hoe krijg ik een aantal bestanden weggeschreven in 1 werkblad onder elkaar in kolom A

De bestanden staan in: C:\Users\appie701\Documents\appie701\mpf files
Alle bestanden eindigen op .mpf (kunnen verschillen van aantal)

zie bijlage als voorbeeld van een .mpf file
 

Bijlagen

  • voorbeeld mpf.xlsx
    21,1 KB · Weergaven: 16
Bijvoorbeeld zo:
Code:
Sub MapInhoud()
    Map = " C:\Users\appie701\Documents\appie701\*.mpf"
    armap = Split(CreateObject("wscript.shell").exec("cmd /c dir " & Map & " /b/od").stdout.readall, vbCrLf)
    Range("A1:A" & UBound(armap) + 1) = Application.WorksheetFunction.Transpose(armap)
End Sub
 
hallo edmoor

bedankt voor snelle reactie
ik krijg een foutmelding op laatste regel

mvgr
 
Ik niet.
Als je zegt een foutmelding te krijgen vertel er dan ook bij welke dat is.
 
ik krijg deze melding
zie bijlage
misschien handig om te weten wanner ik het uitvoer gaat Norton over de zeik
 

Bijlagen

  • Foutmelding.JPG
    Foutmelding.JPG
    44,8 KB · Weergaven: 40
Laatst bewerkt:
Als de map C:\Users\appie701\Documents\appie701 bestaat en je daar minimaal leesrechten hebt weet ik zo niet waarom dat bij jou mis gaat.
Schakel Norton uit en probeer het dan nog eens.
 
Laatst bewerkt:
Gebruik geen bestandsnamen met spaties:
Vermijd 'worksheetfunction'.

Code:
Sub MapInhoud()
    c00 = " C:\Users\appie701\Documents\appie701\*.mpf"
    sn = Split(CreateObject("wscript.shell").exec("cmd /c dir """ & c00 & """ /b/a-d").stdout.readall, vbCrLf)
    if isarray(sn) Then cells(1).resize(ubound(sn)+1) = Application.Transpose(sn)
End Sub
 
Laatst bewerkt:
ik heb norton aangepast lijkt nu te werken.
ik wil alleen niet de bestandsnamen in een excel hebben maar de inhoud van die bestanden
 

Bijlagen

  • uitkomst.JPG
    uitkomst.JPG
    18,5 KB · Weergaven: 32
Dan wordt het verhaal heel anders.
En ook afhankelijk van wat er in staat en hoe je dat in Excel wilt hebben.
 
Je kunt dit even testen
Code:
Sub jv()
Set FSO = CreateObject("Scripting.Filesystemobject").getfolder("C:\Users\appie701\Documents\appie701\mpf files\")
 ReDim ar(FSO.Files.Count + 1, 1)
    ar(0, 0) = "Name"
    ar(0, 1) = "Size(kb)"
  For Each fl In FSO.Files
    j = j + 1
    ar(j, 0) = fl.Name
    ar(j, 1) = Int(fl.Size * (0.1 ^ 3))
  Next
Cells(1, 1).Resize(UBound(ar), 2) = ar
End Sub
 
Laatst bewerkt:
allen bedankt voor het meedenken. Oplossing gevonden dmv power query. Van hieruit kan ik verder met macro's
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan