用vb读取Excel中某个单元格的数据

单纯的说怎么读取很简单，假设你的控件名称为A，则  Atext = “sheet1cells(2,2)value”

下面给出VBNET 的完整代码：

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1Click

        Dim DataSPath As String

        DataSPath = "C:\axls"

        Dim ExlApp = CreateObject("ExcelApplication")

        Dim xlbook = ExlAppWorkbooks

        Dim xlbk = ExlAppworkbooksOpen(DataSPath)

        Dim St1 = xlbkworksheets(1)

        TextBox1Text = DataSPath & " 表1中 " & St1cells(2, 2)value

        St1 = Nothing

        xlbook = Nothing

        ExlApp = Nothing

        MsgBox("OK", MsgBoxStyleExclamation, "Tudy")

    End Sub

End Class

vb绑定数据方法：

通过datasource属性绑定

比如使用数据库控件

datasource

控件会出现一个下拉框

选择需要绑定的数据控件，然后设置datamember绑定表，datafield绑定具体字段；也可以使用代码绑定

例如

set

list1datasource=adodc1recordset

list1refresh'刷新

这段代码是在窗口被关闭前把text1text保存到程序运行的目录下的，然后打开程序后再读入datatxt的内容到text1中

Private

Sub

Form_Load()

Open

AppPath

&

"\datatxt"

For

Binary

As

1

Text1Text

=

Input(LOF(1),

1)

'读入datatxt的内容到text1中

Close

1

End

Sub

Private

Sub

Form_Unload(Cancel

As

Integer)

Open

AppPath

&

"\datatxt"

For

Output

As

#1

'打开要将数据保存到里面的文件

Print

#1,

Text1Text

'保存text1的内容

Close

#1

'关闭文件

End

Sub

以上就是关于用vb读取Excel中某个单元格的数据全部的内容，包括:用vb读取Excel中某个单元格的数据、VB如何从数据库读取指定数据、VB关于数据的保存与读取等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！