VB 2008 Express Edition и MS Excel (2003?)
Формулировка задачи:
Не пинайте сильно, не сильно пока понимаю в VB.
Умею писать скрипты на VBA для Excel 2003, но средств встроенного VBA не хватает (мало эвентов, мало контролей, и вообще клиент хочет .exe файл), поэтому решил сделать форму на VB2008 Express Edition.
Хочу организовать работу с книгой экселя через форму, написанную на VB. Очень желательно, чтобы не очень много изучать понять как бы так подключить эту книгу к программе, чтобы можно было использовать все методы экселя (range,cells,worksheetfunction и всё с ними связанное).
Как можно объявить и в каком месте и какого типа переменную, которая будет представлять этот файл экселя - data.xls, который лежит в той же папке, где и .exe файл, чтобы начать работать с ним, как в VBA.
Умею писать скрипты на VBA для Excel 2003, но средств встроенного VBA не хватает (мало эвентов, мало контролей, и вообще клиент хочет .exe файл), поэтому решил сделать форму на VB2008 Express Edition.
Хочу организовать работу с книгой экселя через форму, написанную на VB. Очень желательно, чтобы не очень много изучать понять как бы так подключить эту книгу к программе, чтобы можно было использовать все методы экселя (range,cells,worksheetfunction и всё с ними связанное).
Как можно объявить и в каком месте и какого типа переменную, которая будет представлять этот файл экселя - data.xls, который лежит в той же папке, где и .exe файл, чтобы начать работать с ним, как в VBA.
Решение задачи: «VB 2008 Express Edition и MS Excel (2003?)»
textual
Листинг программы
<font color="blue">Dim</font> xl <font color="blue">As</font> <font color="blue">New</font> Excel.Application <font color="blue">Dim</font> xlsheet <font color="blue">As</font> Excel.Worksheet <font color="blue">Dim</font> xlbook <font color="blue">As</font> Excel.Workbook xlbook = xl.Workbooks.Add() xlsheet = xlbook.Sheets.Item(<font color="darkblue"><b>1</b></font>) xlsheet.Cells(<font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>1</b></font>).Value = <font color="teal">"текст"</font> xlbook.SaveAs(fileSearchDialog.FileName) xlbook.<font color="blue">Close</font>() xl.Quit()
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д