標題:

請問如何用vb6搜尋excel儲存格與比對??

發問:

想請問VB6 我想用VB讀取EXCEL!! EXCEL裡有A1:A100和B1:B100 (如圖) http://i40.photobucket.com/albums/e228/j205073/672A547D540D-5.png 我希望能輸入品號後就顯示出品名,可是怎麼試都不成功?? 可否請各位先進賜教?? 謝謝!!! Private Sub Command1_Click() Dim myxls As Object Dim mybooks As Object Dim MyBook As Object Dim mySht As Object Dim... 顯示更多 想請問VB6 我想用VB讀取EXCEL!! EXCEL裡有A1:A100和B1:B100 (如圖) http://i40.photobucket.com/albums/e228/j205073/672A547D540D-5.png 我希望能輸入品號後就顯示出品名,可是怎麼試都不成功?? 可否請各位先進賜教?? 謝謝!!! Private Sub Command1_Click() Dim myxls As Object Dim mybooks As Object Dim MyBook As Object Dim mySht As Object Dim MyRange As Object Dim da(100000) As Variant Set myxls = CreateObject("Excel.Application") '''啟動Excel myxls.Visible = flase '''顯示Excel Set mybooks = myxls.Workbooks Set MyBook = mybooks.Open("C:\VB\g.xlsx") '''開檔案 Set mySht = MyBook.Sheets(1) '''取得Sheet x = InputBox("", "請輸入欲搜尋的品號") For i = 0 To mySht.UsedRange.Rows.Count - 1 If x = Range("A2").Offset(i) Then y = Range("B2").Offset(i) j = 1 Else j = 0 End If Next If j = 1 Then MsgBox "品號為：" & x & "；品名為：" & y Else MsgBox "查無此品號" End If '結束Excel myxls.DisplayAlerts = False myxls.Quit myxls.DisplayAlerts = True Set myxls = Nothing Set MyBook = Nothing Set mySht = Nothing Set MyRange = Nothing End Sub

最佳解答:

從邏輯來看， 這個i從頭for到尾 那麼假設第3筆資料相同，j=1，但for還是會繼續跑 跑到後面幾筆，j肯定都等於0，所以必須在j=1之後，else之前 exit for 如果還有其他問題再問 For i = 0 To mySht.UsedRange.Rows.Count - 1 If x = Range("A2").Offset(i) Then y = Range("B2").Offset(i) j = 1 Else j = 0 End If Next

其他解答:

【亞洲36588合法彩券公司直營 官網: A36588.NET 】 【 最新活動→迎接新會員，首存狂送20% 】 【運動→電子→對戰→現場→彩球 】 【免費服務 →電影區、討論區、KTV歡唱、運動轉播、即時比分、24H客服 】 【亞洲36588合法彩券公司直營 官網: A36588.NET 】|||||用excel內建的vlookup...9A6837D21046A34F