关于隐藏列与导出

qp370982

各位老师，如何在导出文档为excel，不显示隐藏的列

qp370982

请各位老师多帮帮忙

todaynew

如果是不导出隐藏列比较容易。如果是导出隐藏列后，在Excel中也隐藏的话，实现起来有些麻烦。

对于不导出隐藏列，就是写一个select 语句，其中不包含隐藏的列就可以了。然后导出这个查询即可。

[ 本帖最后由 todaynew 于 2008-12-31 15:13 编辑 ]

qp370982

能不能发一个例子过来，谢谢

Henry D. Sy

例子应该你来发

qp370982

谢谢老师

Henry D. Sy

说说，具体要怎么样

qp370982

就是在窗体1中有一列“序号”是隐藏列，希望在导出的excel文件中能够不显示这一列

Henry D. Sy

Dim ctl As Control
Private Sub Command13_Click()
    Dim Qdf As DAO.QueryDef
    Dim rs As New ADODB.Recordset
    Dim strSQL As String, strCriteria As String
    Dim strPath As String
    Dim diaFs As FileDialog
    Set diaFs = Application.FileDialog(msoFileDialogSaveAs)
    With diaFs
        .Title = "导出为........"
        .Show
    End With
    If diaFs.SelectedItems.Count > 0 Then
        strPath = diaFs.SelectedItems(1)
    End If
    If strPath = "" Then
        strPath = CurrentProject.Path & "\out.xls"
    ElseIf Right(strPath, 4) <> ".xls" Then
        strPath = strPath & ".xls"
    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
        Set Qdf = CurrentDb.QueryDefs("Out")
        .Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        Do While Not .EOF

            strSQL = "SELECT 姓名, 性别, 籍贯, 政治面貌, 名族 from 表1 where 籍贯='" & .Fields(0) & "'"
            Qdf.SQL = strSQL
            DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Out", strPath, , .Fields(0)
            .MoveNext
        Loop
        .Close
    End With
    Set rs = Nothing
    Set Qdf = Nothing
    Set diaFs = Nothing
End Sub

qp370982

请在帮你忙改改这个
要求：1、窗体1中有一列“序号”是隐藏列，希望在导出的excel文件中能够不显示这一列
           2、能不能把设置保存路径的方式改为对话框
谢谢