关于VB.net中读取Excel数据存入数组后的再读取问题

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

创新互联建站-专业网站定制、快速模板网站建设、高性价比繁昌网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式繁昌网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖繁昌地区。费用合理售后完善，十年实体公司更值得信赖。

MsgBox(LBound(arr, 1)) '一维最小下标

MsgBox(LBound(arr, 2)) '二维最小下标

测试：用上面函数（LBound）得到的结果都是1

求程序：vb.net读取excel，插入access，然后查询，再写入另一excel

你可以从数据库中读出该字段的记录，也可以把datagridview中该字段的信息放到textbox中啊，只要判断是第几行，第几列就可以了

VB.net（VS2010）读写Excel2010

你可以使用

Private Sub Form_Load()

Dim a As Object

Dim b As Object

Dim c As Object

Set a = GetObject(, "Excel.Application")

Set b = a.WorkBooks.open(Path  "\工作簿1.xlsx")

a.Visible = False

Set c = b.worksheets(1)

End Sub

要引用：microsoft activex data objects 2.5 library

Private Sub Form_Load()

Dim cnn As ADODB.Connection

Set cnn = New ADODB.Connection

cnn.Open "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=""DSN=Excel Files;DBQ="  App.Path  "\Book1.xlsx;DriverId=1046;FIL=excel 8.0"""

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

rs.Open "select * from [sheet1$]", cnn

Set Me.MSHFlexGrid1.DataSource = rs

End Sub

分享名称：关于vb.net读写excel的信息
网页URL：http://ybzwz.com/article/ddcseip.html