2 enorme excelbladen in 1 text bestand tab gescheiden

[kibus]

Goedemorgen,

wie kan mij helpen,

ik heb 1 excel file met 2 werkbladen
echter bevat elk werkblad meer dan 600000 regels, graag wil ik deze in een txt bestand hebben onder elkaar,
copieren lukt niet echt

Edwin

 

[WinteE]

Probeer dit eens

saveDir = ActiveWorkbook.Path
targetFile = saveDir & "\bestand.txt"
i = Worksheets("Sheet1").Cells(Cells.Rows.Count, "A").End(xlUp).Row  'De laatste waarde in kolom A opgezocht
j = Worksheets("Sheet1").Cells(Cells.Rows.Count, "A").End(xlUp).Row  'De laatste waarde in kolom A opgezocht

Open targetFile For Output As #1

For Each a In Worksheets(Sheet1).Range("A1:A" & i)
    Print #1, a.Value
Next a
For Each b In Worksheets(Sheet2).Range("A1:A" & j)
    Print #1, b.Value
Next b

Close #1

End Sub

 

[snb]

Het bestand 'G:\OF\derde.txt' bevat alle gegevens onder elkaar.

Sub snb()
    Application.ScreenUpdating = False

    For j = 1 To 2
      ThisWorkbook.Sheets(j).Activate
      ThisWorkbook.SaveAs "G:\OF\bestand" & j & ".txt", 21
    Next
    
    Shell "cmd /c copy G:\OF\bestand1.txt + G:\OF\bestand2.txt G:\OF\derde.txt"
End Sub

 

[kibus]

Goedemorgen,

de code van WinteE werkt wel echter

alles wordt nu onder elkaar gezet ..de hele regel in zijn geheel moet worden gezet in het txt bestand zodanig dat ik het weer kan inlezen in een ander programma net zoals je een werkblad opslaat als tekst (tab is scheidingsteken)

gr edwin

 

[WinteE]

Pas deze code

Print #1, a.Value

..als volgt aan ..

Print #1, a.Value, a.Offset(0,1).Value, a.Offset(0,2).Value, etcetera

Bij etcetera dus net zoveel 'Offset' als dat er kolommen mee moeten

 

[kibus]

Goedemorgen,

Heb ik gedaan en werkt zijn wel heel veel kolommen 52 stuks... , nu het volgende dit bestand moet worden in gelezen in access.. als ik een werkblad opsla als tekst (tab is scheidingsteken) en importeer in acces gaat het goed waarschijnlijk door de aanhalingstekens, die heb ik nu niet .. hoe krijg ik die ertussen?

Alvast bedankt

 

[WinteE]

Probeer dit eens

Print #1, a.Value & ";" & a.Offset(0,1).Value & ";" & a.Offset(0,2).Value & ";" & etcetera

dus comma's vervangen door & ";" &

 

[kibus]

Hartstikke bedankt dit werkt!
super

Edwin

 

[snb]

Waarom gebruik je niet gewoon de importfunktie van Access ?