-Ïîèñê ïî äíåâíèêó

Ïîèñê ñîîáùåíèé â rss_sql_ru_access_programming

 -Ïîäïèñêà ïî e-mail

 

 -Ïîñòîÿííûå ÷èòàòåëè

 -Ñòàòèñòèêà

Ñòàòèñòèêà LiveInternet.ru: ïîêàçàíî êîëè÷åñòâî õèòîâ è ïîñåòèòåëåé
Ñîçäàí: 16.03.2006
Çàïèñåé:
Êîììåíòàðèåâ:
Íàïèñàíî: 4


Ãðóïïèðîâêà êîëîíîê â ëèñòå Excel èç Access

×åòâåðã, 13 Èþëÿ 2017 ã. 07:31 + â öèòàòíèê
Äåíü äîáðûé.
Íåîáõîäèìî â îòêðûòîé êíèãå ñãðóïïèðîâàòü êîëîíêè â èíòåðâàëå "C:G".
Ïîêà ïîëó÷àåòñÿ îðãàíèçîâàòü îøèáêó. Ïîìîãèòå ïîæàëóéñòà, Ñïàñèáî.

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


 

Äîáàâèòü êîììåíòàðèé:
Òåêñò êîììåíòàðèÿ: ñìàéëèêè

Ïðîâåðêà îðôîãðàôèè: (íàéòè îøèáêè)

Ïðèêðåïèòü êàðòèíêó:

 Ïåðåâîäèòü URL â ññûëêó
 Ïîäïèñàòüñÿ íà êîììåíòàðèè
 Ïîäïèñàòü êàðòèíêó