Как сохранить вывод файлового потока VBA также в переменную? - PullRequest
0 голосов
/ 07 мая 2020

У меня есть функция 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 в переменной?

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...