meerdere tekstbestanden importeren in excel

[edmoor]

Mijn 2e optie dus.
Dan ga ik voor jouw code in #35 en moet je alleen even de CrLf tekens vervangen door een spatie:

Replace(.opentextfile(c00 & c01).readall, vbCrLf, " ")

Worden dan wel heel lange regels.

 

[EBN]

@SNB
Het script werkt. maar krijg niet het gewenste resultaat, zie als voorbeeld voor het gewenste bestand #5

 

[edmoor]

Je wilt toch een CSV bestand?
Dat is wat die code voor je maakt.

 

[EBN]

@Jveer, #38
Super, ik krijg het gewenste resultaat! Hartelijk dank!

Hgr. Bert

 

[edmoor]

Die code werkt inderdaad prima voor het maken van een Excel document.
Maar je wilt toch een csv bestand?

 

[EBN]

@edmoor, #41
Ik heb geen verstand van programmeren en ik ben dus op zoek naar de juiste woorden in jullie jargon, sorry dat ik me soms niet duidelijk kan uitdrukken wat ik bedoel.
Als ik je goed begrijp dan wordt het script als volgt?

Sub M_snb()
c00 = "G:\OF"
c01 = Dir(c00 & "*.txt")

With CreateObject("scripting.filesystemobject")
Do Until c01 = ""
c02 = c02 & & c01 & vbTab & .opentextfile(c00 & c01).readall
Replace(.opentextfile(c00 & c01).readall, vbCrLf, " ")
c01 = Dir
Loop

If c02 <> "" Then .createtextfile(c00 & "alles.csv").write Mid(c02, 3)
End With
End Sub

 

[edmoor]

Wil je nou een Excel document of een CSV bestand?
Reageer eens op #39.

 

[EBN]

@ edmoor, #39 en #41
Het moet een csv bestand worden en de regels zijn lang (regel: veld1= bestandsnaam, veld2=tekst uit bestand )

 

[snb]

Voor welk archiefprojekt doe je dit ?

 

[edmoor]

Dan kan je deze code van snb gebruiken met een kleine aanpassing die ik deed:

Sub M_snb()
   c00 = "F:\Helpmij\EBN\txt\"
   c01 = Dir(c00 & "*.txt")
   
   With CreateObject("scripting.filesystemobject")
     Do Until c01 = ""
       c02 = c02 & vbCrLf & c01 & vbTab & Replace(.opentextfile(c00 & c01).readall, vbCrLf, " ")
       c01 = Dir
     Loop

     .createtextfile(c00 & "alles.csv").write Mid(c02, 3)
   End With
End Sub

Dat maakt het bestand alles.csv aan in de map waar de txt bestanden staan.

 

[EBN]

@Edmoor, #50
Het werkt, super bedankt ook voor de moeite die je hebt genomen om tot de oplossing te komen!

 

[EBN]

Ik wil iedereen hartelijk bedanken voor de genomen moeite (en snelheid) om tot de oplossing te komen.
Inmiddels twee oplossingen op de vraag #38 en #50.

hartelijke groet, Bert

 

[edmoor]

Wat #50 betreft gaat de eer naar snb

 

[snb]

De herhaalde vraag in #49 heb je nog steeds niet beantwoord.

 

[EBN]

#49 ik doe dit voor een pilot waarbij we met vrijwilligers gemaakte transcripties (crowdsourcing) van resoluties uit de 17/18de eeuw willen publiceren.
https://velehanden.nl/projecten/bekijk/details/project/hco_resoluties_transkribus

 

[snb]

De transcipties worden toch automatisch opgeslagen op de server van Picturae ?

 

[EBN]

@SNB opgeslagen wel, maar niet gepubliceerd. De bestanden worden als losse tekstbestanden aangeleverd. Wij willen die bestanden nu publiceren op archieven.nl waarvoor het noodzakelijk is dat de bestanden als CSV/ XLS worden geïmporteerd.

 

[snb]

Dan vraag je toch aan Picturae dit te verzorgen ?

 

[edmoor]

Je schaart ook nog steeds CSV en XLS onder 1 noemer.
Een XLS bestand is een Excel document.
Een CSV bestand is een tekst bestand die niets met Excel te maken heeft.
Ja, deze kan door Excel worden geopend, maar daar houdt de vergelijking dan ook op.

 

[EBN]

Dan vraag je toch aan Picturae dit te verzorgen ?

Dit heeft meerdere redenen, maar die ga ik hier niet uitleggen.