VBNet - Форум - Данные в Excel из VB

Вопрос: Данные в Excel из VB Добавлено: 14.12.02 23:50

Автор вопроса: Vug

Всем привет. Помогите загрузить данные из формы (тупо - три TextBox) в книгу Excel, но
1. Уже существует.
2. В Конкретные ячейки
3. Все как можно подробней.
ЗАРАНЕЕ СПАСИБО!!!

Ответить

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

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

Last_Santa

ICQ: 200700724

Вопросов: 38
Ответов: 329

Web-сайт: localhost
Профиль | | #1

Добавлено: 15.12.02 02:24

Вопросы о роботе с офисными документами используя ВБ на этом форуме обсуждаються с завидным постоянством, если пролистать хотябы несколько страниц форума можно найти найти много полезной информации, в частности по вашему вопросу. Также можно оределить какие темы обсуждаються чаще всего и читая топики вы найдете ответы на вопросы которые в скором времени у вас появятся (это так лирическое отступление) а вообще в Визуад Бейсике есть такая возможность подключать различные библиотеки для выполнения тех или иных задач. Эта возможность доступна через пункт References в меню Project. Для вашего случая нужна библеотека Microsoft Excel x.xx Type Library.

необходимо также объявить переменные для работы с екселем напрример

Dim var1 As New Excel.Application
Dim var2 As Excel.Workbook
Dim var3 As Excel.Worksheet

ну а потом уже используя эти переменные делать все то что возможно в самом Екселе

Ответить

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

Born

ICQ: 178155071

Вопросов: 21
Ответов: 52

Профиль | | #2

Добавлено: 15.12.02 05:58

Не забудт в Referens подключить библиотеку

Public objXLApp As Application

Public objWbNewBook As Workbook

Public objSheets As Worksheet

Private Sub Command1_Click()

CreateXlBook = False

Set objXLApp = CreateObject("Excel.Application")

objXLApp.SheetsInNewWorkbook = 1

Set objWbNewBook = objXLApp.Workbooks.Open

("Полный путь к файлу.xls")

If objWbNewBook Is Nothing Then Exit Sub

objXLApp.Visible = True '(1 = 1)

CreateXlBook = True

Set objSheets = objWbNewBook.Worksheets(1)

'RowCount = objSheets.UsedRange.Rows.Count + 1 ' Определяет количество использованных строк(это так на будущее)

With objSheets

.Cells(1, 1) =Text1.text ' Вставит твои значения в ячейку А1

End With

End sub

Будут вопросы пиши

А это так поюзаешь ( текст выделяешь, переформатируешь):

With objSheets

Xbt = objSheets.UsedRange.Rows.Count

Ybt = objSheets.UsedRange.Columns.Count

'.Range("A14:K100").Clear

.Range(objSheets.UsedRange.Columns(3).Address).HorizontalAlignment = xlCenter

.Range(objSheets.UsedRange.Columns(1).Address).HorizontalAlignment = xlCenter

.Range(objSheets.Cells(14, 6), objSheets.Cells(Xbt, 10)).HorizontalAlignment = xlCenter

.Range("E6").Font.Size = 12

.Cells(6, 5) = " " & cbNameIzdel.Text

End With

objSheets.Range(objSheets.Cells(14, 1), objSheets.Cells(Xbt, Ybt)).Font.Size = 10

objSheets.Range(objSheets.Cells(14, 1), objSheets.Cells(Xbt, Ybt)).Borders.LineStyle = xlContinuous

End sub

Ответить

Страница: 1 |