Office中国论坛/Access中国论坛

标题: 求导出按钮编码 [打印本页]
作者: qp370982    时间: 2008-12-5 22:25
标题: 求导出按钮编码
请问各位老师：
        希望通过点击导出按钮，将“档案”中的内容导出成excel文件，并根据“籍贯”分成不同的工作簿
作者: Henry D. Sy    时间: 2008-12-5 23:55
  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

  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

  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    时间: 2008-12-6 00:03
出现“下标越界”是什么意思
作者: qp370982    时间: 2008-12-6 00:17
老师，1、我是想导出以后希望产生一个excel文件，只是根据籍贯在这个excel文件中形成不同的工作簿
      2、能否导出之前，先出现一个对话框，能够改变excel文件的名称和路径
望老师多多指导，感激不尽
作者: Henry D. Sy    时间: 2008-12-6 00:25
, CurrentProject.Path & "\" & strTableName & ".xls"
把上面这句去掉
作者: qp370982    时间: 2008-12-6 00:36
sorry，老师是工作表，不是工作簿
作者: Henry D. Sy    时间: 2008-12-6 00:43
你要说清楚，你的标题是不同的工作簿，
已在accessbbs帮你解决了。
作者: qp370982    时间: 2008-12-6 12:03
谢谢各位老师，我是用工作表，sorry
另外还有2个小问题
1、怎样能否导出之前，先出现一个对话框，能够改变excel文件的名称和路径
2、能否让不同工作表的名称也改为相应“籍贯”的名字
麻烦各位老师了，不好意思，小弟感激不尽



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3