程序有好多窗体，窗体中有DATAGRID控件，客户要求每个DATAGRID都提供引出功能。问题如下：
1、我能否把下面的引出程序做成模块供每个窗体调用，如果能调用话，调用的代码怎么写。
2、我每个DATAGRID中RECORD中的记录集的命名都不相同，不知道如果引出程序可以做成通用模块话会不会有影
响，还有就是每个DATAGRID在声明时Dim CON2 As New Connection, rs4 As New Recordset，其中
Recordset可以做成相同命名吗，比如说都叫RS。如果都命名RS不知道会不会对每个窗体的记录集有影响，例如
下面的导出程序的RECORDSET的命名就是RS4。
3、还有网上说，这样引出程序数据量大会慢，在创建了excel的sheet以后 定义
Mysheet.Cells.CopyFromRecordset   Recordset
这样就把datagrid的rs的记录都放到excel的sheet里面了，这样好象是快了一点，但表头无法导出，请问有什么
好的解决办法吗。
问题比较菜，请各位能给予指教。

导出程序如下：

Private Sub Command2_Click()
Dim I As Integer
Dim j As Integer
Dim m As Integer
Dim n As Integer
'建立excel对象
Set xlApp = CreateObject("excel.application")
Dim xlBook As Object
Dim xlSheet As Object
xlApp.Visible = True
'建立excel对象的工作薄对象
Set xlBook = xlApp.Workbooks.Add
'建立excel对象的工作表对象
Set xlSheet = xlBook.Worksheets(1)
j = DataGrid1.Columns.Count
I = 1
For n = 1 To j - 1
'如果DataGrid1表格中第n列可见,则将其该列的列标题输出至excel表
If DataGrid1.Columns(n).Visible = True Then
'在excel表中的第2行,第i列对应的单元格中显示DataGrid1表格中第n列的列标题
xlSheet.Cells(2, I) = DataGrid1.Columns(n).Caption
I = I + 1
End If
Next n
rs4.MoveFirst
m = 0
Do While Not rs4.EOF
I = 1
For n = 1 To j - 1
'如果ataGrid1表格中第n列可见,则将其该列的值输出至excel表
If DataGrid1.Columns(n).Visible = True Then
'在excel表中的第m+3行,第i列对应的单元格中显示DataGrid1表格中第n列的值
xlSheet.Cells(m + 3, I) = DataGrid1.Columns(n).Value
I = I + 1
End If
Next n
rs4.MoveNext
m = m + 1
Loop
End Sub

Public Sub OutToExcel(TheGrid As DataGrid, TheRS As ADODB.Recordset)
   With TheGrid
     '.............
     xlSheet.Cells(2, I) = TheGrid.Columns(n).Caption
     TheRS.MoveNext
    '...................
   End With
End Sub

在任何窗体中，使用 Call OutToExcel(DataGrid1,Rs4)即可，这是一个思路，你琢磨一下吧

3、还有网上说，这样引出程序数据量大会慢，在创建了excel的sheet以后 定义  
Mysheet.Cells.CopyFromRecordset   Recordset  
这样就把datagrid的rs的记录都放到excel的sheet里面了，这样好象是快了一点，但表头无法导出，请问有什么  
好的解决办法吗。

可以考虑这种导出后。再操作 cells ，在最上面插入一行，然后把表头自己写进去。

谢谢楼上两位的答复。我还有个问题：
我的RS是在另一个窗体的，也就是DATAGRID控件只负责显示数据。我现在要做导出数据，就必须要把所有的执行RS查询的记录放到DATAGRID的窗体加载事情里面。
例如：FORM1的”确定“按键事件如下：
Private Sub Command3_Click()  
With con3
.ConnectionString = "dsn=allray;UID=sa;pwd="
.Open
End With                                       '创建数据库联接
Dim fyear As Integer, fbegperiod As Integer, fendperiod As Integer
fyear = Text2.Text
fbegperiod = Text3.Text
fendperiod = Text4.Text
 
Set rs4.ActiveConnection = con3
If form3.Tag <> "" And form3.Tag = "0" Then
sql = "exec T_BALANCE12     " & fyear & "," & fbegperiod & "," & fendperiod & ""
Form4.Label1 = "应收账款余额表"
Form4.Tag = "0"  
ElseIf form3.Tag <> "" And form3.Tag = "1" Then
sql = "exec T_BALANCEYSPJ   " & fyear & "," & fbegperiod & "," & fendperiod & ""
Form4.Label1 = "应收票据余额表"
Form4.Tag = "1"
End If  
rs4.CursorLocation = adUseClient
rs4.CursorType = adOpenStatic
 
Form4.Visible = True
rs4.Open sql, con3
Set Form4.DataGrid1.DataSource = rs4
Form4.DataGrid1.Refresh
END
--------
而DATAGRID在窗体FORM4里面。并且导出按键也在FORM4里面。这样我用上面的程序就无法对RS记录操作了，必须要把查询程序放到窗体FORM4里面，我也能做，但是我的窗体较多，我要修改的地方就多了。以前在网上到有直接对DATAGRID的显示数据引出成EXCEL，但引出的数据总是不全，我也试过了，确实不全，因为DATAGIRD的数据很多。
请问：
1、能不能在不修改程序的情况下，直接对DATAGRID的结果引出，也就是不对RS记录操作。
2、上面一段查询程序是放在执行查询窗体里面的事件里面，还是放在DATAGRID的窗体加载事件里面呢。两种方法有何利弊。
还是再次谢谢两位的答复

Public Sub OutToExcel(TheGrid As DataGrid) '可以将此过程放在通用模块中 
Set xlApp = CreateObject("excel.application") 
Dim xlBook As Object 
Dim xlSheet As Object 
'建立excel对象的工作薄对象 
Set xlBook = xlApp.Workbooks.Add 
'建立excel对象的工作表对象 
Set xlSheet = xlBook.Worksheets(1) 
'下面将DATAGRID中数据导出到EXCEL中 
With TheGrid 
  .Bookmark = 1 
  For i = 1 To .ApproxCount 
     .Bookmark = i 
        For j = 0 To .Columns.Count - 1 
           xlSheet.Cells(i, j + 1).Value = .Columns(j).Text 
        Next 
  Next 
End With 
 
xlApp.Visible = True 
End Sub 
 
Private Sub Command1_Click() '引用示例
   OutToExcel DataGrid1 
End Sub 

谢谢，但是DATAGIRD的表头无法导出呀，不知道版主的程序我要做什么修改。还有我的DATAGRID的列可能不固定，比如从第三列后面我可能有5列，也有可能有10列，但这10列的格式都是一样的，都是数字，我怎么样定义他的格式，要求：
居右，并且有固定的列宽，数据为0则显示空白。

因该可以吧，我这试过了