|
v7: 1с и Excel формулы в значения |
☑ |
0
6aToH
30.05.12
✎
13:48
|
как программно из 1с, преобразовать формулы в значения???
Sub Макрос2()
Range("A3:C3").Select
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Range("A4:C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
|
|
1
6aToH
30.05.12
✎
13:49
|
это макрос.
вот как теперь написать это в 1с???
|
|
2
skunk
30.05.12
✎
13:51
|
программно никак ...
|
|
3
6aToH
30.05.12
✎
13:53
|
открыли excel из 1с
выбрали диапазон.
а потом как???
по сути вопрос в том как передать параметр "Paste:=xlPasteValues"
Форм=СоздатьОбъект("Excel.Application");
НРК=Форм.WorkBooks;
РабочаяКнига=НРК.Add(ИмяФайла);
Страница=РабочаяКнига.Worksheets("NS_R");
Диапазон=Страница.Range("A3:C3");
Диапазон2=Страница.Range("A4:C4");
Диапазон.Copy();
Диапазон2.PasteSpecial();
в правильном направлении думаю????
|
|
4
6aToH
30.05.12
✎
13:54
|
эээ
точно никак????
а если перед сохранением файла программно запустить подготовленный макрос???
так можно?
МОЖНО ЗАПУСТИТЬ МАКРОС ИЗ 1с И после его выполнения сохранить файл????
|
|
5
dk
30.05.12
✎
13:55
|
(3) открой vba редактор alt+F11
открой в нем обджект браузер F2
найди там xlPasteValues чему равно
|
|
6
dk
30.05.12
✎
13:56
|
еще надо проверить очередность параметров в
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
т.к. в макросе параметры могут идти в произвольном порядке и с пропусками, а тебе придется передавать их в нужном порядке и без пропусков в начале
|
|
7
6aToH
30.05.12
✎
14:02
|
dk спасибо!!!
xlPasteValues = -4163
вот так заработало!
Диапазон=Страница.Range("A3:C3");
Диапазон2=Страница.Range("A4:C4");
Диапазон.Copy();
Диапазон2.PasteSpecial(-4163);
Все всем спасибо!
skunk программно все можно! )))
|
|
8
skunk
30.05.12
✎
19:19
|
учись тогда задавать вопросы ... я тебя понял буквально ... есть макрос его программно надо конвертнуть в 1с
|
|