Мне нужна помощь, чтобы показать данные по-разному - PullRequest
0 голосов
/ 05 ноября 2019

У меня есть старая база данных в Access, которую нужно преобразовать в Excel. Он состоит из ок. 300 строк и 21 столбец. Я должен показать это тремя разными способами, с разным количеством данных.

Excel 2016. Данные находятся в таблице для сортировки / фильтрации. С помощью макроса я копирую активные строки в новый лист (Filtreret_data). Из этого листа я копирую идентификационный номер в «лист генератора» (Kortgenerator), где другие значения извлекаются через функцию Excel «вертикальный поиск» из-за моих ограниченных возможностей в vba. Из «листа генератора» я копирую отображаемые ячейки и вставляю их в виде изображения на «листе печати» (Kort), где ему присваивается имя (= идентификационный номер), и назначается макрос, который будет использоваться для исправления данных. ,До сегодняшнего дня это работало нормально - теперь макрос останавливается после случайного числа циклов. Однако он всегда останавливается, когда нужно вставить новое изображение (ActiveSheet.Pictures.Paste.Name = IDnr).

Вероятно, это не правильный способ сделать это, но лучшее, что я смог найти. Так что вы можете сообщить мне о правильном пути: -)

    ' Kopierer område
    Range("A1:C10").Select
    Application.CutCopyMode = False
    Selection.Copy

    ' Indsætter som billede
    Sheets("Kort").Select
    Cells(rækkeafr, kolonne).Select

    ' Billedenavn = IDnr
    ActiveSheet.Pictures.Paste.Name = IDnr ' it crash here every time
    ActiveSheet.Shapes.Range(Array(IDnr)).Select
    Selection.ShapeRange.Width = 102
    Application.CutCopyMode = False
    ' Tildeler makro
    Selection.OnAction = "Rediger_side"

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

Иногда перед остановкой макроса вставляются три изображения, а иногда - 25 изображений. А вчера без проблем ... Пример того, как это должно выглядеть

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...