importere til en txt. file i vba

Hvad er så problemet, Bambus??

Sorry jeg mener exportdata

Sub ReadFromFile()
'Læs fra en fil
    Dim sFileName As String
    Dim sLine As String
   
    sFileName = "C:\MyTextFile.txt"
   
    Open sFileName For Input As #1
        'Do While EOF(1) = False
            Line Input #1, sLine
            MsgBox sLine
        'Loop
    Close #1
End Sub

En linies indhold bliver opfanget i variablen sLine, og den kan du så gøre noget ved.

OK - Output

Sub WriteToFile()
'Skriv til en fil
    Dim sFileName As String
    Dim sLine As String
   
    sFileName = "C:\MyTextFile.txt"
   
    Open sFileName For Output As #1
        'Her kan f.eks. indbygges en ForNext eller ForEach
        sLine = "Linie nr 1"
        Print #1, sLine
    Close #1
End Sub

nej læs til en file!

ForEach kunne være:

Dim rCell As Range
For Each rCell In Range("A1").CurrentRegion.Columns(1).Cells
    sLine = rCell.Value & "," & rCell.Offset(0, 1).Value 'osv.
    Print #1, sLine
Next rCell

:))