Кнопка excel vba для добавления текста в файл
Я создаю электронную таблицу с помощью кнопки, которая создает новый файл, а затем добавляет текст в файл. Кажется, я не могу заставить его работать должным образом. (На самом деле это json, но для моих целей это просто необработанный текст, вставляемый в файл.)
Это код, который у меня есть до сих пор. Он создает новый файл и помещает в него некоторый текст, я не могу получить форматирование текста, как я хочу. Я действительно не понимаю, почему кавычки появляются в выводе.
Private Sub GENERATE_ORDER_BUTTON_Click()
Dim path As String
path = "H:\order.json"
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.createtextfile(path, True)
a.WriteLine ("{")
a.Close
Dim outputstring As String
outputstring = "test" & "anothertest"
Open path For Append As #1
Write #1, outputstring
Close #1
End Sub
Что я нахожу, так это то, что вывод выглядит следующим образом:
{
"testanothertest"
Конечная цель — создать файл с отступами, кавычками и т. д. точно так, как показано ниже.
{
"BASE_CE": [
{
"CE_HOSTNAME": "TESTCE-DCNCE-01",
"NEW": "NEW",
Ответы 1
Как создать и записать в txt файл с помощью VBA
Я думаю, это могло бы помочь вам. Потому что, если вы используете печать, она не выглядит отформатированной так, как вы этого не хотите...
Private Sub GENERATE_ORDER_BUTTON_Click()
Dim path As String
path = "J:\order.json"
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.createtextfile(path, True)
a.WriteLine ("{")
a.Close
Dim outputstring As String
outputstring = "test" & "anothertest"
Open path For Append As #1
Print #1, outputstring
Close #1
End Sub