十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
因为Excel表的左上角的单元格都是以第一行第一列
创新互联建站-专业网站定制、快速模板网站建设、高性价比繁昌网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式繁昌网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖繁昌地区。费用合理售后完善,十年实体公司更值得信赖。
MsgBox(LBound(arr, 1)) '一维最小下标
MsgBox(LBound(arr, 2)) '二维最小下标
测试:用上面函数(LBound)得到的结果都是1
你可以从数据库中读出该字段的记录,也可以把datagridview中该字段的信息放到textbox中啊,只要判断是第几行,第几列就可以了
你可以使用
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