como criar arquivo com vbscript excel?

Eu quero criar um arquivo com alguns dados (nomes) no excel.
Eu abri o bloco de notas, então eu digitei abaixo texto nele e salvo com. vbs, quando eu clicar duas vezes sobre o arquivo salvo. vbs está dando erro.

Sub mysub()
Conjunto objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

Definir objWorkbook = objExcel.Workbooks.Add()

Conjunto objWorksheet = objWorkbook.Worksheets(1)

intRow = 2

objWorksheet.Cells(1,1) = "Primeiro nome"

objWorksheet.Cells(1,2) = "Iniciais"

objWorksheet.Cells(1,3) = "Sobrenome"

objWorksheet.Cells(1,4) = "Nome completo"

objExcel.Cells (intRow, 1).Valor = "Elvis"

objExcel.Cells (intRow, 2).Valor = "A"

objExcel.Cells (intRow, 3).Valor = "Presley"

objExcel.Cells (intRow, 4).Valor = "Elvis Presley"

objExcel.Cells.EntireColumn.AutoFit

MsgBox "Feito"
Adicionar final

por favor, alguém pode explicar onde eu um erro. a linha de erro é...: 37 Char: erro 4: esperado 'Função' código: 800A03F7 fonte: erro de compilação do Microsoft VBScript

Resposta

Não sei VBS... mas se você tem mensagens de erro você deve publicá-las aqui.

Eu suspeito que "End sub" não deve ter parênteses depois dela.

Eu suspeito que, se isto é válido: objWorksheet.Cells(1,1) = "Nome", isso provavelmente não é: objExcel.Cells (intRow, 1).Valor = "Elvis" e deve ser alterado para: objWorksheet.Cells ((intRow, 1).Valor = "Elvis" Edit: você pode identificar qual a linha é a linha 37? Eu vou adivinhar tem: End sub, como eu disse antes, eu suspeito que ele não deve ter parênteses após ele.