Как открыть несколько текстовых / JSON-файлов и конвертировать их в один лист Excel?

Question

Я могу импортировать только один файл JSON на основе следующего кода Как импортировать несколько файлов JSON одновременно?

Private Sub CommandButton3_Click()

Dim jsonText As String
Dim FSO As New FileSystemObject
Dim JsonTS As TextStream

myfile = Application.GetOpenFilename(fileFilter:="JSON file (*.json), *.json")

If myfile <> False Then 

    Set JsonTS = FSO.OpenTextFile(myfile, ForReading)
    jsonText = JsonTS.ReadAll
    JsonTS.Close

Else

    MsgBox ("File not Selected")
    Exit Sub

End If

Set jsonObject = JsonConverter.ParseJson(jsonText)

Answer 1

Полагаю, вы хотите, чтобы пользователь мог выбрать несколько файлов (просьба прояснить ваши вопросы в следующий раз).

Если это так, работайте дальше отсюда:

filespec = Application.GetOpenFileName(FileFilter:="JSON file (*.json), *.json", Title:="Get File", MultiSelect:=True)

For i = 1 To UBound(filespec)
   ' Better put the contents of this For Loop in a separate Sub
   Set JsonTS = FSO.OpenTextFile(filespec(i), ForReading)
   jsonText = JsonTS.ReadAll
   JsonTS.Close
   Set jsonObject = JsonConverter.ParseJson(jsonText)
   .....
Next i