VB6：如何实现导入Excel表格，然后再生成另一张Excel？

有好几种方法 介绍其中之一
Set Exapp = CreateObject("excel.application")
Set FSO = CreateObject("Scripting.FileSystemObject")
Exapp.DisplayAlerts = False
Exapp.Workbooks.Open "打开的文件的路径"

k = Exapp.workSheets(WSname).Cells(n, s)
'Wsname是excel名 里面的比如sheet1

告诉你一个最简单，最好用的办法。
打开Excel，点击工具菜单下宏--录制新宏。然后把你想要用程序实现，而自己又不会编程的操作都做一遍，停止录宏。然后再点击工具菜单下宏--宏，打开这个宏就可以了。你会发现你想要的代码都有实例了。
当然，你也可以把每一个操作分别录宏，这样看起来就更清楚了。
就这么简单，祝你好运。^_^

'给你一个LoadExcel函数,需要在工程引用里引用一个microsoft excel ....,然后你调用这个函数,传入你的记录集就可以了,你的情况的话只要调用两次就行了,每次的记录集信息由你的查询语句决定

'例: call loadexcel(rsRecordset)

Public Function LoadExcel(ByVal rsMultiInfor As ADODB.Recordset) As String
On Error GoTo ErrTrap
Dim priXLS As Excel.Application
Dim priWorkbook As Excel.Workbook
Dim priSheet As Excel.Worksheet
Dim lngRow, lngRows, intField, intFields, lngID As Long
If rsMultiInfor.RecordCou