Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как отобразить книгу, если она скрылась после макроса? - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как отобразить книгу, если она скрылась после макроса? (Макросы/Sub)
Как отобразить книгу, если она скрылась после макроса?
pips Дата: Среда, 18.07.2018, 12:14 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 59
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день!
У меня есть код, по которому из Файл1 открывается Файл2, туда заносятся данные из первого, и Файл2 закрывается.
Проблема заключается в том, что после закрытия второго файла, скрывается и первый. Именно скрывается, а не закрывается. Видно только окно Userform от Файл1
Подскажите, пожалуйста, как переписать код, чтобы второй файл закрывался с сохранением, а в первом можно было продолжать работать? Спасибо!
[vba]
Код

Private Sub CommandButton6_Click()
If WorkBookIsOpen("Файл2.xlsx") Then
Workbooks("Файл2.xlsx").Close Savechanges = True
Else
Dim wb As String: wb = 'адрес папки с файлом 2
With Application
   .Calculation = xlCalculationManual
   .Visible = False
Workbooks.Open FileName:=wb
Dim ra As Range
Set ra = Range("A" & Rows.Count).End(xlUp).Offset(1)
ra = UserForm1.TextBox8.Value
Range("B" & ra.Row) = UserForm1.TextBox4.Value
Range("C" & ra.Row) = UserForm1.ComboBox1.Value
Range("E" & ra.Row) = UserForm1.TextBox_Дата.Value
Range("H" & ra.Row) = UserForm2.TextBox2.Value
Range("I" & ra.Row) = UserForm2.ComboBox1.Value
ActiveWorkbook.Close (True)
   .Calculation = xlCalculationAutomatic
   .Visible = False
End With
End If
End Sub
[/vba]


Сообщение отредактировал pips - Среда, 18.07.2018, 12:20
 
Ответить
СообщениеДобрый день!
У меня есть код, по которому из Файл1 открывается Файл2, туда заносятся данные из первого, и Файл2 закрывается.
Проблема заключается в том, что после закрытия второго файла, скрывается и первый. Именно скрывается, а не закрывается. Видно только окно Userform от Файл1
Подскажите, пожалуйста, как переписать код, чтобы второй файл закрывался с сохранением, а в первом можно было продолжать работать? Спасибо!
[vba]
Код

Private Sub CommandButton6_Click()
If WorkBookIsOpen("Файл2.xlsx") Then
Workbooks("Файл2.xlsx").Close Savechanges = True
Else
Dim wb As String: wb = 'адрес папки с файлом 2
With Application
   .Calculation = xlCalculationManual
   .Visible = False
Workbooks.Open FileName:=wb
Dim ra As Range
Set ra = Range("A" & Rows.Count).End(xlUp).Offset(1)
ra = UserForm1.TextBox8.Value
Range("B" & ra.Row) = UserForm1.TextBox4.Value
Range("C" & ra.Row) = UserForm1.ComboBox1.Value
Range("E" & ra.Row) = UserForm1.TextBox_Дата.Value
Range("H" & ra.Row) = UserForm2.TextBox2.Value
Range("I" & ra.Row) = UserForm2.ComboBox1.Value
ActiveWorkbook.Close (True)
   .Calculation = xlCalculationAutomatic
   .Visible = False
End With
End If
End Sub
[/vba]

Автор - pips
Дата добавления - 18.07.2018 в 12:14
_Boroda_ Дата: Среда, 18.07.2018, 12:21 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 12761
Репутация: 5228 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Последний Визибл поставьте True
[vba]
Код

'...
ActiveWorkbook.Close (True)
.Calculation = xlCalculationAutomatic
.Visible = True' !!! Вот здесь
End With
End If
End Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПоследний Визибл поставьте True
[vba]
Код

'...
ActiveWorkbook.Close (True)
.Calculation = xlCalculationAutomatic
.Visible = True' !!! Вот здесь
End With
End If
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 18.07.2018 в 12:21
pips Дата: Среда, 18.07.2018, 12:29 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 59
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Если поставить True, то после закрытия Файл2, от него остается серое окно Excel, без самой таблицы, при чем, пока не закроешь Файл1, это окно не закрывается. Не знаю, особенность ли это только моей версии.


Сообщение отредактировал pips - Среда, 18.07.2018, 12:29
 
Ответить
СообщениеЕсли поставить True, то после закрытия Файл2, от него остается серое окно Excel, без самой таблицы, при чем, пока не закроешь Файл1, это окно не закрывается. Не знаю, особенность ли это только моей версии.

Автор - pips
Дата добавления - 18.07.2018 в 12:29
_Boroda_ Дата: Среда, 18.07.2018, 12:31 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 12761
Репутация: 5228 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Хорошо, тогда напишите что-то типа
[vba]
Код
Windows(ThisWorkbook.Name).Visible = True
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеХорошо, тогда напишите что-то типа
[vba]
Код
Windows(ThisWorkbook.Name).Visible = True
[/vba]

Автор - _Boroda_
Дата добавления - 18.07.2018 в 12:31
pips Дата: Среда, 18.07.2018, 12:40 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 59
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Не помогло...
 
Ответить
СообщениеНе помогло...

Автор - pips
Дата добавления - 18.07.2018 в 12:40
pips Дата: Среда, 18.07.2018, 12:41 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 59
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Сори, туплю, все отлично) Спасибо!)
 
Ответить
СообщениеСори, туплю, все отлично) Спасибо!)

Автор - pips
Дата добавления - 18.07.2018 в 12:41
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как отобразить книгу, если она скрылась после макроса? (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!