如何用VB視窗中查找與text1相同的，在已建立的EXCEL表格（D:\T.xls）中的資料中查找，只查找A列，將查找到的資料讀到VB視窗的text2.text中，如果沒有相同的資料，則把資料錄入到EXCEL的表末。
uj5u.com熱心網友回復：
你描述的夠清楚的，就按照你說的做就是了。有什么不會的。再不行找一個程式員幫你！uj5u.com熱心網友回復：
Dim openxd As Stringopenxd = "D:\t\xd.xls"
Set xlapp = CreateObject("Excel.Application") '創建EXCEL物件
Set xlBook = xlapp.Workbooks.Open(openxd) '打開EXCEL工件簿檔案
xlapp.Visible = True '設定EXCEL物件可見（或不可見）
Set xlSheet = xlBook.Worksheets(1) '設定當前活動作業表sheet1
我寫到這就不會寫了。
uj5u.com熱心網友回復：
lz是機器人？回復于： 2014-09-07 20:12:03 8點12分就有答案了
發表于： 2014-09-07 23:09:44 11點又重復發表相同的求助資訊！
uj5u.com熱心網友回復：
看來操作Excel的你不會，你可以在Excel中錄制一個宏，參照自動產生的代碼來寫。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/112423.html
標籤：VB基礎類
上一篇：VB與EXCEL資料問題
下一篇：ASP操作ACCESS資料庫