如何把一个数据控件中的部分记录集另存为EXCEL文件？

Question

如果手工保存的话，用PB打开表，另存即可。
SQLServer数据库，还可以使用其提供的工具DTS，好用得很。

Answer 1

就是VB调用Excel了，加入对Excel 9.0的引用。然后.........（在MSDN，VB For Aplcation 里面找帮助吧，里面有实例！）
（有电子版的程序员参考，就更好了。）

Answer 2

VB调用Excel 　　使用Excel Sheet对象的技术可以处理可变数量的数据，并将结果最后送到你的Visual Basic 应用程序中。例子如下：　　新建一个工程并在新建的窗体上放置两个TextBox控件和一个CommandButton控件及六个Label控件。　　程序代码如下：　　 Option Explicit　　 Private Sub Command1－Click()　　 Dim xObject As Object　　 ′调用Excel 97　　 Set xObject = CreateObject(“Excel.Sheet")　　 Set xObject = xObject.Application.ActiveWorkbook.ActiveSheet　　 xObject.Range(“A1").Value = Text1.Text ′将数值送入Excel 97的A1单元格　　 xObject.Range(“A2").Value = Text2.Text ′将数值送入Excel 97的A2单元格　　 xObject.Range(“A3").Formula = “=MAX(A1,A2)" ′将最大值送入A3单元格　　 xObject.Range(“A4").Formula = “=ATAN(A1/A2)＊180/PI()" ′将反正切值送入A4单元格　　 ′显示计算的结果　　 Label1.Caption = xObject.Range(“A3").Value　　 Label2.Caption = xObject.Range(“A4").Value　　 Set xObject = Nothing　　 End Sub　　 Private Sub Form_Load()　　 Text1.Text = “"　　Text2.Text = “"　　Label1.Caption = “"　　Label2.Caption = “"　　End Sub　　该程序的作用是：首先在两个文本框（Text1和Text2）输入数值并分别将输入的数值送入Excel 97的“A1”和“A2”单元格中，然后用Excel 97中的“Max()”函数将计算的结果送入“A3” 单元格中；用反正切函数“ATAN()”进行计算并将结果送入“A4” 单元格中，最后输出。