excel macro per tabblad velden naar txt document

[dirkjangroen]

Hallo,

Ik ben bezig met een leuke macro. Mijn kennis op dat gebied is nog niet zo heel groot, maar ik hoop dat jullie mijn probleem kunnen oplossen.

Ik heb wil uit een excel document een aantal txt documenten laten genereren.
Vanaf tabblad 3 moet hij dat gaan doen.

Tot nu toe heb ik de volgende code. Deze werkt echter niet want hij doet alleen het eerste tabblad.

Wie kan mij verder helpen?

Hier is de code:

Sub UitvoerNaarTxt()

Dim intTeller As Integer
Dim strEersteLijn As String
Dim strTweedeLijn As String

for i=3 to Sheets.count

Open ActiveWorkbook.Path & "/" & InputBox("Uitvoeren naar: ", "Bestandsnaam", "Test.txt") For Output As #1

intTeller = 2

While Cells(intTeller, 1).Value <> ""
strEersteLijn = Cells(intTeller, 1)
intTeller = intTeller + 1
Print #1, strEersteLijn

Wend
Close #1

activesheet.next.select

next i

End Sub​

 

[Roncancio]

De Close stond o.a. op de verkeerde plek.

Sub UitvoerNaarTxt()

Dim intTeller As Integer
Dim strEersteLijn As String
    
    Open ActiveWorkbook.Path & "/" & InputBox("Uitvoeren naar: ", "Bestandsnaam", "Test.txt") For Output As #1

    For i = 3 To Sheets.Count
        intTeller = 2
        With Sheets(i)
            While .Cells(intTeller, 1).Value <> ""
                strEersteLijn = .Cells(intTeller, 1)
                intTeller = intTeller + 1
                Print #1, strEersteLijn
            Wend
        End With
    Next
    Close #1

End Sub

Met vriendelijke groet,


Roncancio

 

[dirkjangroen]

Ik was er inderdaad al achter.

Bedankt voor het meedenken.

Groet,

Dirk