求导出按钮代码

qp370982

各位老师：
           单选按钮是与籍贯列的内容相对应的，将选中的单选按钮（籍贯）相对应的内容导出为excel
要求：1、都在一个excel文件中，但不同的籍贯为不同的不同的工作表2、工作表的名子就是籍贯名
3、能够自己设定导出excel文件的保存路径

[ 本帖最后由 qp370982 于 2008-12-22 19:12 编辑 ]

qp370982

那位老师帮帮我，谢谢，感激涕零

qp370982

那位老师帮帮我，谢谢，感激涕零

Henry D. Sy

http://www.office-cn.net/forum.p ... mp;page=2#pid389904

yesterday

我想这样作可能好一些：因为导入方法是对表操作的，所以你首先要把筛选结果临时放在一个表或查询中。假定临时表为temp，在导出按钮中加入sql，delete * from temp
"insert into temp selete * from 表1 where 籍贯= 选项值
然后采用 TransferSpreadsheet方法

yesterday

版主 的帖子很厉害，强烈建议参考使用

qp370982

求老师帮忙给改改，在下没学过vb，只学过c，这是老板要的，谢谢，

qp370982

求老师帮忙给改改，在下没学过vb，只学过c，这是老板要的，谢谢，

Henry D. Sy

Private Sub Command13_Click()
    Dim Qdf As DAO.QueryDef
    Dim rs As New ADODB.Recordset
    Dim strSQL As String, strCriteria As String
    Dim ctl As Control

    If IsNull(Me.Text14) Then
        MsgBox "Enter the Path frist"
        Me.Text14.SetFocus
        Exit Sub
    End If
    Set Qdf = CurrentDb.QueryDefs("Q")
    For Each ctl In Me.Controls
        If TypeOf ctl Is OptionButton Then
            If ctl Then
                strCriteria = strCriteria & "'" & ctl.Name & "',"
            End If
        End If
    Next
    If strCriteria = "" Then
        strSQL = "select * from 表1 order by 籍贯"
    Else
        strSQL = "select * from 表1 where 籍贯  in (" & strCriteria & ") order by 籍贯"
    End If
    Qdf.SQL = strSQL
    strSQL = "select distinct 籍贯 from Q"
    With rs
        .Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        Do While Not .EOF
            Set Qdf = CurrentDb.QueryDefs("Out")
            strSQL = "select * from 表1 where 籍贯='" & .Fields(0) & "'"
            Qdf.SQL = strSQL
            DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Out", Me.Text14, , .Fields(0)
            .MoveNext
        Loop
        .Close
    End With
    Set rs = Nothing
    Set Qdf = Nothing
End Sub

[ 本帖最后由 Henry D. Sy 于 2008-12-23 20:31 编辑 ]

qp370982

保存路径能设置为对话框形式吗，谢谢