VB6.0数据怎么保存到Excel的sheet.

Question

我想做一个数据保存工作:excel里面有100个sheet,即sheet1到sheet100,保存的数据是85个.要求是第一次点击保存按钮把这85个数据保存在sheet1,第2次点击保存按钮把这85个数据保存在sheet2,依次类推,求大神介绍一下思路或方法.我有自己的想法,但是搞起来有点复杂.怎么弄比较简单并使数据保存准确?
还有一个问题,在保存数据的过程中,用不用打开excel文件? 如果不打开能直接保存吗?我知道不打开可以直接保存为txt文件.拜谢了.

Answer 1

一般是调用EXCEL进程：

Dim   xlApp   As   Object   'Excel.Application    
Dim   xlBook   As   Object     'Excel.Workbook    
Dim   xlSheet   As   Object     'Excel.Worksheet              
Set   xlApp   =   CreateObject("Excel.Application")
Set   xlBook   =   xlApp.Workbooks.Open("abc.xlsx")
Set   xlSheet   =   xlBook.Worksheets(1)
xlSheet.Range("A1:A85")=arr
xlBook.Save