vb點(diǎn)虐 怎么訪問excel表格

我的是2007版本，其它類似

創(chuàng)新互聯(lián)堅(jiān)持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：成都網(wǎng)站設(shè)計、網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時代的灤南網(wǎng)站設(shè)計、移動媒體設(shè)計的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！

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) '運(yùn)行EXCEL啟動宏 xlBook.RunAutoMacros (xlAutoClose) '運(yùn)行EXCEL關(guān)閉宏

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

vb點(diǎn)虐 怎么使用表格控件？

DataGridView控件，放一個DataGridView1和Button1到窗體，下面是按鈕下代碼\x0d\x0a Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click\x0d\x0a Me.DataGridView1.AllowUserToAddRows = False\x0d\x0a DataGridView1.RowTemplate.Height = 200\x0d\x0a DataGridView1.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None\x0d\x0a For i = 1 To 3\x0d\x0a Me.DataGridView1.Columns.Add("列" i.ToString, "列" i.ToString)\x0d\x0a Me.DataGridView1.Rows.Add()\x0d\x0a Next\x0d\x0a Me.DataGridView1.Columns(0).Width = 100\x0d\x0a Me.DataGridView1.Columns(1).Width = 500\x0d\x0a Me.DataGridView1.Columns(0).Width = 300\x0d\x0a End Sub\x0d\x0a'自己設(shè)置相關(guān)需要的屬性即可

vb點(diǎn)虐 如何與excel建立連接，并從里面查詢并讀取數(shù)據(jù)？

1.新建一張表格，在表格中導(dǎo)入學(xué)生的成績表，如圖所示，將建立一個按鈕，通過它來實(shí)現(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)單元格就變成了亮色。

網(wǎng)頁標(biāo)題：vb點(diǎn)虐 如何調(diào)用表格 vbnet format
標(biāo)題來源：http://vcdvsql.cn/article38/ddijgsp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站維護(hù)、動態(tài)網(wǎng)站、網(wǎng)站策劃、服務(wù)器托管、營銷型網(wǎng)站建設(shè)、靜態(tài)網(wǎng)站

廣告

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