• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

excel macro per tabblad velden naar txt document

Status
Niet open voor verdere reacties.

dirkjangroen

Gebruiker
Lid geworden
2 feb 2012
Berichten
5
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​
 
Laatst bewerkt:
De Close stond o.a. op de verkeerde plek.

Code:
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
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan