Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.12.2011, 21:09   #1
Vceznayka
Пользователь
 
Регистрация: 27.10.2011
Сообщений: 27
По умолчанию Kак связать Visual Basic с Excel

Помогите, как связать Excel с Visual Basic. У меня все данные находятся в таблицах Excel, до этого я работал только с VBA. В VB команда workbook не работает или я что то не так делаю.
И так необходимо чтобы в Label1 (форма в Visual Basic) заносились данные с ewsd.xslm / incident / A5
Vceznayka вне форума Ответить с цитированием
Старый 22.12.2011, 21:17   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Цитата:
В VB команда workbook не работает или я что то не так делаю
Добавляете в проект VB ссылку на библиотеку Microsoft Excel - и VB начинает понимать объектную модель Excel





workbook заработает только будучи связанной с объектом Excel.Application

Код:
Private Sub Form_Load()
    On Error Resume Next
    Dim cell As Range, wb As Workbook, XL As Excel.Application
    file$ = "C:\Documents and Settings\Admin\Рабочий стол\Гиперссылка.xls"
    Set XL = New Excel.Application
    Set wb = XL.Workbooks.Open(file$)
  '  Dim sh As Worksheet
  '  For Each sh In wb.Worksheets
  '      Debug.Print sh.Name
  '  Next sh
    Set cell = wb.Worksheets("Перечень абонентов").Range("d22")
    Me.Label1.Caption = cell
    wb.Close False
    XL.Quit
End Sub

Последний раз редактировалось EducatedFool; 22.12.2011 в 21:28.
EducatedFool вне форума Ответить с цитированием
Старый 23.12.2011, 04:12   #3
alex77755
Форумчанин
 
Аватар для alex77755
 
Регистрация: 14.02.2009
Сообщений: 753
По умолчанию

А будет ли така программа работать на компе где нет 14.0?
Попадались советы(и я им пользуюсь) Не ставить ссылку, а создавать объект. Тогда создастся установленны на компе
Код:
Private Sub Комманда1_Click()
   Set XL = CreateObject("Excel.Application")
        Set wb = XL.Workbooks.Open("C:\Гиперссылка.xls")
    XL.Visible = True
    ''' делаем
    wb.Close False
    XL.Quit
End Sub
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru
alex77755 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с Visual Basic Editor в Excel. Muaxaxa Помощь студентам 2 14.11.2011 16:43
Visual Basic интегрированный в Excel a1b2 Microsoft Office Excel 3 23.12.2010 19:53
Visual basic - самозапуск скрипта в Excel Johnnie Walker Помощь студентам 1 18.02.2010 03:09