高手请出招：记录集数据导入Excel表如何做？

[czwwh]

在VB中，我有一查询结果，如何导入Excel表，并自动用Excel打开这个表，但不能影响这个程序的继续执行。能不能把这个查询结果以插入行的方式插入Excel表?最好有VB操作Excel表的详细说明。请各位不吝赐教！

[wangsitao]

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

.Worksheets("sheet1").Range(XY).CopyFromRecordset rst
在sheet1上的range(xy)位置开始将rst数据集的数据送入.

说明:若在sheet1上的B4开始,则range(B4).

xlApp.Workbooks (g_strBookName).SaveAs g_strFileName
说明:存盘

[visualcpu]

select语句有这样的功能！

[cnwd]

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Private Sub Command1_Click()

Dim dbs As Database
Set dbs = OpenDatabase(App.Path & "\db1.mdb")
If Dir(App.Path & "\MyExcel.xls") <> "" Then Kill App.Path & "\MyExcel.xls"
dbs.Execute "SELECT * INTO [Excel 8.0;DATABASE=" & App.Path & "\MyExcel.xls].[WorkSheet1] FROM 在校学生"
dbs.Close
Set dbs = Nothing
Shell "C:\Program Files\Microsoft Office\Office\EXCEL.EXE " & App.Path & "\MyExcel.xls", vbMaximizedFocus

End Sub

[czwwh]

回 wangsitao(飞猪) ：
这种可以把数据导入Excel表，但如何实现在某一行之上（或之下）插入数据？

[lcy_008]

Excel其实和数据库差不多，你只要创建一个Excel对象，对可以进行insert into的操作，把数据集的记录一条条插入即可

[coolsky]

xlsheet.cells(3,7).range.insert Shift:=xlDown，在指定单元格下方插入一行，你需要什么功能的话，在excel里录制宏，啥功能都有的。

[czwwh]

回cnwd(doudou)：
你用指定Excel路径的方法打开Excel表，但通用性不强，也许别人安装的路径不是这样。还有其它办法吗？

[czwwh]

问题没有完全解决，但我还是要结贴了