Конференция VBStreets

**Sirik** » 02.02.2005 (Ср) 12:47

Собственно сабж

Как данные "перекинуть" в Excel?

Надо уметь также изменять ширину столбцов и строк, объединение ячеек, форматирование (выравнивание, жирный, курсив, подчёркнутый)

**uhm** » 02.02.2005 (Ср) 13:10

Откуда экспорт-то?

Либо разбираться с форматом xls файла и писать самому запись в таком формате, либо (что на мой взгляд проще) работать с экселем через OLE.

**Sirik** » 02.02.2005 (Ср) 13:23

Как от куда? Конечно-же из VB

А можно так пробовать: создать Referens на объект Excel, и ним рабоать? Вот только я не знаю как назвывается ссылка

**Andrey Fedorov** » 02.02.2005 (Ср) 14:37

Для скорости лучше так:

http://support.microsoft.com/default.aspx?scid=kb;EN-US;278973

**uhm** » 02.02.2005 (Ср) 15:10

А, ну тогда сорри, это меня опять в дебри понесло

Reference: Microsoft Excel 10.0 Object Library, что-нибудь в таком роде.

Дальше Set excel=New Excel.Appication и вперед...

**Sirik** » 02.02.2005 (Ср) 15:12

Короче, что надо?
А надо вот что: создать книгу Excel из VB и вставить туда строки, причём с форматированием.
И всё

**Ramzes** » 02.02.2005 (Ср) 15:42

Подключаешь к проекту ексель (надеюсь знаешь как)

Код: Выделить всё: Dim xls As New Excel.Application Private Sub Form_Load() xls.Workbooks.Open "(тут имя книгиЭ)" End Sub

Включаешь средство записи макросов, фрматируешь его, полученый код анализируешь и вставляешь в свою прогу

**Sirik** » 02.02.2005 (Ср) 15:55

Дело в том, что книги нет., её нужно создать

**Andrey Fedorov** » 02.02.2005 (Ср) 16:13

Опять-же - если нужно быстро, то данные вставляешь как я написал, потом открываешь книгу и форматируешь ее, покрайней мере это быстрей чем вставлять данные в каждую ячейку...

Вообще можно просто писать файл в формате xls разобравшись с ним - я как-то даже встречал класс для этого. Преимущество - можно экспортировать в Excel (даже с форматированием) не имея на машине самого Excel-я.

**Igor_123** » 02.02.2005 (Ср) 17:35

Код: Выделить всё: Dim xls As New Excel.Application Dim book As Excel.Workbook Private Sub Form_Load() set book = xls.Workbooks.Add book.Name = "(тут имя книгиЭ)" book.Save "Путь куда сохранять" End Sub

Примерно так

**Igor_123** » 02.02.2005 (Ср) 17:47

А вообще тебе говорили запиши макрос и смотри код!!!
Запиши не один макрос

**Sirik** » 02.02.2005 (Ср) 17:49

1. Метод Name работает только на чтение
2. Как книгу сделать видимой?

**Igor_123** » 02.02.2005 (Ср) 17:54

Есть "проперть" (с) GSerg Visible

С Name протупил, изменится после сохранения книги
Используй ObjectBrouser или F2

**Ramzes** » 02.02.2005 (Ср) 17:55

Код: Выделить всё: Dim xls As New Excel.Application xls.Visible = True

Конференция VBStreets

Экспорт в Excel

Экспорт в Excel

Кто сейчас на конференции