Question

vb6中ole excel如何设定行数和列数，怎样用语句删除ole中全部数据呢

怎样对oleexcel进行行数和列数的赋值，怎样一次性全部清空表格中全部数据呢，有这方面教材吗，不知道怎么给分，可能也没有分，真是抱歉，谢谢大家

Answer 1

首先你建立一个excel对象
Dim excelApp As Object
Set excelApp = CreateObject("Excel.APPLICATION")
然后你可以象操作在vba一样操作excel，只是在所有对象前加定义的excelapp；
比如：新增一个工作表命令是 excelapp.workbooks.add
打开一个工作表命令是 excelapp.workbooks.open filename:= xxx
获得excel文件名 iname = excelApp.GetOpenFilename(fileFilter:="Excel Files (*.xls), *.xls")
等等
清空表的数据 举例：excelApp.activeworkbook.activesheet.cells.clear

追问

真是非常感谢您，假如是在ole中使用excel，然后再vb窗体上怎么固定显示行数和列数呢

追答

vb窗体上弄2个文本框什么的显示值就是！