Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
VBA копировать закрытый файл с удалением макросов, в фоне, Подправьте пожалуйста код
 
#1
25.04.2019 06:40:56
Уважаемые знатоки VBA,

Необходимо макросом открыть файл .xlsm и сохранить в другой папке как .xlsx без макросов и всё это произвести в фоне, без отображения.
Поиск помог создать 2 варианта, оба работают, но:

Код
sFileName$ = "G:\888.xlsm"
sNewFileName$ = "G:\111\999.xlsx"
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set objExcel = New Excel.Application
Set myEx = objExcel.Workbooks.Open(sFileName)
    myEx.SaveAs FileName:=sNewFileName, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Set myEx = Nothing
Set objExcel = Nothing

Application.DisplayAlerts = True
Application.ScreenUpdating = True

В первом варианте всё равно выскакивает запрос на сохранение без макросов, как убрать.


Код
sFileName$ = "G:\888.xlsm"
sNewFileName$ = "G:\111\999.xlsx"
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Workbooks.Open sFileName
ActiveWorkbook.SaveAs FileName:=sNewFileName, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close


Application.DisplayAlerts = True
Application.ScreenUpdating = True

Файлов копируется несколько и хотелось бы чтоб на панели задач они не мелькали при открытии и закрытии.
Изменено: DjAlex77 - 25.04.2019 06:54:40
 
 
 
#2
25.04.2019 07:47:36
При закрытии книги укажите сохранение
ActiveWorkbook.Close (True)
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
 
 
 
#3
25.04.2019 08:07:23
Цитата
Alemox написал:
При закрытии книги укажите сохранениеActiveWorkbook.Close (True)
Зачем, файл уже сохранён?
ActiveWorkbook.SaveAs FileName:=sNewFileName, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
 
 
 
#4
25.04.2019 08:26:43
Код
sFileName$ = "G:\888.xlsm"
sNewFileName$ = "G:\111\999.xlsx"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set objExcel = New Excel.Application
With objExcel
    .ScreenUpdating = False
    .DisplayAlerts = False
    Set myEx = .Workbooks.Open(sFileName)
    myEx.SaveAs Filename:=sNewFileName, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    .Close False
    .Quit
End With
Set myEx = Nothing
Set objExcel = Nothing

Application.DisplayAlerts = True
Application.ScreenUpdating = True
 
 
 
#5
25.04.2019 08:39:09
RAN,

Всё равно выскакивает запрос:
«Чтобы продолжить сохранение книги в формате без поддержки макросов, нажмите кнопку "Да"»
 
 
 
#6
25.04.2019 10:16:30
А в чем причина такого сохранения, может достаточно модули удалить?
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#7
25.04.2019 10:32:21
Возможно удаление модулей и подойдёт, но как макросом одного файла удалить модули другого файла? Для меня это вообще тёмный лес.

Думал открыть файл, сохранить как и всё, куда проще, оказывается нет.
 
 
 
#8
25.04.2019 10:53:21
Попробуйте может подойдет
Код
Sub DeleteModulesInFiles()
    Dim iPath$, book As Workbook
    Dim ikey, sPath$, fName$, sName$
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    iPath = "G:\"
    sPath = "D:\111\"
    fName = "888.xlsm"
    sName = "999.xlsm"
    Set book = Workbooks.Open(iPath & fName)
    book.SaveAs FileName:=sPath & sName
    With book
        For Each ikey In .VBProject.VBComponents
            Select Case ikey.Type
                Case 1 To 3: ikey.Collection.Remove ikey
            End Select
        Next ikey
        .Close True
    End With
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub
Изменено: Nordheim - 25.04.2019 10:54:44
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#9
25.04.2019 11:11:31
DjAlex77, Как удалить макросы в книге?
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
Страницы: 1
Наверх