еще у PasteSpecial вроде параметры должны быть ...

вот с инета:

Range.PasteSpecial (Paste, Operation, SkipBlanks, Transpose)

подробнее тут: vremya-ne-zhdet.ru

Baga
А есть чисто фоксовские методы?

в данном случае мы используем методы-свойства именно MS Excel, из фокса мы только запускаем/устанавливаем их

AndyNigmatec
На двух экземплярах экселя как раз и возможны ошибки при Copy-Paste ... Excel вещь в себе )))
по возникающей ошибке - посмотрите что это за ошибка, типа такого:

TRY
  XLSheet1.Cells(NextRow, 1).PasteSpecial
CATCH
  =AERROR(a2)
  ?a2[2]
ENDTRY

Спасибо, примерно так и сделал. Ошибка та же: Microsoft Excel не может вставить данные





Исправлено 1 раз(а). Последнее : Baga, 14.01.23 21:52

Вообще, есть еще вариант (я бы делал так) - с первого файла забираем инфу в фоксовый курсор, во второй файл уже вставляем эти данные из него, т.е. без Copy-Paste самого Excel.

Если есть возможность закинуть тестовые данные - то могу помочь ))

AndyNigmatec
Вообще, есть еще вариант (я бы делал так) - с первого файла забираем инфу в фоксовый курсор, во второй файл уже вставляем эти данные из него, т.е. без Copy-Paste самого Excel.
Если есть возможность закинуть тестовые данные - то могу помочь ))

Да. Можно и оба файла в курсор закинуть и там сравнить, добавить и потом выгрузить своднный курсор в эксель.
Это я смогу. Просто интерес у меня был попробовать копирование-вставку прямо с экселя в эксель.





Исправлено 1 раз(а). Последнее : Baga, 14.01.23 22:33

я правильно понял, что данные из всех экселек в папке "Для_объединения" вам нужно объеденить и добавить (именно добавить) в файл в папке "Главный_файл" ?

Да. Правильно.

Вот ваше объединение )))

запускаем - prog_join.prg
он считает данные из всех экселек в папке "Для_объединения" и добавит их в конец файла "\Главный_файл\Ошибки_2022.xlsx"

можно кстати добавить фильтр чтоб из папки "Для_объединения" обрабатывались файлы не старее чем "указанная дата" - бывает удобно так.

AndyNigmatec
Вообще, есть еще вариант (я бы делал так) - с первого файла забираем инфу в фоксовый курсор, во второй файл уже вставляем эти данные из него, т.е. без Copy-Paste самого Excel.

В Мытищи из Москвы через Париж?

Excel не требует обязательного копирования в буфер, чтобы затем этот буфер куда-то вставить.
У метода Copy объекта Range есть необязательный параметр "Destination Range".
С его помощью можно одной командой скопировать один Range в другой, не используя буфер обмена (и курсоры Фокса).

Да и прямое копирование ячеек никто не отменял:

loSheet2.Cells(12,9) = loSheet1.Cells(1,1)

loSheet2.Cells(12,9).value = loSheet1.Cells(1,1).value

akvvohinc
В Мытищи из Москвы через Париж?

Учитывая что забранную инфу нужно обработать и вставить выборочно - думаю вариант "через Париж" вполне оправдан, особенно учитывая что забираем/вставляем инфу не построчечно а сразу целиком - что однозначно быстрее будет работать.



Исправлено 1 раз(а). Последнее : AndyNigmatec, 15.01.23 23:06

Цитата:

Учитывая что забранную инфу нужно обработать и вставить выборочно...

Я не знаю, что ТС понимает под "Кировать строки с одной книги в другую книгу Excel", но все мои советы касались лишь этого.
Вы же решили подойти к задаче творчески и помочь написать всё приложение...

Цитата:

учитывая что забираем/вставляем инфу не построчечно а сразу целиком - что однозначно быстрее будет работать.

Range - это не "построчечно" - он может быть любого размера, в том числе и "целиком", какой бы смысл в это "целиком" не вкладывался.
И если отвлечься от "обработки забранной инфы" (об этом речи не было), то непонятно, за счет чего пути Excel -> Fox -> Excel или Excel -> Clipboard -> Excel должны работать быстрее, чем Excel -> Excel.



Исправлено 3 раз(а). Последнее : akvvohinc, 16.01.23 00:41

Возможно (и даже скорее всего) по поводу копирования вы правы. Но в данном случае ТС требуется не только выбрать-вставить, а еще некоторая обработка выбранного, что например для меня проще сделать таки в фоксе ))

Александр, в экселе есть функции, которые (в казалось бы естественное замене из .Select в .Range) просто не работают. В результате, в коде сплошные .Select... "А что делать?" )
Вроде в видеорежиме работают, а в невидими не работают... прогеры же пишут Эксель, это живые люди...
Буквально сегодня, наблюдал и убивал в Excel какую-то деталь... Вдруг начал моргать невидимый режим экселя...

Эта непрерывная борьба с завалами - это нормально, это жизнь! ...Это не тем, для кого работа - это ярмо.



Исправлено 3 раз(а). Последнее : of63, 16.01.23 21:09

Цитата:

Александр, в экселе есть функции, которые (в казалось бы естественное замене из .Select в .Range) просто не работают.

... и здесь, по идее, должны идти примеры этих неработающих функций.

Я из не запоминаю, и это невозможно - ребята в в МС меняются, исправлются/сажают новые баги, проги от МС тоже аморфны...
Когда люди будут вместе (не в особенно плохом), то тогда они изобретут автоботов, автопитоьа автомобиля, и пр...



Исправлено 1 раз(а). Последнее : of63, 16.01.23 22:59

of63

            IF !m.x=-4137
               m.x = .NULL.
            ELSE
               m.x = .NULL.
            ENDIF

Потрясающе...

ssa

of63

            IF !m.x=-4137
               m.x = .NULL.
            ELSE
               m.x = .NULL.
            ENDIF

Потрясающе...

Ты забыл скопировать мучения, комменты

of63

ssa

of63

            IF !m.x=-4137
               m.x = .NULL.
            ELSE
               m.x = .NULL.
            ENDIF

Потрясающе...

Ты забыл скопировать мучения, комменты

Не забыл. Комменты не исполняются.

() ну, и зря, в комментах всё...