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

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

網(wǎng)站建設(shè)哪家好，找創(chuàng)新互聯(lián)公司！專注于網(wǎng)頁設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、微信小程序開發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了賈汪免費(fèi)建站歡迎大家使用！

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

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

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:="請(qǐng)輸入要查找的值：", 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)對(duì)話框“請(qǐng)輸入要查找的值”，在方框中輸入“男”，單擊確定，出現(xiàn)對(duì)話框“查找數(shù)據(jù)在一下單元格中”，單擊確定，對(duì)應(yīng)單元格就變成了亮色。

vb.net怎么訪問excel表格

我的是2007版本，其它類似

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

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

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對(duì)象

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

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

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

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

xlSheet.PrintOut '打印工作表

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

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

Set xlApp = Nothing '釋放xlApp對(duì)象

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

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

vb.net如何調(diào)用打開外部excel文檔

第一步，新建項(xiàng)目。

1

打開vb.net，也就是打開Microsoft visual studio 2010，第一次使用的時(shí)候設(shè)置為basic語言就行。新建項(xiàng)目--打開excel。

2

新建成功。

END

第二步，添加引用。

1

“項(xiàng)目”--“添加引用”。

2

添加Microsoft Excel 14.0 Object Library。

END

第三步，添加打開文件對(duì)話框工具。

1

工具箱--對(duì)話框--openfiledialog。

2

添加成功。

END

第四步，添加命令按鈕控件。

1

工具箱--公共控件--button。

在控件上右擊鼠標(biāo)，進(jìn)入屬性設(shè)置。

2

text屬性設(shè)置為“打開excel”。

3

name屬性也設(shè)置為“打開excel”。

END

第五步，編寫程序。

1

鼠標(biāo)雙擊命令按鈕，進(jìn)入編程界面，編寫程序。

END

第六步，運(yùn)行程序。

1

鼠標(biāo)單擊啟動(dòng)調(diào)式圖標(biāo)，程序開始運(yùn)行。

2

單擊打開excel命令按鈕，調(diào)用打開文件對(duì)話框，選擇自己要打開的excel文件。

END

第七步，保存程序。

第一次程序運(yùn)行完，關(guān)閉程序，出現(xiàn)關(guān)閉項(xiàng)目提示，選擇保存。

2

選好自己要保存的位置。

VB.net對(duì)Excel條件格式

首先,須在項(xiàng)目里引用: 添加引用-Com-Microsoft Excel 9.0 Object Library （這是EXCEL2000）

1 打開Excel： dim myexcel as new Excel.Application() myexcel.visible=true

2 添加新的工作簿： myexcel.Workbooks.add()

3 設(shè)定第二個(gè)工作表為活動(dòng)工作表： myexcel.worksheets(2).Acivate()

4 打開指定的Excel文件： myexcel.workbooks.open("c:\my.xls")

5 顯示Excel窗口： myexcel.visible=true

6 更改Excel的標(biāo)題欄： myexcel.caption="歡迎,歡迎!"

7 為Excel的單元格賦值： myexcel.cells(1,4).value=100 此語句使Excel當(dāng)前工作表的第一行第四列,即D1單元格等于100, 也可以這樣寫: myexcel.Range("D1").value=100

8 設(shè)置指定列的寬度(單位:字符個(gè)數(shù))： myexcel.ActiveSheet.colums(1).columnwidth=20 設(shè)定當(dāng)前工作表第1列的寬度為20

9 設(shè)置指定行的高度(單位:磅)： myexcel.ActiveSheet.rows(1).rowHeight=1/0.035 1磅 =0.035厘米 設(shè)置第1行的高度為1CM

10 插入分頁符： myexcel.Activesheet.rows(20).pagebreak=1 在第20行前插入分頁符

11 刪除分頁符： myexcel.Activesheet.columns(20).pagebreak=0 在第20列前刪除分頁符

12 指定邊框線的寬度： myexcel.Activesheet.range("B3:D3").borders(1).weight=3 其中borders參數(shù)指定單元格邊框的位置: 1:左 2:右 3:頂 4:底 5:斜\ 6:斜/

13 指定邊框線條的類型： myexcel.Activesheet.range("B1:D3").borders(2).linestyle=1 此語句將當(dāng)前工作表的B1:D3單元格的右邊框設(shè)置為實(shí)線 linestyle參數(shù): 1:細(xì)實(shí)線 2:細(xì)虛線 3:點(diǎn)虛線 4:雙細(xì)實(shí)線

14 設(shè)置頁腳： myexcel.activesheet.pagesetup.centerfooter="第p頁" 注意:設(shè)置頁眉頁腳時(shí)要保證計(jì)算機(jī)上裝有打印機(jī),否則出錯(cuò)!

15 設(shè)置頁眉： myexcel.activesheet.pagesetup.centerfooter="第p頁"

16 設(shè)置頁眉到頂斷距離為2cm： myexcel.Activesheet.pagesetup.Headermargin=2/0.035

17 設(shè)置頁腳到底端距離為2cm： myexcel.Activesheet.pagesetup.Footermargin=2/0.035

18 設(shè)置頂邊邊距為2cm： myexcel.Activesheet.pagesetup.topmargin=2/0.035

19 設(shè)置底邊邊距為2cm： myexcel.Activesheet.pagesetup.Bottommargin=2/0.035

20 設(shè)置左邊邊距為2cm： myexcel.Activesheet.pagesetup.Leftmargin=2/0.035

21 設(shè)置右邊邊距為2cm： myexcel.Activesheet.pagesetup.Rightmargin=2/0.035

22 設(shè)置頁面水平居中： myexcel.activesheet.pagesetup.CenterHorizontally=true

23 設(shè)置頁面垂直居中： myexcel.activesheet.pagesetup.Centervertically=true

24 設(shè)置頁面紙張大小 (1,窄行 8.5*11 ;39 ,寬行 14*11)： myexcel.activesheet.pagesetup.papersize=1

25 打印單元格網(wǎng)格線： myexcel.activesheet.pagesetup.PrintGridlines=true

26 復(fù)制整個(gè)工作表 ： myexcel.activesheet.Usedrange.Copy

27 復(fù)制指定區(qū)域 ： myexcel.activesheet.range("a1:b5").Copy

28 粘貼： myexcel.worksheets("sheet2").range("A1").PasteSpecial

29 在第2行前插入一行 ： myexcel.activesheet.rows(2).Insert

30 在第2列前插入一列 ： myexcel.Activesheet.Columns(2).Insert

31 合并 C4:D4 單元格： myexcel.Activesheet.Range("C4:D4").Merge()

32 自動(dòng)調(diào)整第2列列寬： myexcel.activesheet.Columns(2).AutoFit

33 設(shè)置字體： myexcel.Activesheet.cells(2,1).font.name="黑體"

34 設(shè)置字體大?。?myexcel.Activesheet.cells(2,1).font.size=25

35 設(shè)置字體為斜體： myexcel.Activesheet.cells(2,1).font.Italic=true

36 設(shè)置字體為粗體： myexcel.Activesheet.cells(2,1).font.Bold=true

37 清除單元格內(nèi)容： myexcel.activesheet.cells(2,1).ClearContents

38 打印預(yù)覽工作表： myexcel.Activesheet.PrintPreview

39 打印工作表： myexcel.Activesheet.Printout

40 工作表另存為： myexcel.ActiveWorkbook.saveas("C:\book2.xls")

41 放棄存盤： myexcel.ActiveWorkbook.saved=false

42 關(guān)閉工作簿： myexcel.Workbooks.close

43 退出 Excel： myexcel.quit

清楚了這些命令，操作excel不就變的很輕松了！

怎么用vb.net直接修改excel文件內(nèi)容

這個(gè)簡單，看下面代碼（適應(yīng)各版本Excel，但前提是完整安裝的excel )

Try

Dim?excelObj?As?Object?=?GetObject(,?"Excel.Application")

If?excelObj.Workbooks.Count?=?0?Then?'注意，如果是新建未保存的工作簿不算打開

MsgBox("沒有工作簿打開")

excelObj?=?Nothing

Exit?Sub

End?If

excelObj.Workbooks(1).Worksheets(1).Range("A1").Value?=?"123"?'表示把已經(jīng)打開的第一個(gè)工作簿的第一個(gè)工作表的A1單元格賦值為“123”

excelObj?=?Nothing

Catch?ex?As?Exception

MsgBox(ex.Message)

End?Try

網(wǎng)頁標(biāo)題：關(guān)于vbnetexcel的信息
本文URL：http://chinadenli.net/article8/dsiedip.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供面包屑導(dǎo)航、營銷型網(wǎng)站建設(shè)、用戶體驗(yàn)、網(wǎng)站維護(hù)、App開發(fā)、企業(yè)建站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)