Question

vf6.0中怎样把EXCEL中的数据导入到工作表中

Answer 1

工程中添加对microsoft excel 8.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

主要说明了程序中怎样操作Excel