經測試已成功，如果這個還不能滿足要求，可以加我，我們慢慢切磋~~~~補充：又查了1次，果然是資料型別問題，你把EXCEL中的那個表格的單元格格式改為文字形式，用你自己的指令碼就可以解決，但是用我的，你就不用去改單元格的資料型別了，呵呵~

指令碼如下

Call Plugin.Office.OpenXls("C:\測試.xls")

//下面這句是向Excel文件工作表(1)單元格(1, 2)讀出內容存入(Text)變數

Text =Plugin.Office.ReadXls(1, 1, 2)

//沒辦法，不知道為什麼沒0，我估計可能是資料型別的問題

//採取另1種方法來彌補

//判斷第1位是否為. 如果是就新增1個0在.前面

Dim Char

Char=Mid(Text,1,1)

If Char="." Then

Text=Replace(Text,".","0.")

End if//下面這句是關閉Excel文件工作表

Call Plugin.Office.CloseXls()

Call Plugin.Web.Bind("WQM.exe")

Call Plugin.Web.Go("www.baidu.com")

Call Plugin.Web.HtmlInput(Text,"id:kw")

Call Plugin.Web.HtmlClick("id:su")