vbscript update excel spreadsheet

Question

Я просмотрел многие сайты, включая все вопросы, которые возникли, когда я ввел свой заголовок, и я не могу заставить свою программу работать. Он активирует электронную таблицу, но данные не печатаются.

Option Explicit 

Dim objExcel, objWorkbook 
Dim strTIN, strName, strFName, strLName, strState, strEmpID, strRecDate, strComment 

Set objExcel = CreateObject("Excel.Application") 
Set objWorkbook = objExcel.Workbooks.Open("C:\Users\lpeder6\Desktop\Important Info\Data tracking.xlsx") 

CopyData 

Set objExcel = Nothing 
Set objWorkbook = Nothing 

'---------------CopyData - Copies required data----------------- 

Sub CopyData() 

    strTIN = "2-123456789-00005" 
    strName = "Smith  John " 
    strState = "MN" 
    strEmpID = "S987654321" 
    strRecDate = "04/02/2015" 
    strComment = "This is all that is in my comment." 
    strLName = Trim(Left(strName, 10)) 
    strFName = Trim(Right(strName, 15)) 
    strName = strLName & " " & strFName 

    objExcel.Visible = True 

    objWorkbook.Sheets(1).Activate 
    objWorkbook.Sheets(1).Cells(1, 1).Value = strTIN 
    objWorkbook.Sheets(1).Cells(1, 2).Value = strName 
    objWorkbook.Sheets(1).Cells(1, 3).Value = strState 
    objWorkbook.Sheets(1).Cells(1, 4).Value = strEmpID 
    objWorkbook.Sheets(1).Cells(1, 5).Value = strRecDate 
    objWorkbook.Sheets(1).Cells(1, 6).Value = strComment 
    objExcel.ActiveWorkbook.Close 

End Sub 

Любые идеи будут очень признательны.

Answer 1

К «нет данных», я предполагаю, что вы имеете в виду, что данные, которые вы вводите, не сохраняются. Это связано с тем, что вы не сохраняете книгу при ее закрытии. Изменение одной строки в суб на:

objExcel.ActiveWorkbook.Close true 

См Workbook.Close Method (Excel) для полной ссылки синтаксиса.