vbscript更新excel电子表格

我浏览了很多网站，包括我输入标题时提出的所有问题，但我似乎无法让我的程序正常运行。它会激活电子表格，但不会打印数据

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

如果您有任何想法，我们将不胜感激。

我认为“无数据打印”是指您输入的数据未存储。这是因为关闭工作簿时未保存工作簿。将子菜单中的一行更改为：

objExcel.ActiveWorkbook.Close true

---

有关完整语法参考，请参阅。

打印位置？代码似乎没有任何与打印相关的命令。所谓“打印”，是指将数据输入Excel电子表格。它应该将数据打印到每个单元格中，但没有输入任何内容。谢谢。这就是我所忽略的。：）