求导出按钮编码

qp370982

请问各位老师：
        希望通过点击导出按钮，将“档案”中的内容导出成excel文件，并根据“籍贯”分成不同的工作簿

Henry D. Sy

1.     Dim rs As New ADODB.Recordset
   
2.     Dim strSQL As String, SQL As String
   
3.     Dim strOrigin() As String
   
4.     Dim I As Integer, J As Integer, K As Integer
   
5.     Dim strTableName As String
   
6. 
   
7.     strSQL = "select distinct 籍贯 from 档案"
   
8.     rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
   
9.     I = rs.RecordCount - 1
   
10.     ReDim strOrigin(I) As String
    
11.     For J = 0 To I
    
12.         strOrigin(J) = rs.Fields(0)
    
13.         rs.MoveNext
    
14.     Next
    
15.     rs.Close
    
16.     Set rs = Nothing
    
17. 
    
18.     For K = 0 To UBound(strOrigin)
    
19.         strTableName = strOrigin(K)
    
20.         SQL = "select *  into " & strTableName & " from 档案 where 籍贯='" & strOrigin(K) & "'"
    
21.         CurrentDb.Execute SQL
    
22.         DoCmd.OutputTo acOutputTable, strTableName, acFormatXLS, CurrentProject.Path & "" & strTableName & ".xls"
    
23.         DoCmd.DeleteObject acTable, strTableName
    
24.     Next

复制代码

[ 本帖最后由 Henry D. Sy 于 2008-12-6 00:00 编辑 ]

qp370982

出现“下标越界”是什么意思

qp370982

老师，1、我是想导出以后希望产生一个excel文件，只是根据籍贯在这个excel文件中形成不同的工作簿
      2、能否导出之前，先出现一个对话框，能够改变excel文件的名称和路径
望老师多多指导，感激不尽

Henry D. Sy

, CurrentProject.Path & "\" & strTableName & ".xls"
把上面这句去掉

qp370982

sorry，老师是工作表，不是工作簿

Henry D. Sy

你要说清楚，你的标题是不同的工作簿，
已在accessbbs帮你解决了。

qp370982

谢谢各位老师，我是用工作表，sorry
另外还有2个小问题
1、怎样能否导出之前，先出现一个对话框，能够改变excel文件的名称和路径
2、能否让不同工作表的名称也改为相应“籍贯”的名字
麻烦各位老师了，不好意思，小弟感激不尽