| Вопрос: принцип создания файла Excel из Visual Basic 6.0 | Добавлено: 22.01.08 04:14 |
Автор вопроса:  vangog | Web-сайт: www.inc.su
|
|
Использую:
Visual Basic 6.0 Excel 2000 и Excel 2003 Windows XP SP2 Приветствую. Мне необходимо понять, как работать с Excel в Visual Basic 6.0 . Обошёл вес форум, но вразумительного, для себя ничего не нашел, так как большая часть кода убирается по умолчанию. Может быть, я плохо искал. И так сам вопрос. Что бы понять принцип работы создания файла Excel из Visual Basic 6.0 прошу Вас привести полный пример рабочего кода. Алгоритм: Создать файл в "C:\my.xls" В котором два рабочих листа "English" и "Русский" На листе "Русский" в ячейке А1 (="Первая ячейка") С15 (=3*2+10) Активный рабочий лист "English" Благодарю за понимание и помощь. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #1 | Добавлено: 22.01.08 12:54 |
|
1. Подключаешь к vb6 проекту через Refrences две библиотеки: по работе с офисом вообще и по работе с Excel в частности, т.е. ставишь галочки напротив
Microsoft Office 11.0 Object Library Microsoft Excel 11.0 Object Library Также должна быть подключена (обычно по умолчанию) OLE Automation 2. В редакторе VBA (который именуют ещё VBE и который открывается в Excel по Alt+F11) открываешь справку по Visual Basic, смотришь на объектые модели Office и Excel и читаешь справку бегло и до полного прояснения 
3. В своём vb6 проекте создаешь объекты Excel и при помощи свойств и методов данных в твои руки объектов делаешь то, что тебе надо. |
||
|
Номер ответа: 2 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #2 | Добавлено: 22.01.08 13:15 |
|
Пример куска кода с объектами Office & Excel:
Sub Test()
Dim x As Application Dim b As Workbook Dim s As Worksheet Set x = New Excel.Application x.Visible = True Set b = x.Workbooks.Add Set s = b.Worksheets(1) s.Name = "Sheet One" Set s = b.Worksheets.Add s.Name = "Sheet Two" s.Cells(1, 1).Value = "Bla Bla Bla" s.Cells(2, 1).FormulaR1C1 = "=3*2+10" b.SaveAs "C:\MyBook.xls" b.Close x.Quit Set s = Nothing Set b = Nothing Set x = Nothing End Sub |
||
|
Номер ответа: 3 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #3 | Добавлено: 22.01.08 13:19 |
|
Лучше для ясности указать, что
Dim x As Excel.Application (во избежание путаницы с vb6 проектом) |
||
Страница: 1 |