powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как перевести код макроса из екселя в опен офис
21 сообщений из 21, страница 1 из 1
Как перевести код макроса из екселя в опен офис
    #37221326
OpenOff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Есть такой код:
Код: plaintext
1.
2.
3.
Sheets("В предв_бал").Select
    Range("F2").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
Он написан в екселе. Как переписать этот код, чтобы он работал в опен офисе?
...
Рейтинг: 0 / 0
Как перевести код макроса из екселя в опен офис
    #37221358
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
OpenOff,

а макрорекордером в опен офисе .... не?
...
Рейтинг: 0 / 0
Как перевести код макроса из екселя в опен офис
    #37221372
OpenOff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Это как. Можно поподробнее. Всмысле записать макрос?
...
Рейтинг: 0 / 0
Как перевести код макроса из екселя в опен офис
    #37221396
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
OpenOff,

именно

я только что попробовал. Вполне отлично пишет.
...
Рейтинг: 0 / 0
Как перевести код макроса из екселя в опен офис
    #37221406
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
OpenOffЕсть такой код:
Код: plaintext
1.
2.
3.
Sheets("В предв_бал").Select
    Range("F2").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
Он написан в екселе. Как переписать этот код, чтобы он работал в опен офисе?такой код заменяется сочетанием клавиш
ПКМ (на клавиатуре рядом с правым ctrl) + три раза down (специальная вставка) + Enter + три раза down (значения) + Enter
и не надо велосипед изобретать
...
Рейтинг: 0 / 0
Как перевести код макроса из екселя в опен офис
    #37221796
openOff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
С записью разобрались, а вот как быть с этим кодом:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Windows("zakr_bc.xls").Activate
    sPath = ActiveWorkbook.Path + "\"
    Sheets("В предв_бал").Select
    Sheets("В предв_бал").Copy

'MsgBox (sPath + "OUT\Pach517.dbf")
    
    ActiveSheet.SaveAs FileName:=sPath + "OUT\Pach517.dbf", _
        FileFormat:=xlDBF3, CreateBackup:=False
    
    ActiveWorkbook.Close SaveChanges:=False
    Sheets("Закрытие").Select
    Range("A8").Select

Как его перевести в опен офис?
...
Рейтинг: 0 / 0
Как перевести код макроса из екселя в опен офис
    #37222123
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: openOff
> С записью разобрались, а вот как быть с этим кодом:
> Как его перевести в опен офис?


Макрорекодер триал версии и пишет только один раз?

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
Как перевести код макроса из екселя в опен офис
    #37222381
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
openOff,

придется помучатся потому, что опенофис CALC незнает PDF
...
Рейтинг: 0 / 0
Как перевести код макроса из екселя в опен офис
    #37222392
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
пардоньте, неверно прочел DBF
...
Рейтинг: 0 / 0
Как перевести код макроса из екселя в опен офис
    #37224499
sportsmenka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Разъясните пожалуйста строку кода "Application.CutCopyMode = False"
там речь идёт о создании отчёта, копирование и вставка... мне в конце необходимо снять выделение

Range("K7").Select
Sheets("Авизо1").Select
Application.CutCopyMode = False
Range("D4").Select
...
Рейтинг: 0 / 0
Как перевести код макроса из екселя в опен офис
    #37224577
NullUzer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
sportsmenkaРазъясните пожалуйста строку кода "Application.CutCopyMode = False"

Очищает буфер обмена.
...
Рейтинг: 0 / 0
Как перевести код макроса из екселя в опен офис
    #37224598
sportsmenka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
я этот макрос записываю вручную
это код екселя, а мне надо в опен этот макрос перенести.
что я должна сделать "руками" исходя из этой строчки
спасибо...
...
Рейтинг: 0 / 0
Как перевести код макроса из екселя в опен офис
    #37225845
sportsmenka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
NullUzer, подскажите пож-та как очистить буфер обмена в опен офтсе "ручками"
...
Рейтинг: 0 / 0
Как перевести код макроса из екселя в опен офис
    #37225880
NullUzer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
sportsmenka,

Опен Офисом не пользовался... Сорри...
...
Рейтинг: 0 / 0
Как перевести код макроса из екселя в опен офис
    #37225915
sportsmenka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
может кто-нибудь тогда другой подскажет: как "ручками" очистить буфер обмена в опен офисе
...
Рейтинг: 0 / 0
Как перевести код макроса из екселя в опен офис
    #37226592
sportsmenka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
как сохранить файл опен офис (.ods) в dbf файл? кодом!
...
Рейтинг: 0 / 0
Как перевести код макроса из екселя в опен офис
    #37227501
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот мой "OO" (IBM Lotus Symphony) как раз не знает "сохранения как *.DBF", так что вам посоветовать-то?
Ну, можно сохранить как CSV и использовать потом его.
...
Рейтинг: 0 / 0
Как перевести код макроса из екселя в опен офис
    #37228217
sportsmenka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Люди добрые! помогите пож-та написать макрос
суть - вставить строку
вот часть кода из екселя (он записывался макросом)

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Range("C2").Select
    ActiveSheet.Unprotect
    Rows("7:7").Select
    ActiveWindow.SmallScroll ToRight:= 10 
    ActiveWindow.ScrollColumn =  1 
    Selection.Insert Shift:=xlDown
    Range("A7:Q7").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With

что я должна сделать? если можно то переведите по строчно.
заранее благодарна...
...
Рейтинг: 0 / 0
Как перевести код макроса из екселя в опен офис
    #37231310
sportsmenka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
HELP HELP HELP
помогите приведённый ниже код из екселя перевести в код опен офиса

Range("C2").Select
ActiveSheet.Unprotect
Rows("7:7").Select
ActiveWindow.SmallScroll ToRight:=10
ActiveWindow.ScrollColumn = 1
Selection.Insert Shift:=xlDown
Range("A7:Q7").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
...
Рейтинг: 0 / 0
Как перевести код макроса из екселя в опен офис
    #37231313
sportsmenka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
AndreTM, скажите пож-та как сделать кодом из опен офиса в .csv
...
Рейтинг: 0 / 0
Как перевести код макроса из екселя в опен офис
    #37231788
sportsmenka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ПОМОГИТЕ!
необходимо "вставить строку"
Есть файл.xls
где эта кнопка работает...могу и его выслать
СУТЬ: чтобы в опен офисе работало
ПОЖАЛУЙСТА!
...
Рейтинг: 0 / 0
21 сообщений из 21, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как перевести код макроса из екселя в опен офис
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]