He buscado una respuesta a esta pregunta en Google y aquí, sin ningún éxito. Si se ha preguntado antes, me disculpé.

Estoy tratando de automatizar algunas tareas de administración usando VBScript. El propósito de este script en particular es tomar algunas estadísticas de uso de un archivo de texto (con columnas de texto y números) y hacer un gráfico de líneas con los datos. Crear un archivo de Excel y cargar los datos funciona bien, pero tengo problemas para crear un gráfico: no entiendo cómo elegir los datos de origen y sigo encontrando errores de sintaxis. Hay mucha información en Internet sobre cómo hacer esto en VBA, y es obvio en una macro grabada. Pero simplemente no puedo hacerlo con VBScript. Aquí está mi código (algunos nombres de archivos y otros han cambiado por razones de privacidad):

Set objFSO = CreateObject("Scripting.FileSystemObject")

' Create an instance of Excel (keep program hidden) and open text data file
Set objExcel = CreateObject("Excel.Application")

With objExcel
.Visible = False
.WorkBooks.OpenText("Datafile.txt")
End With

' Name the current worksheet
Set objWorksheet = objExcel.Worksheets(1)


' Name constants for use in chart creation
xlLine = 4
xlPrimary = 1
xlCategory = 1
xlValue = 2
xlColumns = 3


' Define chart properties
Set objChart = objExcel.Charts.Add()
With objExcel.ActiveChart
    .ChartType = 1
    .HasTitle = True
    .ChartTitle.Characters.Text = "usage"
    .Axes(xlCategory, xlPrimary).HasTitle = True
    .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Time"
    .Axes(xlValue, xlPrimary).HasTitle = True
    .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "units"
    .ChartType = xlLine
    .HasLegend = False
    .SetSourceData Source:="objWorksheet".Range("B2:B10"), Plotby:=xlColumns

End With

Utilizando este código, logro crear un archivo de Excel con los datos correctamente organizados en columnas, y una hoja separada con un gráfico vacío (que tiene las propiedades anteriores).

Pero la línea ".SetSourceData" me está dando errores. No estoy seguro de cómo usarlo en VBScript. Soy muy nuevo en VBScript, así que perdone cualquier error en la sintaxis o la comprensión del código. ¿Tal vez estoy haciendo algo fundamentalmente incorrecto?

edita

Estoy usando Excel 2003.

Aclamaciones