Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 14.01.2013
Сообщений: 73
1

Литература по VB для работы с Microsoft Office

24.01.2013, 13:53. Показов 903. Ответов 5
Метки нет (Все метки)

Люди есть ли литература по VB именно по работе с microsoft office( excell, word)??
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.01.2013, 13:53
Ответы с готовыми решениями:

Microsoft office литература для новичка
Скачал и установил Microsoft Office 2016 Professional Plus. Подскажите какую нибудь литературу для...

Бесплатная библиотека для работы с Microsoft Office Excel
Подскажите бесплатную библиотеку для работы с Excel 2003-7 c примерами. Заранее спс.

Microsoft.Office.Interop для всех версий MS Office
Здравствуйте! Нашёл кучу околоподобных тем, но без нужных решений. Задача такая: Пишу на C#...

microsoft word object library для microsoft office XP
Помогите пожалуйста!!! В VB6 не могу подключить microsoft word object library. То есть ее нет в...

5
0 / 0 / 0
Регистрация: 14.01.2013
Сообщений: 73
24.01.2013, 15:10  [ТС] 3
VBA и VB это же разные вещи или нет?
0
Заблокирован
24.01.2013, 15:23 4
Vdekameron, для полноценной работы с microsoft office из VB6 нужно знать VBA и объектные модели приложений.
А открыть (закрыть) приложение (документ) из VB - дело нескольких строк, для этого не нужен учебник (ИМХО)
0
0 / 0 / 0
Регистрация: 14.01.2013
Сообщений: 73
24.01.2013, 15:27  [ТС] 5
Например что ты называешь полноценной работой microsoft office из VB? просто хочу знать может мне это и не нужно
0
Эксперт WindowsАвтор FAQ
17784 / 7520 / 889
Регистрация: 25.12.2011
Сообщений: 11,289
Записей в блоге: 16
24.01.2013, 23:10 6
Например, код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Dim excel as object, excelworkbook as object, excelsheet as object
::Создаем объект MS Excel
set excel = createobject("excel.application")
::Создаем новый экземпляр книги Excel
set excelworkbook = excel.workbooks.add
::указатель на лист № 1
set excelsheet = excelworkbook.worksheets(1)
::сделаем приложение видимым
excel.visible =true
::Поместим в ячейку с позицией R = 2, C = 1 значение 100 (Value можно опустить).
excelsheet.Cells(2, 1).value= 100
'...
Так вот, все методы и свойства, которые Вы видите указанными после объекта excel. ...
не имеют отношения к изучению VB. Они описаны в объектной модели VBA.
На начальном этапе по части VB для управления MS Office Вам достаточно будет знать кода, который Вы видите выше.

Вот похожее для MS Word:

Visual Basic
1
2
3
4
5
dim objWord as object
Set objWord = CreateObject("Word.Application")
objWord.Visible = True 'False (открыть в невидимом режиме)
Set objDoc = objWord.Documents.Add()
objWord.Selection.TypeText 100
Вот более сложный пример с использованием функций Windows API
для проверки запущен ли Excel. Если запущен, новый экземпляр приложения не создается, подключаемся к уже существующему.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
' Описываем необходимые процедуры API:
 Declare Function FindWindow Lib "user32" Alias _
 "FindWindowA" (ByVal lpClassName as String, _
 ByVal lpWindowName As Long) As Long
 
 Declare Function SendMessage Lib "user32" Alias _
 "SendMessageA" (ByVal hWnd as Long,ByVal wMsg as Long _
 ByVal wParam as Long _
 ByVal lParam As Long) As Long
 
 Sub GetExcel()
 Dim MyXL As Object ' Переменная для сохранения
 ' ссылки на Microsoft Excel.
 Dim ExcelWasNotRunning As Boolean ' Флаг для выхода из приложения.
 
 ' Проверка, выполняется ли Microsoft Excel.
 On Error Resume Next ' Отложенный перехват ошибок.
 ' Функция GetObject, вызванная без указания первого аргумента, 
 ' возвращает ссылку на экземпляр приложения. Если это приложение 
 ' не запущено, возвращается ошибка. Обратите внимание на запятую, 
 ' стоящую на месте отсутствующего первого аргумента.
 Set MyXL = Getobject(, "Excel.Application")
 If Err.Number <> 0 Then ExcelWasNotRunning = True
 Err.Clear ' Очищаем объект Err на случай ошибки.
 
 ' Проверка Excel. Если Excel выполняется,
 ' он вводится в таблицу выполняемых объектов (Running Object table).
 DetectExcel
 
 Задаем в объектной переменной ссылку на открываемый файл.
 Set MyXL = Getobject("c:\vb4\MYTEST.XLS")
 
 ' Делаем видимым Excel с помощью свойства Application. Затем делаем
 ' видимым окно, содержащее файл, с помощью семейства Windows объекта,
 ' определяемого ссылкой MyXL.
 MyXL.Application.Visible = True
 MyXL.Parent.Windows(1).Visible = True
 
 ' Здесь помещаем инструкции
 ' по обработке вызванного файла.
 ' ...
 ' Если приложение Microsoft Excel не выполнялось при запуске данной
 ' программы, закрываем его с помощью метода Quit свойства Application.
 ' Отметим, что при попытке выхода из Microsoft Excel строка заголовка
 ' мигает и выводится приглашение сохранить все загруженные файлы.
 If ExcelWasNotRunning = True Then 
 MyXL.Application.Quit
 End IF
 
 Set MyXL = Nothing ' Освобождаем ссылку на 
 
 ' приложение и электронную таблицу.
 End Sub
 
 Sub DetectExcel()
 ' Процедура находит выполняемый Excel и регистрирует его.
 Const WM_USER = 1024
 Dim hWnd As Long
 ' Если Excel выполняется, этот вызов API возвращает его дескриптор.
 hWnd = FindWindow("XLMAIN", 0)
 If hWnd = 0 Then ' 0 означает, что Excel не выполняется.
 Exit Sub
 Else 
 ' Excel выполняется. Используйте функцию API SendMessage, чтобы ввести его в таблицу выполняемых объектов (Running Object Table).
 
 SendMessage hWnd, WM_USER + 18, 0, 0
 End If
 End Sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.01.2013, 23:10

Включать ли обновления в Windows 7(лицензия), для Microsoft Office Enterprise 2007, если ключ к Office может быть используется на других компьютерах?
Включать ли обновления в Windows 7 (лицензия), для Microsoft Office Enterprise 2007, если ключ к...

Совместимость работы Windows 8 и Microsoft Office Word 2010
Здравствуйте! Приобрела ноутбук с Windows 8. Теперь вот такая проблема, раньше в Windows 7, я...

Использование Microsoft.Office.Interop.Word на компьютере без установленного пакета MS office
Есть приложение, которое использует Microsoft.Office.Interop.Word, на компах с установленным офисом...

Пароль для Microsoft Office Access
Здравствуйте. у меня такой вопрос: как программно ввести пароль от базы данных Access, если для...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru