Question

关于VB读取excel内数据的问题

如果运用 VB 读取 f:\1.XLS 内 sheet1表内 B2的数据 放到 text1.text 内

求详细代码

Answer 1

在“工程”的“引用”中选择“microsoft excel 11.0”,"microsoft excel 11.0"看版本而定
Dim xlApp As New Excel.Application
Dim xlBook As New Excel.Workbook
Dim xlSheet As New Excel.Worksheet

Private Sub Command1_Click()
On Error Resume Next
'后台进程运行excel程序，并得到该工作簿
Set xlBook = xlApp.Workbooks.Open("f:\1.xls")
xlApp.Visible = False
'获得该工作簿的“sheet1”表
Set xlSheet = xlBook.Sheets("sheet1")

xlSheet.Select
'抽取b2格子的数据并赋值给text1.text
text1.Text = xlSheet.Range("b2")
'释放资源，顺序到过来的，表》》簿》》应用程序
Set xlSheet = Nothing
Set xlBook = Nothing
xlApp.Quit
Set xlApp = Nothing
End Sub

Answer 2

'工程中添加对microsoft excel 11.0对象库的引用

'为应用程序工作簿工作表对象声明对象变量
dim xlApp as excel.application
dim xlbook as excel.workbook
dim xlsheet as excel.worksheet

'将对象引用赋值给变量，用ADD方法创建新的工作簿和工作表对象
set xlapp=new excel.application
set xlbook=slapp.workbooks.add
set xlsheet=xlbook.worksheets.add

'将文本框中的值赋给microsoft excel单元
xlsheet.cells(1,1).value=text1.text
xlsheet.cells(2,1).value=text2.text

'用formula方法将microsoft excel中的值相加
xlsheet.cells(3,1).formula="=r1c1+r2c1"
text3.text=xlsheet.cells(3,1)

'保存工作表
xlsheet.saveas "c:\temp.xls"
'关闭工作表
xlbook.close

'关闭microsoft excel
xlapp.quit
'释放对象
set xlapp=nothing
set xlbook=nothing
set xlsheet=onthing