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

1.新建一張表格，在表格中導入學生的成績表，如圖所示，將建立一個按鈕，通過它來實現查找。

目前創新互聯已為1000+的企業提供了網站建設、域名、網頁空間、網站托管、服務器托管、企業網站設計、安塞網站維護等服務，公司將堅持客戶導向、應用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協力一起成長，共同發展。

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

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

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

5.現在輸入代碼：

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 "查找數據在以下單元格中：" vbCrLf vbCrLf _

? q, vbInformation + vbOKOnly, "查找結果"

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub

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

7. 現在單擊查找按鈕，出現對話框“請輸入要查找的值”，在方框中輸入“男”，單擊確定，出現對話框“查找數據在一下單元格中”，單擊確定，對應單元格就變成了亮色。

vb.net2012如何連接excel2010?

使用 ADO 連接到 Excel

ADO 使用 MDAC 中以下兩個 OLE DB 提供程序中的任何一個都可以連接到 Excel 數據文件。

Microsoft Jet OLE DB Provider — 或 —Microsoft OLE DB Provider for ODBC Drivers

使用 Microsoft Jet OLE DB Provider

Jet 提供程序只需要兩條信息就可以連接到 Excel 數據源：路徑（包括文件名），和 Excel 文件版本。

Jet 提供程序使用連接字符串

Dim cn as ADODB.Connection

Set cn = New ADODB.Connection

With cn

.Provider = "Microsoft.Jet.OLEDB.4.0"

.ConnectionString = "Data Source=C:\MyFolder\MyWorkbook.xls;" _

"Extended Properties=Excel 8.0;"

.Open

End With

提供程序版本：必須使用 Jet 4.0 提供程序；Jet 3.51 提供程序不支持 Jet ISAM 驅動程序。如果指定了 Jet 3.51 提供程序，在運行時會出現以下錯誤信息：

Couldn't find installable ISAM.

Excel 版本：對于 Excel 95 工作簿（Excel 版本 7.0），應指定 Excel 5.0；對于 Excel 97、Excel 2000 或 Excel 2002 (XP) 工作簿（Excel 版本 8.0、9.0 和 10.0），應指定 Excel 8.0 版本。

使用“數據鏈接屬性”對話框的 Jet 提供程序

如果在應用程序中使用“ADO 數據控件”或“數據環境”，就會出現數據鏈接屬性對話框來收集必要的連接設置。

在提供程序選項卡上，選擇 Jet 4.0 提供程序；Jet 3.51 提供程序不支持 Jet ISAM 驅動程序。如果指定了 Jet 3.51 提供程序，在運行時會出現以下錯誤信息：

Couldn't find installable ISAM.

在連接選項卡上，瀏覽到工作簿文件。忽略“用戶 ID”和“密碼”項，因為這些不適用于 Excel 連接。（無法打開受密碼保護的 Excel 文件作為數據源。）

在所有選項卡上，從列表中選擇擴展屬性，然后單擊編輯值。輸入 Excel 8.0;，用分號 (;) 將其與任何其他已有的項分隔。如果忽略此步驟，測試連接時將出現一條錯誤信息。這是因為如果不另行指定，Jet 提供程序期望 Microsoft Access 數據庫。返回到連接選項卡，并單擊測試連接。將出現一個消息框，通知測試已成功完成即可。

excel 函數 與vb.net 哪個難

vb.net是變成語言哦~用于寫程序的，最后生成的文件的擴展名是.exe。程序的作用不限于計算數字等，還能實現其他復雜的功能，比如實現網絡通信等等，和vb.net語言屬于一類的還有c語言，c++，c#，java，python等等語言。

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

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

用VB.NET結合Excel設計統計生產報表

用EXCEL做企業生產報表的理由 Excel表格生成和公式設置十分強大便利 是一個強有力的信息分析與處理工具 特別是EXCEL的公式 函數 VBA語言 功能極其強大 我試用過其他電子表格軟件 在功能上和EXCEL根本沒有可比性 Visual Studio NET也同樣是MicroSoft的產品 Visual Studio NET調用EXCEL做企業報表十分方便 證明當時我選Visual Studio NET作為首選開發工具是正確的 軟件構思 先在EXCEL里定制好名為《統計表》的樣表（模版） 在樣表中設置好各種格式 填寫好固定項 在窗體上放很三個控件 兩個DateTimePicker控件 用來選擇開始統計時間和結束統計時間 一個Button以啟動程序 軟件欲實現的功能是 點擊Button 自動查找符合日期符合日期范圍的生產計劃工作表 然后利用SortedList統計各個辦事處的計劃數量和未完成數量 及各個產品型號的計劃數量和未完成數量 再把SortedList的數據讀出寫到《統計表》中 這里要注意的是 各個生產報表格式必須規范統一 因為程序是按照固定單元格位置讀取數據的 SortedList類 除了具備VB NET調用EXCEL的基礎知識外 本例主要用到SortedList類 SortedList類表示鍵/值對的集合 這些鍵和值按鍵排序并可按照鍵和索引訪問 SortedList 是 Hashtable 和 Array 的混合 當使用 Item 索引器屬性按照元素的鍵訪問元素時 其行為類似于 Hashtable 當使用 GetByIndex 或 SetByIndex 按照元素的索引訪問元素時 其行為類似于 Array SortedList 在內部維護兩個數組以將數組存儲到列表中 即 一個數組用于鍵 另一個數組用于相關聯的值 每個元素都是一個可作為 DictionaryEntry 對象進行訪問的鍵/值對 鍵不能為空引用（Visual Basic 中為 Nothing） 但值可以 SortedList 的容量是列表可擁有的元素數 隨著向 SortedList 中添加元素 容量通過重新分配按需自動增加 可通過調用 TrimToSize 或通過顯式設置 Capacity 屬性減少容量 SortedList 的元素將按照特定的 IComparer 實現（在創建 SortedList 時指定）或按照鍵本身提供的 IComparable 實現并依據鍵來進行排序 不論在哪種情況下 SortedList 都不允許重復鍵 VB NET結合EXCEL統計生產報表 以下是實現代碼 供參考 為方便初學者 部份地方加以注釋 Private Sub Form _Load(ByVal sender As Object ByVal e As System EventArgs) Handles MyBase LoadDateTimePicker MaxDate = Date NowDateTimePicker MinDate = # / / #DateTimePicker MaxDate = Date NowDateTimePicker MinDate = # / / #End SubPrivate Sub 灶具分析統計()Call killEXCEL()Dim excelApp As New Excel ApplicationDim 佳尼 灶具生產計劃 As Excel WorkbookDim 行號 As Integer = Dim 列號 As Integer = Dim 辦事處計劃數統計 As New SortedListDim 辦事處完成數統計 As New SortedListDim 型號計劃數統計 As New SortedListDim 型號完成數統計 As New SortedListDim 統計表 As Excel Worksheet Try佳尼 灶具生產計劃 = excelApp Workbooks Open( E:\my documents\生產計劃\佳尼 灶具生產計劃 xls )統計表 = CType(佳尼 灶具生產計劃 Worksheets( 統計表 ) Excel Worksheet)統計表 Cells( ) value = DateTimePicker Value ToShortDateString 統計開始日期統計表 Cells( ) value = DateTimePicker Value ToShortDateString 統計結束日期統計表 Range( c :z ) Value = 先清空統計表中原來有關數據統計表 Range( c :z ) Value = Dim 生產計劃表 As Excel WorksheetFor Each 生產計劃表 In 佳尼 灶具生產計劃 Worksheets 遍歷生產計劃表If Strings Left(生產計劃表 Name ) = Or Strings Left(生產計劃表 Name ) = Then 如果是 或 開頭的表名 因生產計劃表名是 或 開頭 MsgBox(生產計劃表 Name)行號 = 生產計劃表中生產數據從第四行開始列號 = 第 列是計劃下發日期 從計劃下發日期判斷是否是所要數據Dim 臨時行號 As Integer = 求得工作表中最后一行所在的行號 從第四行開始往下計算While 生產計劃表 Cells(臨時行號 列號) value Nothing MsgBox(生產計劃表 Cells(行號 列號) value 行號)臨時行號 += End While臨時行號 = 得到生產計劃表中 最后數據行所在的行號 MsgBox(臨時行號)For 行號 = To 臨時行號 生產計劃標準格式行號從 開始 到工作表中最后一行If (CDate(DateTimePicker Value ToShortDateString) = CDate(生產計劃表.Cells(行號, 列號).value)) And (CDate(DateTimePicker2.Value.ToShortDateString) = CDate(生產計劃表 Cells(行號 列號) value)) Then 如果日期在規定范圍內 灶具各城市分布情況Dim 城市 As String = 生產計劃表 Cells(行號 ) value 第 列是城市名稱Dim 計劃數 As Decimal = CType(生產計劃表 Cells(行號 ) value Decimal) 第 列是計劃數Dim 完成數 As Decimal = CType(生產計劃表 Cells(行號 ) value Decimal) 第 列是實際完成數Dim 未完成數 As Decimal = 用Decimal是因為后面要加小數If 完成數 計劃數 Then '如果沒有完成未完成數 = 計劃數 - 完成數End IfIf 城市 "" ThenIf InStr(城市, "沈陽") 0 Or InStr(城市, "鞍山") 0 Or InStr(城市, "哈爾濱") 　 0 Or InStr(城市, "葫蘆島") 0 ThenIf 辦事處計劃數統計.Contains("沈陽") Then辦事處計劃數統計.Item("沈陽") += 計劃數Else辦事處計劃數統計.Add("沈陽", 計劃數)End IfIf 辦事處完成數統計.Contains("沈陽") Then辦事處完成數統計.Item("沈陽") += 未完成數Else辦事處完成數統計.Add("沈陽", 未完成數)End IfElseIf 辦事處計劃數統計.Contains(城市) Then辦事處計劃數統計.Item(城市) += 計劃數Else辦事處計劃數統計.Add(城市, 計劃數)End IfIf 辦事處完成數統計.Contains(城市) Then辦事處完成數統計.Item(城市) += 未完成數Else辦事處完成數統計.Add(城市, 未完成數)End IfEnd IfElseMsgBox(生產計劃表.Name "沒有城市名稱", MsgBoxStyle.Critical, "生產計劃中要有城市名稱")excelApp.Visible = True生產計劃表.Activate()生產計劃表.Select()End If'以下計算灶具型號分布情況Dim 型號 As String = Strings.Left(生產計劃表.Cells(行號, 2).value, 3) '灶具型號在第3列If 型號計劃數統計.Contains(型號) Then型號計劃數統計.Item(型號) += 計劃數Else型號計劃數統計.Add(型號, 計劃數)End IfIf 型號完成數統計.Contains(型號) Then型號完成數統計.Item(型號) += 未完成數Else型號完成數統計.Add(型號, 未完成數)End IfEnd IfNextEnd IfNextDim 城市數 As Integer = 辦事處計劃數統計.CountDim 城市數clone As Integer = 辦事處計劃數統計.Count行號 = 4'依計劃數大小排序Dim 辦事處計劃數統計副本 As New SortedListDim asa As Decimal = 0.001 '加上此數是為了防止鍵值的重復，在工作表中可選不顯示小數Dim 辦事處計劃數Enum As IDictionaryEnumerator = 辦事處計劃數統計.GetEnumeratorWhile 辦事處計劃數Enum.MoveNext辦事處計劃數統計副本.Add(辦事處計劃數Enum.Value + asa, 辦事處計劃數Enum.Key)asa += 0.001End While'這里利用SortedList自動排序的功能Dim i As Integer = 1For 列號 = 3 To 3 + 城市數 - 1 '從第三列開始填寫數據，這是預先定義的格式統計表.Cells(行號, 列號).value = 辦事處計劃數統計副本.GetByIndex(城市數clone - i) '城市統計表.Cells(行號 + 1, 列號).value = 辦事處計劃數統計副本.GetKey(城市數clone - i) '計劃數統計表.Cells(行號 + 2, 列號).value = 辦事處完成數統計.Item(辦事處計劃數統計副本　.GetByIndex(城市數clone - i)) '計劃數i += 1Next'以型號計劃數多少排序Dim 型號計劃數統計副本 As New SortedList辦事處計劃數Enum = 型號計劃數統計.GetEnumeratorWhile 辦事處計劃數Enum.MoveNext型號計劃數統計副本.Add(辦事處計劃數Enum.Value + asa, 辦事處計劃數Enum.Key)asa += 0.001' MsgBox(辦事處計劃數Enum.Valu lishixinzhi/Article/program/net/201311/11282

文章標題：excel和vb.net的簡單介紹
文章鏈接：http://www.yijiale78.com/article38/hhchsp.html

成都網站建設公司_創新互聯，為您提供企業網站制作、網站建設、小程序開發、標簽優化、商城網站、品牌網站建設

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯