Exporteren naar een txt bestand

[ruimzich]

Hallo,

Ik wil graag vanuit een excel bestand dmv een "druk op de knop" een txt betand maken met bepaalde voorwaarde aan de plaats van de afzonderlijke data.
de data in het excel bestand ziet er als volgt uit:

30-4-2009
naam1 naam2 naam3
A 10 22 8
B 24 25 56
C 21 23 2
D 23 65 14
E 5 23 23
F 1 42 12
G 33 14 12

De data in het txt bestand moet de volgende indeling krijgen:

_A
naam1,10
naam2,22
naam3,8
_B
naam1,24
naam2,25
naam3,56
enz.

Het bestand moet dan als naam de datum welke links boven staat krijgen.

Weet iemand hier een oplossing voor?

 

[WimenBeer]

Onderstaand zal het voor je oplossen

Sub Maak_bestand()
    Dim lKol As Long
    Dim lRij As Long

    lKol = Range("IV6").End(xlToLeft).Column
    lRij = Range("D65536").End(xlUp).Row

    Open "H:\helpmij.nl\" & Range("C5") & ".txt" For Output As #1
    For y = 7 To lRij
        Print #1, "_" & Chr(58 + y)
        For x = 4 To lKol
            If Cells(6, x) <> "" Then
                Print #1, Cells(6, x) & "," & Cells(y, x)
            End If
        Next x
    Next y
    
    Close #1
End Sub

Ik snapte alleen niet wat je met de _A enz bedoeld, dus ik heb dat maar even vertaald naar een Character.
Misschien moet daar iets anders komen.
Ook ga ik uit van jouw voorbeeld bestand, misschien staan de kolommen en rijen in je orginele bestand anders.


Je moet ook even de directorie voor het tekst bestandje aanpassen

  Open "H:\helpmij.nl\" & Range("C5") & ".txt" For Output As #1

Succes
Wim

 

[ruimzich]

Hallo Wim,

Bedankt voor je reactie, maar het werkt nog niet helemaal.
Voor de duidelijkheid heb ik een stukje van het orginele xls bestand en het txt bestand toegevoegd.

xls

30-4-2009
FO120716 FO120717 FO120718 FO120719
0:00 2.380.952 1.023.199
0:21 2.360.195 1.023.199 32.451 22.073
0:33 2.363.858 1.020.757 32.599 22.073

txt

_00:00
FO120716,238.0952
FO120717,102.3199
_00:21
FO120716,236.0195
FO120717,102.3199
FO120718,3.2451
FO120719,2.2073
_00:33
FO120716,236.3858
FO120717,102.0757
FO120718,3.2599
FO120719,2.2073

 

[WimenBeer]

Ik kom er morgen op terug, want mijn oplossing werkt wel maar je orginele bestand is iets anders.
Ga hem wel even aanpassen

Wim

 

[Wigi]

Sub Maak_bestand()
    For x = 6 To Range("B" & Rows.Count).End(xlUp).Row
        c0 = c0 & "_0" & Range("B" & x) & Chr(10)
        For y = 3 To Cells(x, Columns.Count).End(xlToLeft).Column
            c0 = c0 & Cells(5, y) & Cells(x, y) & Chr(10)
        Next
    Next
    Open "C:\" & [B4] & ".txt" For Output As #1
    Print c0
    Close #1
End Sub

ongeteste code

Wigi

 

[ruimzich]

Hallo,Wim en Wigi

Ik heb de code ietsjes aangepast, en deze werkt nu zoals gewenst.
Bedankt.

Sub Maak_bestand1()
Dim lKol As Long
Dim lRij As Long

lKol = Range("IV3").End(xlToLeft).Column
lRij = Range("A65536").End(xlUp).Row

Open "H:\" & Range("a1") & ".txt" For Output As #1
For Y = 4 To lRij
Print #1, "_" & Range("A" & Y)
For X = 2 To lKol
If Cells(6, X) <> "" Then
Print #1, Cells(3, X) & "," & Cells(Y, X)
End If
Next X
Next Y

Close #1
End Sub