vbscript更新excel電子表格

我看過很多網站，包括所有當我輸入我的標題時出現的問題，我似乎無法讓我的程序工作。它激活電子表格，但沒有數據打印。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

任何想法將不勝感激。

來源

2015-04-14 Lou

打印哪裏？該代碼似乎沒有任何打印相關的命令。 – teylyn

「打印」，我的意思是輸入數據到Excel電子表格。它應該將數據打印到每個單元格中，但沒有輸入。 – Lou

通過'沒有數據打印'，我假設你的意思是你輸入的數據沒有被存儲。這是因爲您在關閉它時未保存工作簿。將子行中的一行更改爲：

objExcel.ActiveWorkbook.Close true

有關完整的語法參考，請參見Workbook.Close Method (Excel)。

來源

2015-04-14 21:39:38 Jeeped

謝謝。那是我所忽視的。 :) – Lou

vbscript更新excel電子表格

回答

相關問題