Hallo,
Hierbij een korte macro die een testbestandje opvult met data uit een selectie uit een excelblad:
Sub wegschrijven()
Range("F18:F22").Select
Dim FileName As String
Dim NumRows As Long
Dim r As Long
Dim Data As String
Dim ExpRng As Range
Set ExpRng = Selection
NumRows = ExpRng.Rows.Count
FileName = "c:\test.txt
Open FileName For Append As #1
For r = 1 To NumRows
Data = ExpRng.Cells(r).Value
Write #1, Data
Next r
Close #1
End Sub
Deze sub werkt en geeft geen fouten, maar...
In de cel in excel staat er bijvoorbeeld : ABCDEF
Na uitvoeren van de macro verschijnt er in het tekstbestand : "ABCDEF"
Vraag: Hoe kan ik verhinderen dat die quotes in het txt-bestand worden geschreven?
Alvast bedankt
Hierbij een korte macro die een testbestandje opvult met data uit een selectie uit een excelblad:
Sub wegschrijven()
Range("F18:F22").Select
Dim FileName As String
Dim NumRows As Long
Dim r As Long
Dim Data As String
Dim ExpRng As Range
Set ExpRng = Selection
NumRows = ExpRng.Rows.Count
FileName = "c:\test.txt
Open FileName For Append As #1
For r = 1 To NumRows
Data = ExpRng.Cells(r).Value
Write #1, Data
Next r
Close #1
End Sub
Deze sub werkt en geeft geen fouten, maar...
In de cel in excel staat er bijvoorbeeld : ABCDEF
Na uitvoeren van de macro verschijnt er in het tekstbestand : "ABCDEF"
Vraag: Hoe kan ik verhinderen dat die quotes in het txt-bestand worden geschreven?
Alvast bedankt
