Excel Access |
Private Sub 0_Click() ' Dim XL As Object, XT As Object, o As Object Set XL = CreateObject("Excel.Application") Set XT = XL.Workbooks.Open("R:\ .xltx") ' Excel Set o = XT.Sheets(" ") o.Columns("C:G").Select ' : error 1004 select range o.Selection.Columns.Group XL.visible = True End Sub
http://www.sql.ru/forum/1265840/gruppirovka-kolonok-v-liste-excel-iz-access