Возможно, кто-то подскажет, как из текста на харборе попросить Excel скопировать лист.
В Excel текст макроса на бейсике такой:
Sheets("Лист1").Copy After:=Sheets(1)
Как это переписать на харборе?
У меня не получается
Возможно, кто-то подскажет, как из текста на харборе попросить Excel скопировать лист.
В Excel текст макроса на бейсике такой:
Sheets("Лист1").Copy After:=Sheets(1)
Как это переписать на харборе?
У меня не получается
Код:TRY oApp := CreateObject( "Excel.Application" ) //попытка создать объект Excel CATCH Alert("Excel не доступен!") RETURN .F. END oWorkBook:=oApp:WorkBooks:Add() //добавление рабочей книги oAS:=oWorkBook:Worksheets():Add() //добавление таблицы oAS:Name:="Specifikaciq" //присвоение имени таблице //Копирование листа "Specifikaciq" oWorkBook:Worksheets("Specifikaciq"):Copy(oAS) //Копирование всех листов oWorkBook:Worksheets():Copy(oAS)
Если я правильно понял, то в этом коде макроса бейсика n указывает под каким номером будет скопированный лист. Как указать этот параметр в харборе я не знаю :-(Код:Sheets("Лист1").Copy After:=Sheets(n)
В чем разница между oWorkBook:Worksheets("Specifikaciq"):Copy(oAS) и oWorkBook:sheets("Specifikaciq"):Copy(oAS) я тоже не знаю :-(
Их help`а
A collection of all the sheets in the specified or active workbook. The Sheets collection can contain Chart or Worksheet objects.
Всех благ!!!
Чувелёв Андрей
ps: Всё вышеизложенное является моим частным мнением и не может претендовать на полноту изложения.
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)