+ Ответить в теме
Показано с 1 по 4 из 4

Тема: VBA: активация книги в новой форме

  1. #1
    Лфыр is on a distinguished road
    Регистрация
    19.05.2017
    Возраст
    30
    Сообщений
    2
    Вес репутации
    0

    По умолчанию VBA: активация книги в новой форме

    Всем здрасте, уважаемые.
    Поделитесь секретом с новеньким, уже с неделю бьюсь над одной проблемой.
    В программе открыл файл экселя:
    Exc = CreateObject("Excel.Application")
    Exc.Workbooks.Open(PathAll).Worksheets(1).Activate ()
    активировал по необходимости один из 4х листов:
    Exc.ActiveWorkbook.Worksheets(1).Activate()
    сохранял после изменений:
    Exc.ActiveWorkbook.Save()

    Но при открытии новой формы (настроек, без закрытия первой), никак не могу получить доступ к листам. Постоянно выдает ошибки... Как можно реализовать подключение книги к активной форме? Я уже пытался даже полностью закрывать/снова открывать книгу из разных форм, всё равно ошибка(

  2. По умолчанию

     
    Хотите избавиться от рекламы? Зарегистрируйтесь
  3. #2
    system architect pashulka will become famous soon enough pashulka will become famous soon enough
    Регистрация
    24.11.2004
    Возраст
    76
    Сообщений
    813
    Вес репутации
    16

    По умолчанию Re: VBA: активация книги в новой форме

    В первом посте - не синтаксис VBA.


    Что касается поставленного вопроса, то насколько я понял …

    Любой стандартный модуль

    Код :
    1. Public xl As Excel.Application 'As Object
    2. Public wb As Excel.Workbook    'As Object
    3. Public ws As Excel.Worksheet   'As Object

    Модуль формы UserForm1

    Код :
    1. Private Sub UserForm_Initialize()
    2.     Dim fileName$
    3.     fileName = "C:\Книга1.xls"
    4.     'Реально существующая рабочая книга (для тестирования используйте 'мусор')
    5.    
    6.     Set xl = CreateObject("Excel.Application")
    7.     Set wb = xl.Workbooks.Open(fileName, 0)
    8.     Set ws = wb.Worksheets(1)
    9.    
    10.     UserForm2.Show
    11. End Sub

    Модуль формы UserForm2

    Код :
    1. Private Sub UserForm_Initialize()
    2.     ws.Range("A1:C3").Formula = "=RAND()"
    3.     wb.Close True
    4.     xl.Quit
    5. End Sub

  4. #3
    Лфыр is on a distinguished road
    Регистрация
    19.05.2017
    Возраст
    30
    Сообщений
    2
    Вес репутации
    0

    По умолчанию Re: VBA: активация книги в новой форме

    Как не VBA?)
    Работаю в Visual Studio 2105

    "Set" - тут вообще не используется) Неужели я перепутал название? Тогда прошу прощения.

    К сожалению, предыдущий ответ не помог(

  5. #4
    system architect pashulka will become famous soon enough pashulka will become famous soon enough
    Регистрация
    24.11.2004
    Возраст
    76
    Сообщений
    813
    Вес репутации
    16

    По умолчанию Re: VBA: активация книги в новой форме

    Visual Studio 2105 - это VB.Net

    Готов подтвердить работоспособность своего совета в .xls файле

+ Ответить в теме

Похожие темы

  1. проблема с usedrange в новой книге
    Уважаемые, кто-нибудь сталкивался с некорректной работой usedrange? Скорее всего глюк, но вдруг что-то просто не знаю. История такая - создаю...
    от district в разделе MS Office и VB(A).
  2. Активация и деактивация окон других приложений
    Открыты Excel и AutoCAD. Макрос запускаетскя в Excel. Задача: активировать окно AutoCAD, взять данные по объекту, снова активировать Excel и...
    от Saor в разделе MS Office и VB(A).
  3. Активация при наведении курсора
    Есть такая проблема: В Excel'е выводится форма, на ней три TextBox'а и две кнопки (Далее и Отменить). При занесении данных в TextBox'ы идет...
    от MikeNsk в разделе MS Office и VB(A).
  4. Не работает скрипт, если <HTML> начинается с новой стр
    Здравствуйте! Никак не могу понять, давно уже мучаюсь. Есть файл aspx: <%@ Page language="c#" Codebehind="MeetingProp.aspx.cs"...
    от Bagin в разделе Perl, PHP, ASP ...
  5. Активация рабочего стола
    Ребята, подскажите плз. Мне нужно поставить хук, который реагирует, если пользователь провёл мышкой по рабочему столу. Кто знает какой хук поставить?
    от MeDuSa в разделе Win API, Shell..

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения