| |
|
|
| | вот код:
Private Sub запуск_Click()
On Error GoTo Err_
Dim strAppName As String
strAppName = CurrentProject.Path & "\запуск.xls"
Set app = CreateObject("Excel.Application")
With app
.Visible = True
.Workbooks.Open strAppName
End With
Set app = Nothing
Exit_:
Exit Sub
Err_:
MsgBox Err.Description
Resume Exit_
End Sub
открывает файл только для чтения, соответственно при сохранении предлагает сохранить под другим именем.
Подскажите чего не хватает, чтобы файл открывался с возможностью изменения (при открытии книги выполняется макрос с расчетами и сохранение обязательно).
Заранее спасибо. | |
| |
| |
| |
|
|
| | Есть такое подозрение, что файл в данный момент уже открыт, возможно в скрытом процессе. В этом куске кода вы не закрываете книгу и не делаете Quit приложения. Если этого нет и в реальном коде, то после первого обращения к файлу он останется открытым.
Если просто открыть файл в окне Excel, редактируется? | |
| |
| |
| |
|
|
| | файл открывается только для чтения, т.е. мне надо в самом начале написать проверку открыт ли уже файл? | |
| |
| |
| |
|
|
| |
Set WkBk = GetObject(strAppName)
Set app = WkBk.Application
|
Такая конструкция возвращает ссылку на открытый ранее файл или открывает его. | |
| |
| |
