vb.net如何與excel建立連接，并從里面查詢并讀取數(shù)據(jù)？

1.新建一張表格，在表格中導(dǎo)入學(xué)生的成績表，如圖所示，將建立一個(gè)按鈕，通過它來實(shí)現(xiàn)查找。

成都創(chuàng)新互聯(lián)始終堅(jiān)持【策劃先行，效果至上】的經(jīng)營理念，通過多達(dá)十載累計(jì)超上千家客戶的網(wǎng)站建設(shè)總結(jié)了一套系統(tǒng)有效的營銷解決方案，現(xiàn)已廣泛運(yùn)用于各行各業(yè)的客戶，其中包括：成都紗窗等企業(yè)，備受客戶贊美。

2.單擊菜單欄中的“開發(fā)工具”——插入——表單控件——按鈕，在出現(xiàn)的十字箭頭上拖住畫出一個(gè)按鈕，如圖所示。

3.在彈出的查找紅對話框中選擇“錄制”，在彈出的“錄制新宏”對話框中，修改宏名稱為“查找”，單擊確定。

4. 單擊“開發(fā)工具”——查看代碼，打開VBA編輯器，如圖所示。

5.現(xiàn)在輸入代碼：

Sub 查找()

Dim jieguo As String, p As String, q As String

Dim c As Range

jieguo = Application.InputBox(prompt:="請輸入要查找的值：", Title:="查找", Type:=2)

If jieguo = "False" Or jieguo = "" Then Exit Sub

Application.ScreenUpdating = False

Application.DisplayAlerts = False

With ActiveSheet.Cells

? Set c = .Find(jieguo, , , xlWhole, xlByColumns, xlNext, False)

? If Not c Is Nothing Then

? ? ? p = c.Address

? ? ? Do

? ? ? ? ? c.Interior.ColorIndex = 4

? ? ? ? ? q = q c.Address vbCrLf

? ? ? ? ? Set c = .FindNext(c)

? ? ? Loop While Not c Is Nothing And c.Address p

? End If

End With

MsgBox "查找數(shù)據(jù)在以下單元格中：" vbCrLf vbCrLf _

? q, vbInformation + vbOKOnly, "查找結(jié)果"

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub

6.現(xiàn)在回到EXCEL表格，右擊按鈕，選擇“編輯文字”，修改按鈕名稱為“查找按鈕”。

7. 現(xiàn)在單擊查找按鈕，出現(xiàn)對話框“請輸入要查找的值”，在方框中輸入“男”，單擊確定，出現(xiàn)對話框“查找數(shù)據(jù)在一下單元格中”，單擊確定，對應(yīng)單元格就變成了亮色。

excel 函數(shù) 與vb.net 哪個(gè)難

vb.net是變成語言哦~用于寫程序的，最后生成的文件的擴(kuò)展名是.exe。程序的作用不限于計(jì)算數(shù)字等，還能實(shí)現(xiàn)其他復(fù)雜的功能，比如實(shí)現(xiàn)網(wǎng)絡(luò)通信等等，和vb.net語言屬于一類的還有c語言，c++，c#，java，python等等語言。

而excel函數(shù)僅用于計(jì)算公式，他不是一種語言，只能在excel文件中寫，只能用excel運(yùn)行。一旦脫離excel（比如你電腦沒裝excel）那你學(xué)的excel函數(shù)就完全不起作用了。excel文件最后生成的文件的擴(kuò)展名是.xlsx（2010版）。

介于兩者之間的是vba。就是寫excel里面的“宏”的語言。難度高于excel函數(shù)，低于vb.net。你從vba開始學(xué)的話，可以兩頭都了解一點(diǎn)。

vb.net連接excel

在項(xiàng)目中添加Excel類庫的引用，然后在VB中定義Excel 的Application，WorkBook和Worksheet

然后對Worksheet中的Range進(jìn)行操作，不用像Access那樣建立ADO什么的連接。

比如

Dim exlApp as Excel.Application = Createobject("Excel.Application")

if exlApp is Nothing then exit sub

dim xBook as Excel.WorkBook=exlApp.Workbook.add

if xBook is Nothing then exit sub

dim xSheet as excel.WorkSheet =xbook.WorkSheet.Add

if xSheet is Nothing Then exit sub

with xSheet

.Range("A1").value="Excel Application Test"

.Range("B1" ":D2").Merge

.Range("B1" ":D2").Value="合并表格內(nèi)容"

end with

你可以試試連接是否正確。

vb.net怎么訪問excel表格

我的是2007版本，其它類似

1.在工程中引用Microsoft Excel 12.0 Object Library

2、在通用對象的聲明過程中定義EXCEL對象：

Dim xlApp As Excel.Application

Dim xlBook As Excel.WorkBook

Dim xlSheet As Excel.Worksheet

3、在程序中操作VB.NET EXCEL常用命令：

Set xlApp = CreateObject("Excel.Application") '創(chuàng)建EXCEL對象

Set xlBook = xlApp.Workbooks.Open("文件名") '打開已經(jīng)存在的EXCEL工件簿文件

xlApp.Visible = True '設(shè)置EXCEL對象可見（或不可見）

Set xlSheet = xlBook.Worksheets("表名") '設(shè)置活動(dòng)工作表

xlSheet.Cells(row, col) =值 '給單元格（row,col）賦值

xlSheet.PrintOut '打印工作表

xlBook.Close (True) '關(guān)閉工作簿

xlApp.Quit '結(jié)束EXCEL對象

Set xlApp = Nothing '釋放xlApp對象

xlBook.RunAutoMacros (xlAutoOpen) '運(yùn)行EXCEL啟動(dòng)宏 xlBook.RunAutoMacros (xlAutoClose) '運(yùn)行EXCEL關(guān)閉宏

還有很多，這個(gè)要自己慢慢摸索