Имя: Пароль:
1C
1C 7.7
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с