У меня есть функция VBA, которая читает лист и записывает все найденные данные в файл. Теперь я пытаюсь повторно использовать эти данные, записанные в файл, и сохранить их в переменной для дальнейшего использования.
См. Мой код VBA (упрощенный):
Sub test()
savename = "exported.json"
myFile = Application.DefaultFilePath & "\" & savename
Open myFile For Output As #1
Dim wkb As Workbook
Dim wks As Worksheet
Set wkb = ThisWorkbook
Set wks = wkb.Sheets("Sheet1")
lcolumn = wks.Cells(1, Columns.Count).End(xlToLeft).Column
lrow = wks.Cells(Rows.Count, "A").End(xlUp).Row
Dim titles() As String
ReDim titles(lcolumn)
For i = 1 To lcolumn
titles(i) = wks.Cells(1, i)
Next i
Print #1, "{"
For j = 2 To lrow
For i = 1 To lcolumn
cellvalue = wks.Cells(j, i)
Print #1, dq & titles(i) & dq & ":" & dq & cellvalue & dq
Next i
Next j
Print #1, "}"
Close #1
a = MsgBox("Saved as " & savename, vbOKOnly)
End Sub
I согласен с тем, что я мог бы проделать те же шаги, заразив строковую переменную, но просто любопытно, можно ли сохранить # 1 в переменной?