随意选择子窗体中想显示的列

coolabc

应网友要求，作个简单的例子，需要的网友可以参考，修正一下。


Sub HiddenCol(subFrm As SubForm, Optional bln As Boolean = True)
    Dim ctl As Control
    For Each ctl In subFrm.Controls
        I ...
Henry D. Sy 发表于 2009-5-6 15:06

如果我要输出显示列的内容的表的话怎么输出呢？
我用下面的代码无法运行！
Private Sub Export_Click()
    Me.出口.SetFocus
    DoCmd.RunCommand acCmdSelectAllRecords
    DoCmd.RunCommand acCmdCopy
  
    Dim obj As Object
    Set obj = CreateObject("excel.application")
    obj.Workbooks.Add
    obj.Visible = True
    SendKeys "^v"
End Sub