Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

22 Октябрь 2021, 22:12 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Здесь можно поблагодарить участников форума Улыбка
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: В MO Excel ниже представленным кодом сохранялся отдельно  (Прочитано 2084 раз)
0 Пользователей и 1 Гость смотрят эту тему.
ForumOOo (бот)

Offline Offline

Сообщений: 774


« Стартовое сообщение: 18 Август 2015, 14:41 »

Компонент: Calc
Версия продукта: 4.1.x
Сборка: OpenOffice
ОС: Windows 7

В MO Excel ниже представленным кодом сохранялся отдельно лист, но в openoffice 4.1.1 это не работает. Можете подсказать где ошибка?

Sub SaveActiveSheetWithValuesAndFormats()
Dim sh As Worksheet, wbNew As Workbook, cFileName
Set sh = ActiveSheet
cFileName = Application.GetSaveAsFilename(sh.Name, "?Непонимающий? Microsoft Office Excel (*.xls), *.xls")
If cFileName = False Then Exit Sub
Application.ScreenUpdating = False
sh.Copy
Set wbNew = ActiveWorkbook
With wbNew.Sheets(1).UsedRange.Cells
.Value = .Value
End With
Application.DisplayAlerts = False
wbNew.SaveAs Filename:=(cFileName), FileFormat:=xlNormal
wbNew.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
sh.Activate
End Sub

--
Подпись: botjkeee
Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!