Имя: Пароль:
1C
 
Помогите с переводом экселевского макроса
0 Недоходящий
 
15.07.07
02:59
Нужно в открытом эксель фалйле создать копию листа в этом же файде, вот макрос:
Sheets("Лист 1").Select
Sheets("Лист 1").Copy After:=Sheets(1)

на 1С команда ExcelФайл.Sheets(1).Copy(); создаст копию листа в отдельном фале, а как в этой команде прописать " After:=Sheets(1)"??
1 mikecool
 
15.07.07
10:20
(0) поищи FriendVBA, должна помочь...
2 RomaH
 
naïve
15.07.07
10:31
Copies the sheet to another location in the workbook.

expression.Copy(Before, After)
expression    Required. An expression that returns one of the above objects.

Before   Optional Variant. The sheet before which the copied sheet will be placed. You cannot specify Before if you specify After.

After   Optional Variant. The sheet after which the copied sheet will be placed. You cannot specify After if you specify Before.



т.е. просто задаем второй параметр
3 Недоходящий
 
15.07.07
12:38
Я задавал второй параметр, причем много вариантов перевпробывал и ничего, только сплошными ошибками ругаеться. А можно 1С привести код?

а что такое FriendVBA?
4 Недоходящий
 
17.07.07
01:01
up
5 hopter
 
17.07.07
02:09
(3) плохо пробовал
ex = Новый COMОбъект("Excel.Application");
book=ex.Workbooks.Open(ИмяФайла);
book.Sheets("Лист1").Select();
book.Sheets("Лист1").Copy(,book.Sheets(1));

Создаст копию "Лист1" с именем "Лист1 (2)"
Если "Лист1" реально первый лист, то book.Sheets("Лист1") равносильно book.Sheets(1)
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн