Копировать лист Excel

[Vitaly1C]

Добрый день !
Помогите адаптировать работающий код на Delphi

Вот работающий код на 1С:

Процедура КопироватьЛист(Команда)
	
	Excel = новый COMОбъект("Excel.Application");
	
	ИмяФайла = "c:\VITAL\Книга1.xlsx";
	// Подключились успешно, открываем файл	
    Excel.Workbooks.Open(ИмяФайла);
	
	Sheet1 = Excel.Sheets("Лист1");
	Sheet1.Range("$A$1:$D$9").Select();	
	Excel.Selection.Copy();
	
	Sheet2 = Excel.Sheets.Add();
	Sheet2.Range("$A$1:$D$9").Select();	
	Sheet2.Paste();
		
	Excel.ActiveWorkbook.Save();
	Excel.ActiveWorkbook.Close();
КонецПроцедуры

Казалось бы элементарно, но тоже самое в Delphi (последняя версия) не работает ???
-----------------------------------------------------------
Все переменные объявлены как Variant,

Sheet1 = Excel.Sheets("Лист1"); тут вываливается ошибка {Член коллекции не найден}

______________________
Используйте тег [CODE] (кнопка [CODE] в форме сообщения) при вставке кода на форум. Подробнее в FAQ

[Serge_Bliznykov]

Сообщение от Vitaly1C

Казалось бы элементарно, но тоже самое в Delphi (последняя версия) не работает ???

где код Delphi ?

99.99% ошибка в кодировкой символов.
в свежих Delphi это Unicode, а что там в COM (Excel.Application) - точно не известно.

Попробуйте, для начала, переименовать вручную в таблице "Лист1" в "List1"
и вызвать в Delphi

Sheet1 = Excel.Sheets("List1");

Сообщение от Vitaly1C

Все переменные объявлены как Variant,

говорят, лучше через OleVariant

var
   ExcelApp  : OleVariant; 
   sFileName : string;
begin
   try
      ExcelApp := GetActiveOleObject('Excel.Application');
   except
      try
         // If no instance of Excel is running, try to Create a new Excel Object
         ExcelApp := CreateOleObject('Excel.Application');
     except
         ShowMessage('Cannot start Excel (or Excel not installed ?)');
         Exit;
     end;
   end;

   sFileName := 'C:\test.xlsm'; //путь надо подправить, к примеру на ExtractFilePath(Application.EXEName)
   ExcelApp.WorkBooks.Open(sFileName);

[Vitaly1C]

Это я проверю ! Только файл попадает уже с названием листа Лист1, может тогда есть возможность обратиться к ПЕРВОМУ листу ?! типа

Sheet1 = Excel.Sheets(0); // или 1 ?

[Serge_Bliznykov]

Сообщение от Vitaly1C

ожет тогда есть возможность обратиться к ПЕРВОМУ листу ?! типа

да, конечно:

  exBook := exApp.WorkBooks[1]; 
  exSh := exBook.Worksheets[1];

и не забудьте использовать OLEVariant
(см. выше)

[Vitaly1C]

Спасибо за советы ! Помогло.
P.S. Еще были грабли с тем, что устанавливалось .Visible = True в начале обработки; Убрал, - все в порядке !