VBScript Excel问题

时间:2011-09-11 04:06:22

标签: excel vbscript

我制作了一个将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

2 个答案:

答案 0 :(得分:6)

您是否需要将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

答案 1 :(得分:3)

如果您只想在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