Страницы: 1
RSS
Открыть и закрыть файл макросом
 
Есть макрос, который по идее:) должен открыть и закрыть другой файл защищенный паролем:  
 
Private Sub Workbook_Open()  
     
   ' Открыть файл  
   Application.Workbooks.Open ("C:\Documents and Settings\...\Рабочий стол\Книга4.xlsx"), Password:="123321"  
   ' Закрыть файл  
   Application.Workbooks.Item(1).Close ("C:\Documents and Settings\...\Рабочий стол\Книга4.xlsx")  
     
End Sub  
 
Но он, почему-то закрывает файл, с которым нужно работать. Как это исправить?
 
Попробуйте так:  
Dim WB As Workbook  
Set WB = Application.Workbooks.Open("C:\Documents and Settings\...\Рабочий стол\Книга4.xlsx", Password:="123321")  
WB.Close
 
А можно закрыть файл допустим через 3 секунды, а то формулы не успевают обновляться? Или может есть макрос, который может ожновить ссылки на другой файл защищенный паролем?
 
Ну 3 или 33 секунды?
 
а зачем?
Живи и дай жить..
 
Вроде все открывает, а при открытии должны обновиться ссылки в формулах. Но когда файл закрывается, он опять пароль просит.
 
Может текст макроса приведете?
 
{quote}{login=The_Prist}{date=19.05.2010 02:45}{thema=}{post}Dim WB As Workbook  
Set WB = Application.Workbooks.Open("C:\Documents and Settings\...\Рабочий стол\Книга4.xlsx", Password:="123321")  
DoEvets  
WB.Close{/post}{/quote}  
Буковку забыли:-)
Страницы: 1
Наверх