Полезное для программистов:

Фриланс
Новости
Статьи
   
Рубрики:


Word/Excel + VB .NET

Поиск:
В этой статье я покажу, как из кода VB .NET работать с приложениями Word/Excel.

1) Работа с Excel
Для начала необходимо добавить ссылку на библиотеку Excel. Делается это через Project -> Add Reference... -> COM -> Microsoft Excel x.x Object Library. Затем создайте новую форму Main с двумя кнопками Read и Write и текстбоксом TextToWrite. Следующий код по нажатии кнопки Read выведет в окне сообщения содержимое ячейки A1 первого листа книги E:\ExcelFile.xls.
Код

Imports Microsoft.Office.Interop.Excel 'Библиотека Excel

Public Class Main 'Наша форма

Private _xlApplication As New Application 'Приложение Excel
Private _xlWorkBook As Workbook = _xlApplication.Workbooks.Open("E:\ExcelFile.xls") 'Открываем книгу
Private _xlWorksheet As Worksheet = CType(_xlWorkBook.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet) 'Первый лист книги



Private Sub Read_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Read.Click
MessageBox.Show(CStr(_xlWorksheet.Range("A1").Value2), "Текст ячейки A1", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub


Private Sub Write_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Write.Click
_xlWorksheet.Range("A1").Value2 = TextToWrite.Text
End Sub

Private Sub Main_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
_xlApplication.Quit(True) 'Выходим, сохранив изменения
End Sub

End Class


2) Работа с Word
Как и в случае работы с Excel, необходимо добавить ссылку на библиотеку. Делается это через Project -> Add Reference... -> COM -> Microsoft Word x.x Object Library. Затем создайте новую форму Main с кнопкой ShowText. Следующий код по нажатии кнопки ShowText выведет в окне сообщения содержимое первого параграфа документа E:\WordFile.doc.
Код

Imports Microsoft.Office.Interop.Word 'Библиотека Word

Public Class Main 'Наша форма

Private _wdApplication As New Microsoft.Office.Interop.Word.Application 'Приложение Word
Private _wdDocument As Document = _wdApplication.Documents.Open("E:\WordFile.doc") 'Документ Word

Private Sub ShowText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show(_wdDocument.Paragraphs(1).Range.Text, "Текст 1-го параграфа", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub

Private Sub Main_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
_wdApplication.Quit(True) 'Выходим, сохранив изменения
End Sub

End Class

Напоследок скажу, что работать с форматированием можно через свойство Range соответствующих объектов:
Код

_wdDocument.Paragraphs(1).Range.Font.Bold = 1
_xlWorksheet.Range("A1").Font.Bold = True

P.S. Не забывайте выходить из приложения! Всегда выполняйте метод Quit!
Автор: Exception






Просмотров: 19327

 

 

Новые статьи:


Популярные:
  1. Как сделать цикличным проигрывание MIDI-файла?
  2. Создание AVI файла из рисунков
  3. Как устройство "отключить в данной конфигурации"?
  4. Kто в данный момент присоединен через Сеть?
  5. Как узнать количество доступной памяти?
  6. Как реализовать в RichEdit разноцветный текст?
  7. Как скрыть свое приложение от ProcessViewer
  8. Как программно нажать/скрыть/показ кнопку "Start"?
  9. Модуль работы с ресурсами в PE файлах
10. Функции вызова диалоговых окон выбора
11. Проверка граматики средствами Word'а из Delphi.
12. Модуль для упрощенного вызова сообщений
13. Функции для записи и чтение своих данных в, ЕХЕ- файле
14. Рекурсивный просмотр директорий
15. Network Traffic Monitor
16. Разные модули
17. Универсальная функция для обращения к любым экспортируем функциям DLL
18. Библиотека от VladS
19. Протектор для UPX'а
20. Еще об ICQ, сообщения по контакт листу?
21. Использование открытых интерфейсов
22. Теория и практика использования RTTI
23. Работа с TApplication
24. Примеры использования Drag and Drop для различных визуальных компонентов
25. Что такое порт? Правила для работы с портами
26. Симфония на клавиатуре
27. Загрузка DLL
28. Исправление автоинкремента
29. Взаимодействие с чужими окнами
30. Проверить дубляжи в столбце


 

 

 
 
На главную