VBScript将HTML导入Excel并创build图表

正如你可以告诉下面的代码，我是新的VBscripting为Excel。 我只是试图将一个HTML文件（“DEMO8.HTM”）导入到Excel中，并根据列F中的数据创build一个图表。图表应该显示为创build的表单中的一个对象。 我有一个问题让'Chart.Add'语法工作。 每当我改变它，别的东西就出错了。 无论如何，这是代码：

Dim chtChart Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("C:\DEMO8.HTM") objExcel.Visible = TRUE Set chtChart = Charts.Add With chtChart chtChart.ChartType = xlColumnClustered chtChart.SetSourceData.Range("'DEMO8'!$F:$F") chtChart.Location.xlLocationAsObject ActiveChart.SetSourceData Source:=Range("'DEMO8'!$F:$F") ActiveChart.Legend.Select Selection.Delete ActiveChart.ChartArea.Select ActiveChart.Axes(xlCategory).Select Selection.Delete ActiveChart.ChartArea.Select ActiveChart.Axes(xlValue).Select ActiveChart.Axes(xlValue).MaximumScale = 300 ActiveChart.Axes(xlValue).MinimumScale = 0 End With ' Give the user control of Excel UserControl = true 

我基本上是从各种代码中“知道”这个。 它似乎打开HTML文件，但不创build图表。 任何帮助表示赞赏。

Answer 1

可以让你更接近你想要的;

 Dim chtChart, objWorkbook, objExcel const xlValue = 2 const xlColumnClustered = 51 const xlCategory = 1 Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("C:\temp\DEMO8.html") objExcel.Visible = True Set chtChart = objWorkbook.Charts.Add chtChart.ChartType = xlColumnClustered chtChart.SetSourceData objExcel.Sheets("DEMO8").Range("F:F") objWorkbook.ActiveChart.Legend.Select objExcel.Selection.Delete objWorkbook.ActiveChart.ChartArea.Select objWorkbook.ActiveChart.Axes(xlCategory).Select objExcel.Selection.Delete objWorkbook.ActiveChart.ChartArea.Select objWorkbook.ActiveChart.Axes(xlValue).Select objWorkbook.ActiveChart.Axes(xlValue).MaximumScale = 300 objWorkbook.ActiveChart.Axes(xlValue).MinimumScale = 0