vb.net操作excel表的問題 xlbook = xlApp.Workbooks.Open(Application.StartupPath &“\”

Excel程序關(guān)閉了，表格當(dāng)然隨之關(guān)閉。

創(chuàng)新互聯(lián)-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價(jià)比洮北網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫(kù),直接使用。一站式洮北網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋洮北地區(qū)。費(fèi)用合理售后完善，10年實(shí)體公司更值得信賴。

先打印，在關(guān)閉xlapp。

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

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

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中的數(shù)據(jù)

直接去重放到COMBOBOX里，這個(gè)我要看看，好久以前用過，不知道放那里了，有點(diǎn)忘了。

如果做到輔助列，先給這一列去重，再放到COMBOBOX里。

Dim r As Integer

Dim arr As Variant

r = Sheets("控件二").Cells(65536, 1).End(xlUp).Row

arr = Sheets("控件二").Range("A1:H" r)

ComboBox1.List = arr

試試這個(gè)，去重的我再找找。

我想問下，講數(shù)據(jù)保存到excel中后，如何在VB.net中繼續(xù)寫代碼，使得能夠?qū)⑦@些數(shù)據(jù)生成一個(gè)餅圖？并保存。

用宏功能啊，然后把宏代碼（vb6.0）轉(zhuǎn)化為Vb.net代碼，有一個(gè)關(guān)鍵問題，就是VBA中的枚舉類型在Vb.net中不適用，比如.End(xlUp)更改為.End(3)就能運(yùn)行，另外vb.net中運(yùn)行Excel對(duì)象不一定在點(diǎn)后會(huì)出現(xiàn)智能提示（即使你引用后也一樣）你只要確定有該方法或者屬性，直接寫就是了，生成或者調(diào)試都是可以通過的

vb.net如何提取excel2003中單元格內(nèi)容

出錯(cuò)那句改成：

TextBox1.Text = .Range(.Cells(1, 1))，.cells(1, 1).ToString

試試。

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

Dim myExcel As New Excel.Application '定義進(jìn)程

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

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

'操作

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

WorkBook = myExcel.Workbooks.Add() '

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

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

網(wǎng)頁(yè)名稱：vb.netxlup的簡(jiǎn)單介紹
鏈接URL：http://chinadenli.net/article47/dsgssej.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供企業(yè)網(wǎng)站制作、網(wǎng)站制作、關(guān)鍵詞優(yōu)化、商城網(wǎng)站、網(wǎng)站導(dǎo)航、小程序開發(fā)

廣告

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