/ / Eksporter Excel data fra Single Field til Txt - Excel, eksport-til-tekst

Eksporter Excel data fra Single Field til Txt - Excel, eksport-til-tekst

Jeg har kæmpet med denne ene. Jeg har følgende klump af data i en XLS-fil, i grunden er ColA tilfældigt, det er omkring 300 + tegn i hvert felt. Jeg har brug for at få ColA til en tekstfil, med ColB og ColC som tekstfilnavn.

ColA                     ColB          ColC
BLA,432$#@.<>H|3525      John          Smith
BLA,rewq$#@.<>H|3525     John          Smeeth
BLA4rew,rerr>H|3525      John          Smamth

Uddata John_Smith.txt med dataene fra ColA i filen John_Smith.txt og så videre for hver række.

svar:

0 for svar № 1

Prøv dette ,

Sub test()
Dim filename As String
Dim filecontents As String
Dim writerng As Range
Dim cell As Range
Set writerng = Sheets("Sheet1").Range("A1:A10")

For Each cell In writerng
filename = cell.Offset(, 1).Value & "_" & cell.Offset(, 2) & ".txt"
Open filename For Output As #1
filecontents = cell.Value
Print #1, filecontents
Close #1
Next cell
End Sub

Beslægtede spørgsmål


Kommentarer (0)

Tilføj en kommentar