vbscript 更新 excel 电子表格

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

'no data prints'，我假设你的意思是你输入的数据没有被存储。这是因为您在关闭工作簿时没有保存它。将 sub 中的一行更改为：

objExcel.ActiveWorkbook.Close true

有关完整语法参考，请参阅 Workbook.Close Method (Excel)。

vbscript 更新 excel 电子表格

vbscript update excel spreadsheet

vbscript

excel