Добрый день!
подскажите, пожалуйста, я использую ваш макрос:
sub ExportToExcel(ObjectId, FilePath)
dim FileName
Set FileName = ActiveDocument.GetSheetObject(ObjectId)
FileName.ExportBiff FilePath
Set FileName = nothing
end subно он НЕ перезаписывает файл FilePath, если последний уже был ранее сформирован.
Нельзя ли добавить (как?) флаг перезаписи?
Заранее спасибо!
Получилось ли наладить выгрузку? Возможно файл занят иным процессом, поэтому пересохранить не получается.
]]>но он НЕ перезаписывает файл FilePath, если последний уже был ранее сформирован.
Нельзя ли добавить (как?) флаг перезаписи?
Заранее спасибо!
Заранее спасибо!
]]>sub test
set XLApp = CreateObject("Excel.Application")
set XLDOC = XLApp.Workbooks.Open ("C:\Tasks\1.xlsx")
IF XLApp.ActiveWorkbook.ReadOnly THEN
MSGBOX "READ_ONLY MODE"
XLApp.Quit
END IF
end sub
]]>а не подскажите, как проверить, что Excel-файл не открыт на редактирование,
потому что если открыт, то никакой ошибки не выдает, но и не перезаписывает?
Пример:
Function SaveToExcel
call ExportToExcel("CH02", "D:\Files\Отчёт_по_вакансиям_за_" & ActiveDocument.Evaluate("date(today(1))") & ".xls")
end Function
sub ExportToExcel(ObjectId, FilePath)
dim FileName
Set FileName = ActiveDocument.GetSheetObject(ObjectId)
FileName.ExportBiff FilePath
Set FileName = nothing
end sub
]]>Для любой таблицы/диаграммы в приложении по правой кнопке есть функция "Отправить в Excel" или "Отправить значения в Excel".
Подскажите, пожалуйста, как вызвать эту функцию через макрос, то есть вызвать по определенной кнопке или по определенному изменению значения переменной?
Добавлено спустя 2 ч 15 мин 51 с:
Нашла вариант, но он меня не до конца устраивает:
1. В переменную objectNm пишу имя объекта, который хочу выгрузить в Excel
2. Запускаю макрос sendToExcel:
sub sendToExcel
objectNm = ActiveDocument.Variables("objectNm").GetContent.String
set obj = ActiveDocument.GetSheetObject(objectNm)
obj.SendToExcel
set obj = nothing
end sub
Вопрос: как сделать, чтобы выгружался не во вновь создаваемый файл, а в определенный по определенному пути?
Заранее спасибо!
]]>