4

У меня есть два столбца как пары ключ / значение, и я хочу экспортировать их в файл в структуре ключ = значение (для создания файла свойств).

Я попробовал этот скрипт:

Sub Properties()
Dim FileName As String, i As Integer, str As String

FileName = "C:\propstest.txt"

Open FileName For Output As #1

For i = 1 To 50
str = cells(i, 1) & "=" & cells(i, 2)
Write #1, str
Next i
Close #1

End Sub

Это почти работает, но печатает в файл как

"key=value"

Есть ли способ избавиться от кавычек в файле?

Благодарю.

1 ответ1

4

Использование WriteLine вместо Write должно избавить от кавычек.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .