先在: My Project 中引用 Microsoft Excel 11.0 Object Library(這個(gè)是Excel 2003,Excel 2007 是12.0),之后在窗體代碼中加入相關(guān)內(nèi)容就行了。以下是一個(gè)窗體的簡單實(shí)例

創(chuàng)新互聯(lián)專注于中大型企業(yè)的網(wǎng)站制作、成都做網(wǎng)站和網(wǎng)站改版、網(wǎng)站營銷服務(wù),追求商業(yè)策劃與數(shù)據(jù)分析、創(chuàng)意藝術(shù)與技術(shù)開發(fā)的融合,累計(jì)客戶千余家,服務(wù)滿意度達(dá)97%。幫助廣大客戶順利對接上互聯(lián)網(wǎng)浪潮,準(zhǔn)確優(yōu)選出符合自己需要的互聯(lián)網(wǎng)運(yùn)用,我們將一直專注成都品牌網(wǎng)站建設(shè)和互聯(lián)網(wǎng)程序開發(fā),在前進(jìn)的路上,與客戶一起成長!
假設(shè)在C盤根文件夾中有:TEST.xls
Public Class 引用EXCEL窗體
Private A() As String = {"A", "B", "CC", "C", "D"}
Private B() As Integer = {1, 22, 34, 50, 16, 99, 14}
Private excelapp As New Microsoft.Office.Interop.Excel.Application
Private excelworkbook As Microsoft.Office.Interop.Excel.Workbook
Private Sub 引用EXCEL_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Index As Integer
excelworkbook = excelapp.Workbooks.Open("c:\test.xls")
excelapp.Application.Workbooks.Add(True)
excelapp.Cells(1, 1) = "數(shù)組:A"
For Index = 0 To UBound(A)
excelapp.Cells(Index + 2, 1) = A(Index)
Next
excelapp.Cells(1, 2) = "數(shù)組:B"
For Index = 0 To UBound(B)
excelapp.Cells(Index + 2, 2) = B(Index)
Next
excelapp.Visible = True
End Sub
End Class
運(yùn)行結(jié)果:
數(shù)組:A 數(shù)組:B
A 1
B 22
CC 34
C 50
D 16
99
14
Imports ESRI.ArcGIS.Geodatabase
加在文件的開頭,這樣就會(huì)把IFeature 自動(dòng)識別為ESRI.ArcGIS.Geodatabase.IFeature了。
ESRI.ArcGIS.Geodatabase是一個(gè)命名空間,里面有一個(gè)叫IFeature的類,ESRI.ArcGIS.Geodatabase.IFeature就是指這個(gè)類。如果你只寫IFeature的話,編譯系統(tǒng)就會(huì)認(rèn)為你要用當(dāng)前命名空間里的IFeature類,但它找不到這個(gè)叫IFeature的類,所以就會(huì)報(bào)錯(cuò)。
Imports就有這個(gè)功能,只寫一遍命名空間名稱,以后不用寫命名空間名稱就可以直接使用里面的各種類、常量、變量等等。
很簡單,看代碼:
Dim?objexcelfile?As?Excel.Application?=?New?Excel.Application
objexcelfile.DisplayAlerts?=?False
Dim?objworkbook?As?Excel.Workbook?=?objexcelfile.Workbooks.Open("D:\1.xlsx")??'Excel文件路徑
Dim?objimportsheet?As?Excel.Worksheet?=?objworkbook.Sheets(1)?'讀取第一個(gè)Sheet
Dim?intRow?As?Integer?=?objimportsheet.UsedRange.Rows.Count??'獲取總行數(shù)
Dim?prod?As?String?=?objimportsheet.Cells(j,?i).value?'讀取單元格的值(i是列,j是行)
'釋放Excel文件
objworkbook.Close()
objworkbook?=?Nothing
objexcelfile.Quit()
注意需要添加 Microsoft.Office.Interop 的引用。
VB.NET中的變量在使用前要進(jìn)行聲明。即便不進(jìn)行顯式聲明,VB也會(huì)進(jìn)行隱式聲明。
本題中應(yīng)該這樣使用:
Dim a1 As String = TextBox1.Text
System.Diagnostics.Process.Start("IExplore.exe", a1)
變量是存儲值的名稱。可使用變量來存儲數(shù)字,例如建筑物的高度,或者存儲單詞,例如人的名字。簡單地說,可使用變量表示程序所需的任何信息。
你可能會(huì)問:“既然我可以使用信息,為什么要用變量?” 正如其名稱所表示的,變量可以隨著程序的運(yùn)行而改變其表示的值。例如,您可以寫一個(gè)程序來跟蹤桌子上罐里的軟心豆粒糖的數(shù)目。因?yàn)樘鞘且怀缘舻模怨蘩镘浶亩沽L堑臄?shù)目可能會(huì)隨著時(shí)間的推移而改變。您可以使用一個(gè)可隨時(shí)間變化的變量來表示軟心豆粒糖的數(shù)目,而無需在每次想吃糖時(shí)重新編寫程序。
分享標(biāo)題:vb.net變量表,vb 列表
網(wǎng)頁地址:http://chinadenli.net/article1/dsissid.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供動(dòng)態(tài)網(wǎng)站、網(wǎng)站維護(hù)、網(wǎng)站策劃、App開發(fā)、商城網(wǎng)站、云服務(wù)器
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)