из 1с нужно сделать специальную вставку
при записи макроса код такой
"
Excel.Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
"
Как эту строку написать в 1с?

что то типа:
"
Excel.Selection.PasteSpecial("xlPasteColumnWidths", "xlNone", 0, 0);
"

но так не работает

PasteSpecial(8)

(2) вставляет все что угодно только не ширину колонок

как скопировать вставить ширину колонок?
код
"
Excel.Selection.PasteSpecial(8,-4142, 0, 0);
"
отрабатывает аналогично
"
Excel.Selection.Paste();
"

Незнаю какой у тебя excel, но такой код:

Лист1 = Книга.WorkSheets(1);
Лист1.Range("A1:Z100").Copy();    
Лист = Книга.Sheets.Add();
Лист.Range("A1:Z100").PasteSpecial(8);

у меня вставляет на новый лист только ширину колонок.

ексель 2010
почему ширину колонок не передает так и не понял
код
"
Excel1.Selection.PasteSpecial(-4104,-4142,0,0);
"
вставляет скопирванное как картинку, при открытии такого файла все тормозит.

решил след образом:
добавил все что нужно в макрос в файл-эксель-источник и запустил
"
   Excel2 = Новый COMObject("Excel.Application");
   Excel2.Displayalerts = 0;
   Файл2 = Excel2.Workbooks.Open(ФайлДен+".xlsx");
   Excel2.Sheets(1).Select();
   Файл2.VBProject.VBComponents.Add(1);
   Файл2.VBProject.VBComponents("Module1").CodeModule.InsertLines(1, "Sub Макрос()");
   Файл2.VBProject.VBComponents("Module1").CodeModule.InsertLines(2, "Cells.Select");
..........................
......................
   Файл2.VBProject.VBComponents("Module1").CodeModule.InsertLines(15, "ActiveWorkbook.Save");
   Файл2.VBProject.VBComponents("Module1").CodeModule.InsertLines(16, "ActiveWindow.Close");
   Файл2.VBProject.VBComponents("Module1").CodeModule.InsertLines(17, "End Sub");
   Excel2.Run("Макрос");
"