- Код: Выделить всё
Dim Filename As String
Worksheets("bxd").Activate
Filename = "D:\3_Per\My_English\6_Self tailored Vocs\In.txt"
iLastStroka = Range("A1").End(xlDown).Row
Open Filename For Output As #1
For i = 1 To iLastStroka
Write #1, Cells(i, 1).Value
Next i
Close #1
И выражение из Cells(i, 1).Value как
principal/номинал векселя/капитал/основной должник
переходит в *.txt как:
"principal/номинал векселя/капитал/основной должник"
Но мне нужно убрать кавычки........Как ????
Уже перепробывал все варианты. Рабочим неожиданно оказался вариант с дальнейшим перекидываним в следующий *.txt:
- Код: Выделить всё
FilenameIn = "D:\3_Per\My_English\6_Self tailored Vocs\In.txt"
FilenameOut = "D:\3_Per\My_English\6_Self tailored Vocs\Out.txt"
iLastStroka = Range("A1").End(xlDown).Row
Open FilenameIn For Output As #1
For i = 1 To iLastStroka
Write #1, Cells(i, 1).Value
Next i
Close #1
Open FilenameIn For Input As #1
Open FilenameOut For Output As #2
Do While Not EOF(1)
Line Input #1, Data
Print #2, Mid(Data, 2, Len(Data) - 2)
Loop
Close
Но все же, как напрямую в *.txt скинуть string БЕЗ КАВЫЧЕК?
vbskb_bashorg vbskb_masterpiece vbskb_outstanding vbskb_marvellous
