如何将VBA嵌套字典保存为excel单元格？

Sub SaveNestedDictionaryToExcel()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 添加示例数据到字典
    dict.Add "Key1", "Value1"
    dict.Add "Key2", "Value2"
    
    ' 创建Excel对象
    Dim excelApp As Object
    Set excelApp = CreateObject("Excel.Application")
    
    ' 打开Excel文件
    Dim wb As Object
    Set wb = excelApp.Workbooks.Open("C:\path\to\your\excel\file.xlsx")
    
    ' 添加新的工作表
    Dim ws As Object
    Set ws = wb.Worksheets.Add
    
    ' 写入字典数据到工作表
    Dim rowIndex As Integer
    rowIndex = 1
    
    Dim key As Variant
    For Each key In dict.keys
        ws.Cells(rowIndex, 1).Value = key
        ws.Cells(rowIndex, 2).Value = dict(key)
        rowIndex = rowIndex + 1
    Next key
    
    ' 保存Excel文件
    wb.Save
    
    ' 关闭Excel文件
    wb.Close
    
    ' 退出Excel应用程序
    excelApp.Quit
    
    ' 释放对象的内存
    Set ws = Nothing
    Set wb = Nothing
    Set excelApp = Nothing
    Set dict = Nothing
End Sub