Win Api & VBA

23.04.12

Интеграция - Внешние источники данных

Как уменьшить количество строк кода при вызове функций Windows Api  в модуле VBA? Помочь решить этот вопрос может библиотека типов Win32.tlb от Брюса Мак-Кинни (Bruce McKinney).

Скачать файлы

Наименование Файл Версия Размер
Библиотека типов
.rar 97,34Kb
17
.rar 97,34Kb 17 Скачать

Данная библиотека была собрана для упрощения вызова функций API  в VB4  в далеком 1995 году. Но, несмотря на такой солидный возраст ей можно с успехом пользоваться и сейчас в модулях VBA при обращении к функциям API. 

Рассмотрим пример использования библиотеки в Excel. Регистрация  библиотеки в системе не требуется, поэтому копируем библиотеку в любую папку, например,  в папку,  где расположена книга Excel или в папку Windows. Открываем книгу, переходим в редактор кода (Alt+F11), далее меню Tools->References, и в диалоговом окне нажав кнопку Browse выбираем файл Win32.tlb в искомой папке.Связь с библиотекой установлена, теперь можно посмотреть объекты данной библиотеки – меню View -> Object Browser (F2), в  списке библиотек выбираем Win.

Теперь, собственно пример использования библиотеки – вызов функции FindWindow (поиск окна верхнего уровня).

Private Sub StartCalculator()
'Запуск калькулятора
Dim hProg As Long, ret As Long, hwnd As Long
On Error Resume Next
  hwnd = FindWindow("SciCalc", sNullStr)
  If hwnd > 0 Then
    Call SetForegroundWindow(hwnd)
  Else
    hProg = Shell("calc.exe ", vbNormalFocus)
  End If
End Sub 

Здесь использованы две функции из библиотеки типов:  FindWindow – происк окна верхнего уровня по имени класса (можно искать и по заголовку окна, используется второй параметр функции), и SetForegroundWindow – перевод найденного окна на передний план. Как видно из примера, использование библиотеки типов позволяет вызывать функции Win Api, как встроенные функции VBA.

Приложение содержит библиотеку Win32.tlb и книгу Excel c тремя примерами: чтение, запись ini- файлов и чтение ключей реестра. 

 

См. также

Перенос данных из Парус 8 в ЗГУ 3

Зарплата Внешние источники данных Бюджетный учет Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактических удержаниях, НДФЛ, вычетах, страховых взносах из базы Парус 8 учреждений в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (ЗГУ) и начать с ней работать с любого месяца года.

84000 руб.

19.08.2020    22447    19    1    

22

Перенос данных из Парус 10 в ЗГУ ред.3

Внешние источники данных Кадровый учет Файловый обмен (TXT, XML, DBF), FTP Обмен между базами 1C Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактических удержаниях, НДФЛ, вычетах, страховых взносах из базы Парус 10 учреждений в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (ЗГУ) и начать с ней работать с любого месяца года.

60000 руб.

05.10.2022    9207    9    8    

10

Перенос данных из Парус 7.хх в ЗГУ ред.3

Внешние источники данных Зарплата Бюджетный учет Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактических удержаниях, НДФЛ, вычетах, страховых взносах из базы Парус 7.хх учреждений в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (ЗГУ) и начать с ней работать с любого месяца года.

24000 руб.

24.04.2017    48697    97    163    

86

Перенос начальных остатков из Парус 7.71 в БГУ

Внешние источники данных Взаиморасчеты Учет ОС и НМА Логистика, склад и ТМЦ Бюджетный учет Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 2.0 1С:Бухгалтерия государственного учреждения Государственные, бюджетные структуры Россия Бюджетный учет Платные (руб)

Перенос словарей и начальных остатков из ПП Парус-Бухгалтерия Бюджет 7.71 в 1Сv8 БГУ2. Заполнение словарей и документов по вводу начальных остатков. Не требуется установка ПП Парус7. Возможна дозагрузка. Позволит автоматически и наиболее полно ввести данные в программу для начала работы. 

15600 руб.

08.12.2011    81560    128    123    

147

Перенос данных из Парус 10 (Торнадо) в ЗГУ ред.3 через Excel

Внешние источники данных Загрузка и выгрузка в Excel Зарплата Бюджетный учет Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате из Парус 10(Торнадо) учреждений через файлы Excel в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (ЗГУ). В принципе, обработка может быть использована для загрузки из файлов Excel, полученных из любых информационных систем.

24000 руб.

16.11.2018    29997    20    31    

21

Загрузка спецификаций в УНФ из системы Базис-мебельщик

Производство готовой продукции (работ, услуг) Внешние источники данных Платформа 1С v8.3 1С:Управление нашей фирмой 1.6 Лесное и деревообрабатывающее хозяйство Россия Управленческий учет Платные (руб)

Обработка предназначена для загрузки файлов, выгруженных из системы Базис-мебельщик, в справочник "Спецификации" для последующих процессов учета и диспетчирования полуфабрикатов и изделий.

7200 руб.

24.06.2021    19126    52    50    

29
Оставьте свое сообщение