| |
|
|
| | открываю СКРЫТО из Акса екселевский файл и редактирую его - хочу сохранить - вот код
Set ExcelApplication = CreateObject("Excel.Application")
With ExcelApplication
.Workbooks.Open MyPatch 'fileXLT
.Visible = False
End With
далее идут различные извращения с текущим листом.
ExcelApplication.Save - вот тут спрашивать начинает.
|
как правильно сохранить файл чтобы АКС не задавал вопросов? | |
| |
| |
| |
|
|
| | где-то на форуме я код давал для Excel только вот найти не могу
по отключению сообщений
ща буду искать | |
| |
| |
| |
|
|
| | отключение
SaveAutomation = Application.AutomationSecurity
'AutomationSecurity — определяет уровень безопасности при программном открытии файлов. По-умолчанию
'установлено значение msoAutomationSecurityLow, что значит — открывать со включенными макросами.
'Можно также использовать значения msoAutomationSecurityForceDisable — отключить макросы и
'msoAutomationSecurityByUI — то, что настроено на графическом интерфейсе
Application.AutomationSecurity = msoAutomationSecurityLow
'Отключаем все мерцания и отклики от Экселя
Application.ScreenUpdating = False
Application.EnableEvents = False
'Отключаем показ различных предупреждений
Application.DisplayAlerts = False
Application.ErrorCheckingOptions.BackgroundChecking = False 'отключение фоновой проверки ошибок
SaveAutoRecDef = Application.AutoRecover.Enabled
Application.AutoRecover.Enabled = False
Application.Visible = False
включение в зад
Application.AutomationSecurity = SaveAutomation
'Включаем показ различных предупреждений
Application.DisplayAlerts = True
'Включаем все мерцания и отклики от Экселя
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.ErrorCheckingOptions.BackgroundChecking = True
Application.AutoRecover.Enabled = SaveAutoRecDef
что-то из этих кодов должно помочь | |
| |
| |
| |
|
|
| | попробую но кажись
ExcelApplication.Save - дожно идтить с параметрами - а где их взять? | |
| |
| |
| |
|
|
| | НЕПРАВИЛЬНО !
Set ExcelApplication = CreateObject("Excel.Application")
With ExcelApplication
Set WrkBk = .Workbooks.Open MyPatch 'fileXLT
.Visible = False 'Это лишнее
End With
далее идут различные извращения с текущим листом.
WrkBk.Save
Set WrkBk = Nothing | |
| |
| |
| |
|
|
| | Спасибо  | |
| |
| |
| |
|
|
| | на композицию
Set WrkBk = .Workbooks.Open MyPatch
акс пишет красным и ругается на MyPatch - а как ему казать по другому х/з
сделал визуально ексель открытым, пишет запрос на пересохранение - гут закрывается,
но через время орет про то что этот файл уже юзается, просит выбрать чтение/запись - отмена и все ексель зависает.
че ему нужно, в этот момент я уже все перекинул и не трогаю ничего кроме акса. | |
| |
| |
| |
|
|
| | Workbooks.Open Filename:= _
"C:\Users\Сергей\Desktop\Лист Microsoft Excel (3).xlsx" | |
| |
| |
| |
|
|
| | Убей объект экселя
.quit
Public Sub tst2()
Dim ExcelApplication As Excel.Application
Dim WrkBk As Excel.Workbook
Dim mypath$
mypath = Application.CurrentProject.Path & "\book2.XLS"
Set ExcelApplication = CreateObject("Excel.Application")
With ExcelApplication
Set WrkBk = .Workbooks.Open(mypath) 'fileXLT
WrkBk.Sheets(2).Name = "111" 'Это для примера
End With
WrkBk.Save
ExcelApplication.Quit
Set WrkBk = Nothing
Set ExcelApplication = Nothing
End Sub
|
Проверил. Вроде работает. | |
| |
| |
| |
|
|
| | спасибо будем разбираться
немного позже - Ураа! Заработало!!!! | |
| |
| |
