VBNet - Форум - Работа VB с таблицами Exel

Вопрос: Работа VB с таблицами Exel Добавлено: 03.12.03 18:02

Автор вопроса: Костик | Web-сайт: myprogi.narod.ru

Подскажите, как работать с таблицами Exel программно?
(создавать таблицу, добавлять, удалять строки из таблицы, считывать данные в таблицу)

Ответить

Ответы Всего ответов: 7

Номер ответа: 1 Автор ответа: Svetlana ICQ: 262385618 Вопросов: 43 Ответов: 205	Профиль \| \| #1	Добавлено: 03.12.03 21:53
	Классно ты вопрос задаешь.. Интересно, ответили бы мне на вопрос.. ну например: Какие АПИшки для чего нужны. Не думаю.. Мне как-то посчисливилось видеть библию по АПИ-фукциям - 600 стр. А ты хочешь чтобы тебе все сразу сказали.. Ну хочешь я тебе пару лаб своиx с коментариями на мыло пришлю? Там все понятно. И даже с WORD'ом там есть кусочек кода. Ответить

Номер ответа: 2 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968	Web-сайт: www.vbnet.ru Профиль \| \| #2	Добавлено: 04.12.03 11:46
	Через OLE Automation.. Ответить

Номер ответа: 3 Автор ответа: Костик Вопросов: 19 Ответов: 32	Web-сайт: myprogi.narod.ru Профиль \| \| #3	Добавлено: 07.12.03 13:11
	Svetlana: если не трудно, то скинь пожалуйста! Ответить

Номер ответа: 4 Автор ответа: Костик Вопросов: 19 Ответов: 32	Web-сайт: myprogi.narod.ru Профиль \| \| #4	Добавлено: 07.12.03 13:12
	Svetlana: если не трудно, то скинь пожалуйста! Ответить

Номер ответа: 5 Автор ответа: Иван Администратор ICQ: 147688925 Вопросов: 24 Ответов: 708	Web-сайт: www.vbnet.ru Профиль \| \| #5	Добавлено: 07.12.03 13:43
	Подключи библиотеку Microsoft Office b Microsoft Excel через References и посмотри их. Ответить

Номер ответа: 6 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968	Web-сайт: www.vbnet.ru Профиль \| \| #6	Добавлено: 08.12.03 10:01
	А разве Microsoft Office тоже надо? Ответить

Номер ответа: 7
Автор ответа:

ol2003

Вопросов: 3
Ответов: 122

Профиль | | #7

Добавлено: 08.12.03 22:08

Тебе нужно указатььрееренс к Microsoft Office 10.0 Object Library

Вот тебе пример, где результат SQL комманды пишется в Excel

Private Sub RunSelect()

'создаем объект

xlApp = CType(CreateObject("Excel.Application"), Excel.Application)

xlBook = CType(xlApp.Workbooks.Add, Excel.Workbook)

Try

For i = 0 To UBound(strSelect)

If ExecuteQuery(xSrv, xLogin, xPwd, strDBName, strSelect(i)) = True Then

If i >= 3 Then

'по умолчанию Excel содержит толо 3 листа. Добавляем еси надо

xlBook.Worksheets.Add(, xlBook.Worksheets(i))

End If

xlSheet = CType(xlBook.Worksheets(i + 1), Excel.Worksheet)

Dim a As Integer, b As Integer

If dsQueryResult.Tables.Count > 0 Then

If dsQueryResult.Tables(0).Rows.Count > 0 Then

'приписываем заголовки

For b = 0 To dsQueryResult.Tables(0).Columns.Count - 1

xlSheet.Cells(1, b + 1) = dsQueryResult.Tables(0).Columns(b).ColumnName

a = 2

'грузим данные

For Each drQ In dsQueryResult.Tables(0).Rows

For b = 0 To dsQueryResult.Tables(0).Columns.Count - 1

xlSheet.Cells(a, b + 1) = drQ(b)

a += 1

Else

xlSheet.Cells(1, 1) = "No results returned"

xlSheet.Range("A1").Font.Bold = True

End If

Else

xlSheet.Cells(1, 1) = "No results returned"

xlSheet.Range("A1").Font.Bold = True

End If

xlApp.Visible = True

Catch

MessageBox.Show("Error: " & Err.Number & ". " & Err.Description & vbCrLf _

& "occured while trying to execute query.", "Error Executing Query", _

MessageBoxButtons.OK, MessageBoxIcon.Error)

CleanExcel()

End Try

End Sub

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

Private Sub CleanExcel()

If Not (xlSheet Is Nothing) Then xlSheet = Nothing

If Not (xlApp Is Nothing) Then

xlApp.Quit()

xlApp = Nothing

End If

End Sub

Ответить

Страница: 1 |