The OpenNET Project / Index page

[ новости /+++ | форум | wiki | теги | ]

форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка  RSS
"Макросы в OpenOffice"
Вариант для распечатки  
Пред. тема | След. тема 
Форум Программирование под UNIX (Разное)
Изначальное сообщение [ Отслеживать ]

"Макросы в OpenOffice"  +/
Сообщение от kbu email(ok) on 17-Апр-09, 19:56 
Подскажите плиз,как разрулить чтобы в OpenOfice работали макросы?просто в вЕндах работают без проблем,а вот в OpenOfice вылазят ошибки,что Бейски ожидает какой-то символ...Кто что знает?
Ответить | Правка | Cообщить модератору

Оглавление

Сообщения по теме [Сортировка по времени | RSS]


1. "Макросы в OpenOffice"  +/
Сообщение от Андрей (??) on 17-Апр-09, 23:04 
покажите код не работающий в OpenOffice под Linux и работающий в OpenOffice Windows
а то у вас голове такой туман, что не возможно читать ваши мысли.

Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

2. "Макросы в OpenOffice"  +/
Сообщение от kbu email(ok) on 18-Апр-09, 12:19 
>покажите код не работающий в OpenOffice под Linux и работающий в OpenOffice
>Windows
>а то у вас голове такой туман, что не возможно читать ваши
>мысли.

вот в етом коде выполнение макроса спотыкается и грит "ожидается Sub"

что в нем не так??


Attribute VBA_ModuleType=VBAModule
Sub Модуль4
Sub Media()
Rem '
Rem ' Макрос5 Макрос
Rem ' Макрос записан 18.04.03 (Alexey V.)
Rem '

Rem '

     bbb = InputBox("Как называется ролик?")
    
     Sheets("Отчет").Select
     Range("C13:AO43").Select
     Selection.ClearContents
    
     Sheets("T").Select
     Cells(107, 1).Formula = bbb
     If Cells(108, 1) = 0 Then
         Sheets("Отчет").Select
         MsgBox ("Ролика с именем " & bbb & " нет")
         Exit Sub
     End If
     aaa = "=" & bbb
     Sheets("H").Select
     Selection.AutoFilter Field:=1
     Columns("A:A").Select
     Selection.Find(What:="###@@@", After:=ActiveCell, LookIn:=xlFormulas, _
         LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
         MatchCase:=False).Activate
     ActiveCell.Offset(-1, 1).Select
     Range(ActiveCell, Cells(2, 32)).Select
     Selection.AutoFilter Field:=1, Criteria1:=aaa, Operator:=xlAnd
     Application.CutCopyMode = False
     Selection.Copy
     Sheets("Отчет").Select
     Range("C13").Select
     Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
         False, Transpose:=True
     Range("M8").Activate
     ActiveCell.Formula = bbb
     Sheets("H").Select
     ActiveSheet.ShowAllData
     Sheets("Отчет").Select
End Sub
Sub InsertZ()
Rem '
Rem ' InsertZ Макрос
Rem ' Макрос записан 20.04.03 (Alexey V.)
Rem '
Rem ' Сочетание клавиш: Ctrl+z
Rem '
     Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
         False, Transpose:=False
End Sub

End Sub

Ответить | Правка | ^ к родителю #1 | Наверх | Cообщить модератору

3. "Макросы в OpenOffice"  +/
Сообщение от Миха (??) on 10-Июн-09, 17:39 
>Sub Модуль4
> Sub Media()
>...
> End Sub
> Sub InsertZ()
>...
> End Sub
>
>End Sub

А зачем нужен Модуль4?
Если из него вызываются другие подпрограммы, то и закрыть Sub нужно до определения следующего.

Ответить | Правка | ^ к родителю #2 | Наверх | Cообщить модератору

4. "Макросы в OpenOffice"  +/
Сообщение от поц on 01-Мрт-12, 19:20 
> Подскажите плиз,как разрулить чтобы в OpenOfice работали макросы?просто в вЕндах работают
> без проблем,а вот в OpenOfice вылазят ошибки,что Бейски ожидает какой-то символ...Кто
> что знает?

Дуракам закон не писан...

Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

Архив | Удалить

Рекомендовать для помещения в FAQ | Индекс форумов | Темы | Пред. тема | След. тема




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру