1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Запуск И Редактирование Excel 2010 Из Под Access

Тема в разделе "Visual Basic", создана пользователем Molniya43, 27 июн 2014.

  1. Molniya43

    Molniya43 New Member

    Репутация:
    0
    Регистрация:
    27 июн 2014
    Сообщения:
    1
    Симпатии:
    0
    Добрый день! Нужна помощь.
    Копаюсь в чужом коде, сам имел практику в VBA очень и очень давно (поэтому прошу объяснять, как для школьника))))..
    суть: из под аксеса выполняем запрос, открываем его в эксель, далее сравниваем значения в соседних столбцах и если они не совпадают-окрашиваем строку красным цветом

    Код:
    	Dim appExcel As Excel.Application, sh As Worksheet, rng As Range, mypath As String
    mypath = CurrentProject.Path & "\Проверка.xls"
    mysheet = "CheckBG" 
    DoCmd.OutputTo acOutputQuery, mysheet, "Excel 97 - Excel 2003 Workbook (*.xls)", mypath, 1 
    Set appExcel = GetObject(mypath, "Excel.Application") 
    Set sh = appExcel.Sheets(mysheet) 
    With sh
    If .Cells(2, 11).Value <> .Cells(2, 12).Value Then
    Set rng = .Range(.Cells(2, 1), .Cells(2, 20)) 
    With rng.Interior 
    .ColorIndex = 46
    .Pattern = xlSolid
    End With
    End If
    End With
    Ошибка : ActiveX component cant create objeсt на строке Set appExcel = GetObject(mypath, "Excel.Application")
    ЧЯДНТ?
     
Загрузка...

Поделиться этой страницей