VBScript Excel問題

Question

我製作了一個將Excel文件讀入Dictionary對象的vbs腳本。當我運行腳本時，它什麼也不做。沒有錯誤消息。

這是代碼：

Set objWords = CreateObject("Scripting.Dictionary") 
objWords.CompareMode = 1 

CurPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".") 

Set objExcel = CreateObject("Excel.Application") 
Set objWorkbook = objExcel.Workbooks.Open(CurPath & "/RE Glossary.xls") 
Set objWorksheet = objExcel.ActiveWorkBook.WorkSheets("MG") 


intRow = 1 

Do Until (objExcel.Cells(intRow, 1).Value) = "" 
    Value1 = (objExcel.Cells(intRow, 1).Value) 
    Value2 = (objExcel.Cells(intRow, 2).Value) 
    objWords.item(Value1) = Value2 
Loop 

objExcel.Quit 

msgbox "There are " & objWords.Count & " words in the glossary." 

word = inputbox("word") 
if objWords.exists(word) then 
    msgbox word & vbnewline & "------------" & vbnewline & objWords.item(word) 
else 
    msgbox word & " is not in the glossary." 
end if 

Answer 1

不要你需要添加intRow = intRow + 1進入循環？

intRow = 1 
Do Until (objExcel.Cells(intRow, 1).Value) = "" 
    Value1 = objExcel.Cells(intRow, 1).Value 
    Value2 = objExcel.Cells(intRow, 2).Value 
    objWords.item(Value1) = Value2 
    intRow = intRow + 1 
Loop 

Answer 2

如果您只想在Excel中查找單詞，那麼使用ADO會更快。以下是一些注意事項：

Dim cn, rs 
Dim strFile, strCon, strSQL, Word 

CurPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".") 

strFile = "/RE Glossary.xls" 

''Note that if HDR=No, F1,F2 etc are used for column names, 
''if HDR=Yes, the names in the first row of the range 
''can be used. 
''This is the Jet 4 connection string, you can get more 
''here : http://www.connectionstrings.com/excel 

strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurPath & strFile _ 
    & ";Extended Properties=""Excel 8.0;HDR=No;IMEX=1"";" 

''Late binding, so no reference is needed 

Set cn = CreateObject("ADODB.Connection") 
Set rs = CreateObject("ADODB.Recordset") 

cn.Open strCon 

Word = InputBox("Word") 

If Word <> vbNullString Then 
    strSQL = "SELECT Count(F1) As WordCount " _ 
     & "FROM [Sheet2$] AS a " _ 

    rs.Open strSQL, cn, 3, 3 

    strMessage = "There are " & rs.Fields("WordCount") & " words in the glossary." 

    rs.Close 

    strSQL = "SELECT F1 " _ 
     & "FROM [Sheet2$] a " _ 
     & "WHERE F1 = '" & Word & "'" 

    rs.Open strSQL, cn, 3, 3 

    If rs.RecordCount > 0 Then 
     strMessage = strMessage & vbNewLine & word & vbNewLine & "------------" & vbNewLine & rs.Fields("F1") 
    Else 
     strMessage = strMessage & vbNewLine & word & " is not in the glossary." 
    End If 

    ''Tidy up 
    rs.Close 
    Set rs=Nothing 
    cn.Close 
    Set cn=Nothing 

Else 
    strMessage = "Nothing selected." 
End If 

MsgBox strMessage