如何使用Access VBA创建Excel (群集条、行) ComboChart？

Dim xlApp As Object
Dim xlWorkbook As Object

Set xlApp = CreateObject("Excel.Application")
Set xlWorkbook = xlApp.Workbooks.Add

Dim xlWorksheet As Object

Set xlWorksheet = xlWorkbook.Worksheets(1)

' 填充数据到工作表中
xlWorksheet.Range("A1").Value = "Category"
xlWorksheet.Range("B1").Value = "Value 1"
xlWorksheet.Range("C1").Value = "Value 2"
xlWorksheet.Range("A2").Value = "Category 1"
xlWorksheet.Range("B2").Value = 10
xlWorksheet.Range("C2").Value = 20
xlWorksheet.Range("A3").Value = "Category 2"
xlWorksheet.Range("B3").Value = 15
xlWorksheet.Range("C3").Value = 25
' ... 继续填充其他数据

Dim xlChart As Object

' 创建ComboChart对象
Set xlChart = xlWorksheet.Shapes.AddChart2(251, xlColumnClustered).Chart

' 设置ComboChart的标题
xlChart.HasTitle = True
xlChart.ChartTitle.Text = "ComboChart"

' 设置X轴和Y轴的标题
xlChart.Axes(xlCategory).HasTitle = True
xlChart.Axes(xlCategory).AxisTitle.Text = "Category"
xlChart.Axes(xlValue).HasTitle = True
xlChart.Axes(xlValue).AxisTitle.Text = "Value"

' 设置ComboChart的数据源范围
xlChart.SetSourceData xlWorksheet.Range("A1:C3")

' 保存并关闭工作簿
xlWorkbook.SaveAs "路径\文件名.xlsx"
xlWorkbook.Close

' 释放对象
Set xlChart = Nothing
Set xlWorksheet = Nothing
Set xlWorkbook = Nothing
Set xlApp = Nothing