用vb.net如何讀取excel單元格內(nèi)容？

Dim myExcel As New Excel.Application '定義進程

為新安等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計制作服務(wù)，及新安網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為成都網(wǎng)站設(shè)計、成都網(wǎng)站制作、新安網(wǎng)站設(shè)計，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達到每一位用戶的要求，就會得到認(rèn)可，從而選擇與我們長期合作。這樣，我們也可以走得更遠！

Dim WorkBook As Excel.Workbook '定義工作簿

Dim Sheet As Excel.Worksheet '定義工作表

'操作

myExcel.Visible = False '不顯示excel 程序

WorkBook = myExcel.Workbooks.Add() '

Sheet = WorkBook.Sheets(1) '獲得第1個工作表的控制句柄

Sheet.Cells(1, 3) = "好人一生幸福" i '對指定單元格賦值(讀信息當(dāng)然也沒問題了)Sheet.Cells(1, 3)

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è)置活動工作表

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

xlSheet.PrintOut '打印工作表

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

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

Set xlApp = Nothing '釋放xlApp對象

xlBook.RunAutoMacros (xlAutoOpen) '運行EXCEL啟動宏 xlBook.RunAutoMacros (xlAutoClose) '運行EXCEL關(guān)閉宏

還有很多，這個要自己慢慢摸索

VB.NET獲取Excel單元格內(nèi)容

Dim xlApp As New Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

Dim xlRange As Excel.Range

Dim strTmp As String = ""

xlApp = CreateObject("Excel.Application")

xlBook = xlApp.Workbooks.Open(txtfileName.Text)

xlSheet = xlBook.Worksheets(1)

xlApp.Visible = False

xlRange = xlSheet.Cells(1, 1)

strTmp = xlRange.Value'讀取第一行第一列值,其它的你自己可以寫

xlApp.Application.Visible = False

xlBook.Close()

xlApp = Nothing'"交還控制給Excel

xlBook = Nothing

xlSheet = Nothing

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

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

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

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)單元格就變成了亮色。

你好，我現(xiàn)在遇到同樣的問題，我想通過vb.net程序讀取excel中的單元格數(shù)據(jù)，你實現(xiàn)了嗎？教教我啊，，郵箱

1,先添加excel的引用，然后添加如下代碼：

Imports Microsoft.Office.Interop.Excel

Imports Microsoft.Office.Interop

Imports Microsoft.Office

2，添加一個button空間，添加如下代碼：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim xlapp As New Excel.Application

Dim xlbook As Excel.Workbook

Dim xlsheet As Excel.Worksheet

xlbook = xlapp.Workbooks.Open("c:\1.xls")

xlsheet = xlbook.Worksheets(0)

Console.WriteLine(xlsheet.Cells(1, 1).text)

xlbook = Nothing

xlapp.Quit()

End Sub

到此，應(yīng)該就能讀取了。

關(guān)于VB.net中讀取Excel數(shù)據(jù)存入數(shù)組后的再讀取問題

因為Excel表的左上角的單元格都是以第一行第一列

MsgBox(LBound(arr, 1)) '一維最小下標(biāo)

MsgBox(LBound(arr, 2)) '二維最小下標(biāo)

測試：用上面函數(shù)（LBound）得到的結(jié)果都是1

本文標(biāo)題：包含vb.net讀取xls的詞條
瀏覽路徑：http://chinadenli.net/article43/dseeces.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供企業(yè)建站、網(wǎng)站維護、網(wǎng)站內(nèi)鏈、動態(tài)網(wǎng)站、網(wǎng)站營銷、品牌網(wǎng)站建設(shè)

廣告

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