ВикториМне нужно выводить данные в Эксел. Таблицы по числу районов-их число постоянно меняется от 60 до 110- поэтому у меня в шаблоне 110 листов- можно ли сделать так, чтобы в шаблоне был один лист, а в получаемом файле эксел по районам?

Как программно скопировать лист Excel в новый лист Excel?

Поподробнее что?

Создай файл PRG. Скопируй в него приведенный код и запусти на исполнение из VFP.

А дальше, экспериментируй с приведенным кодом.

ВикториВладимирМ Делаю как вы написали- но копируется весь лист с данными-т.е. если в 1 листе ячейка заполнена, а во 2 нет- там остаются цифры 1. Заранее же количества листов не знаю-оно задается в цикле. Как быть?

А HELP почитать по командам VB для Excel? Он поставляется вместе с EXCEL. Да даже просто внимательно посмотреть на приведенный код. Повторяю еще раз:


ВикториА еще нумерация получается в обратном порядке- т.е. последний заполненный лист получается с номером, например, 12- стоит первым

Опять же, либо внимательнее смотрите приведенный код, либо читайте HELP по VB:


Заметили, что первым параметром стоит NULL?

Выдержка из HELP

Copy Method

Syntax 1: Copies the object to the Clipboard. Copies a picture of the point or series to the Clipboard.

Syntax 2: Copies the Range to the specified range or to the Clipboard.

Syntax 3: Copies the sheet to another location in the workbook.

Syntax 1

expression . Copy

Syntax 2

expression . Copy(Destination)

Syntax 3

expression . Copy(Before, After)

expression Required. An expression that returns an object in the Applies To list. To copy an entire chart sheet, use Syntax 3 with the Chart object. To copy only the chart area, use Syntax 1 with the ChartArea object.

Destination Optional Variant. Specifies the new range to which the specified range will be copied. If this argument is omitted, Microsoft Excel copies the range to the Clipboard.

Before Syntax 3: 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.

Remarks

If you don't specify either Before or After, Microsoft Excel creates a new workbook that contains the copied sheet.

Ты это о чем опять? Приведи код и укажи в каком месте глючит. А так тебя очень трудно понять

Ты о чем опять? Код приведи!!!

Эта строка копирования ЛИСТА с порядковым номером 1 ЦЕЛИКОМ за последним листом книги! При чем здесь координаты ячейки?

Ошибка будет только в том случае, если в новой книге вообще нет ни одного листа. Т.е. если значение m.lnSheetsCount=0

Виктори LOCAL lnSheetsCount, lnCellsCount
lnSheetsCount = m.sn.ActiveWorkbook.Sheets.count
lnCellsCount= m.sn.ActiveWorkbook.Sheets(1).Cells(9,12)

m.sn.Visible=.T.
m.sn.ActiveWorkbook.sheets(1).Copy(m.sn.ActiveWorkbook.sheets(m.lnSheetsCount).cells(m.lnCellsCount))

Я ведь хочу копировать только шапку-или все вообще не так делается???

(...) (вырезано цензурой)
А сразу этого сказать было нельзя?

Теперь прикинь какие вообще действия понадобяться?
1) Нужно создать НОВЫЙ ЧИСТЫЙ лист
2) Скопировать в этот новый лист некий диапазон из уже существующего листа.

Получается примерно следующее:


Винмательнее читай HELP. В команде COPY предполагается, что до нее стоит ссылка на тот объект, который собственно и копируется. В твоем примере ты пытался скопировать целый лист в какую-то ячейку другого листа. За что и получал ... сообщение об ошибке.