Копирование листа Excel в новый документ Excel
Задача: имеется шаблон файла Иксель, сделать новую книгу и скопировать лист из шаблона в новую книгу.
Данный код позволяет скопировать данные, но размеры ячеек не сохраняются. Нужно что бы копировалось, как в шаблоне, включая формулы. Что можно изменить?
Excel = Новый COMОбъект(«Excel.Application»);
Исключение
Сообщить(«Не удалось инициализировать Excel»);
Возврат;
КонецПопытки;
// Открыть книгу, содержащую шаблон оформления.
Шаблон = Excel.Workbooks.Open(«d:FilesШаблоны отчетовШаблон Software development report in portfolio.xlsx»);
ЛистШаблона = Шаблон.WorkSheets(«Шаблон Портфеля»);
// добавить в книгу новый лист:
ЛистНовый = НоваяКнига.Sheets.Add();
ЛистНовый.Name = «Проект 1»;
// Копировать область из книги-шаблона в новую книгу.
ЛистШаблона.Range(«A1:Y87»).Copy(ЛистНовый.Range(«A1:Y87»)); // работает, но не сохраняется размер ячеек
//ЛистШаблона.Copy(ЛистНовый);- не работает выдает ошибку
//Произошла исключительная ситуация (Microsoft Excel): Не удается вставить листы в конечную книгу, так как она содержит меньшее число строк и столбцов, чем исходная книга. Чтобы переместить или скопировать данные в конечную книгу, следует выделить их, а затем с помощью команд копирования и вставки вставить их на листы другой книги.
Excel не может вставить листы в целевую книгу, потому что она содержит меньше строк и
Я пытаюсь объединить 12 файлов Excel (каждый из которых имеет один лист Excel) в один консолидированный файл Excel, в котором будет 12 листов Excel с использованием библиотеки Microsoft.Office.Interop.Excel и следующей ошибки:
«Excel не может вставить листы в целевую книгу, поскольку она содержит меньше строк и столбцов, чем исходная книга. Чтобы переместить или скопировать данные в целевую книгу, вы можете выбрать данные, а затем использовать команды« Копировать »и« Вставить »для вставки его в листы другой книги «.
Я думаю, что это связано с проблемой разрешений объектов DCOM приложения Microsoft Excel.
Может ли кто-нибудь объяснить, какой тип разрешения требуется для получения услуг приложения Microsoft Excel с использованием объекта DCOM.
Ошибка — Приложение Microsoft Excel не удается вставить данные
Всем привет! Сегодня будет небольшая статейка на тему Microsoft Office, а именно почему при копирование и вставке вылетает ошибка:
Приложение Microsoft Excel не удается вставить данные
Даная ошибка как мне уже поведал человек который намучился с ней бороться вылетает не постоянно и не имеет какой то явной хронологии, т.е. она сейчас при копировании может вылететь, а потом в течении дня может не вылетать.
Посидев некоторое время с документом я смоделировал всевозможные варианты работы этого документа excel с другими документами при сочетании действий CTRL+C и CTRL+V и вот что я нашел.
Данная ошибка Приложение Microsoft Excel не удается вставить данные появляется только в том случае когда вы открыли excel как второе окно и работается с эксель документами на более чем двух мониторах.
Описание ошибки
Для того чтобы перейти к решению данной ошибки я хочу показать как она появляется.
- Вы открываете с рабочего стола ваш документ Excel в котором должны работать
- Далее вам надо открыть второй документ в который нужно перенести какие то данные (инструкция как открывать на одном компьютере два excel )
- Копируете какую то область и дальше могут быть два события:
- У вас все перенесется в новый документ, но выскочит сообщение
«Диапазон, вставляемый из буфера обмена, содержит формулы, которые невозможно вставить в данный экземпляр Excel, поэтому формулы будут вставлены как значения. Возможно, была предпринята попытка вставки формул из режима защищенного просмотра, другого экземпляра Excel или другого приложения»после этого все остальные попытки копирования будут сразу приводить к ошибке — Приложение Microsoft Excel не удается вставить данные
- У вас сразу будет вылетать сообщение при копировании с текстом выше.
Решение проблемы
данная ошибка является багом в Microsoft Office и о ней уже знают достаточно давно, но почему то до сих пор не было решения в последующих обновлениях офиса этой проблемы. Отсюда следует вывод, что данная проблема будет всегда, но чтобы нам дальше спокойно продолжать работать мы будем делать небольшой трюк который позволит избегать данной ошибки и сохранить нервные клетки.
чтобы решить проблему с ошибкой Приложение Microsoft Excel не удается вставить данные делаем следующее:
1 Вариант
- Открываем файл двойным кликом в папке где он находится
- работаем с файлом переключаясь между книгами в панели пуск
2 Вариант
- В книге в которой уже работает нажимаем меню Файл — > открыть и выбираем через обзор наш документ
- Расширяем/растягиваем оболочку Excel на два экрана
- наши две книги сворачиваем и ставим каждую книгу на одном из мониторов
- работаем с файлом переключаясь между книгами в панели пуск
К сожалению вы не увидите ни тут, ни где бы то еще вариант, как это можно сделать по другому, что бы это работала в разных окнах Excel! Это баг Офиса и если Вам надо в этом документе произвести большое кол-во вставок, то можно и потерпеть неудобства.
Моя же задача была углубленно разобраться в данной проблеме и сэкономить Вам время над данной ошибкой!
А для подтверждения моих слов, вот вам комментарий человека со специализированного форума Excel!
Это может происходить из-за двух открытых экземпляров excel. Т.е. книга1 и книга2 запускается в разных экземплярах Excel. Попробуйте запустить файлы из меню Файл Excel
Excel не может вставить листы в целевую книгу
Я пытаюсь объединить 12 файлов Excel (каждый из которых имеет один лист Excel) в один консолидированный файл Excel, в котором будет 12 листов Excel с использованием библиотеки Microsoft.Office.Interop.Excel и следующей ошибки:
«Excel не может вставить листы в целевую книгу, потому что она содержит меньше строк и столбцов, чем исходная книга. Чтобы переместить или скопировать данные в целевую книгу, вы можете выбрать данные, а затем использовать команды« Копировать »и« Вставить »для вставки его в листы другой книги «.
Я думаю, что это связано с проблемой разрешений объектов DCOM приложения Microsoft Excel.
Может ли кто-нибудь объяснить, какой тип разрешения требуется для получения услуг приложения Microsoft Excel с использованием объекта DCOM.
Спасибо.
- 1 Вы используете ASP.NET и Office Interop. Это плохая идея. Не делай этого.
- Мейсон, что вы предлагаете для выполнения вышеуказанной задачи. Собственно реализация уже есть в приложении.
- Используйте библиотеку, не зависящую от Interop, например EPPlus или NPOI.
У меня была эта проблема в Excel 2013. В параметрах в разделе «Сохранить» был параметр, который создавал новые книги как книги Excel 97-2003. Я изменил это на книгу Excel, и команда начала работать.
Tweet
Share
Link
Plus
Send
Send
Pin
|
в открытую книгу вставить активный/открытый лист др. книги |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 |
'Выберем и откроем файл, куда надо вставить листы с данными Dim avFiles 'по умолчанию к выбору доступны файлы Excel(xls,xlsx,xlsm,xlsb) avFiles = Application.GetOpenFilename _ ("Excel files(*.xls*),*.xls*", 1, "Выбрать Excel файл куда вставить данные", , False) If VarType(avFiles) = vbBoolean Then 'была нажата кнопка отмены - выход из процедуры Exit Sub End If ' Получим отдельные значения полный путь, папка, имя файла Dim avFilesName As String, i As Integer, FolderName As String, NomerLista As Integer NomerLista = 2 'Номер листа, перед которым будем вставлять новые листы i = InStrRev(avFiles, "") 'позиция последнего avFilesName = Mid(avFiles, i + 1) FolderName = Left(avFiles, i - 1) ' Откроем файл Workbooks.Open avFiles '---------------------------------------------------------------------------------------------------------- 'Выберем и откроем папку, откуда надо взять файлы и вставить листы с данными Dim sFolder As String, sFiles As String, NameLista1 As String, NameLista2 As String With Application.FileDialog(msoFileDialogFolderPicker) If .Show = False Then Exit Sub sFolder = .SelectedItems(1) End With '---------------------------------------------------------------------------------------------------------- Dim SheetsInserts As String 'Будем открывать по очереди все файлы и копировать из них листы sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator) 'присвоим переменной путь к папке Application.ScreenUpdating = False 'отключаем обновление экрана sFiles = Dir(sFolder & "*.xls*") 'Присваиваем переменной имя файла в виде полного пути Do While sFiles <> "" 'цикл с условием: пока имя файла не пустое ReDim Preserve vFolders(lCount) 'заносим полное имя файла в список файлов vFolders(lCount) = sFolder & sFiles lCount = lCount + 1 Workbooks.Open sFolder & sFiles 'открываем книгу '---------------------------------------------------------------------------------------------------------- 'Действия с файлом '------------------------------------------------------------------------ 'Копировать диапозон и вставить его в нужную нам книгу Dim c As Long, FirstColumn As Long, LastColumn As Long, LastStroka As Long Dim n As Long, FirstColumn2 As Long, LastColumn2 As Long, LastStroka2 As Long Dim NameLista As String Dim Index As Long Dim m As String FirstColumn = Workbooks(sFiles).Worksheets(1).UsedRange.Column LastColumn = Workbooks(sFiles).Worksheets(1).UsedRange.Columns.Count - 1 + Workbooks(sFiles).Worksheets(1).UsedRange.Column LastStroka = Workbooks(sFiles).Worksheets(1).UsedRange.Rows.Count - 1 + Workbooks(sFiles).Worksheets(1).UsedRange.Row NameLista = Left(Workbooks(sFiles).Name, 2) LastColumn2 = Workbooks(avFilesName).Worksheets(NameLista).UsedRange.Columns.Count - 1 + Workbooks(sFiles).Worksheets(1).UsedRange.Column LastStroka2 = Workbooks(avFilesName).Worksheets(NameLista).UsedRange.Rows.Count - 1 + Workbooks(sFiles).Worksheets(1).UsedRange.Row c = LastStroka2 + 1 n = LastStroka + c '------------------------------------------------------------------------ '1 вариант Dim source As Range Set source = Workbooks(sFiles).Worksheets(1).Range(Cells(2, 1), Cells(LastStroka, LastColumn)) source.Copy Dim destination As Range Set destination = Workbooks(avFilesName).Worksheets(NameLista).Range(Cells(c, 1)) 'Здесь ошибка source.Copy destination '------------------------------------------------------------------------ '2 вариант 'Workbooks(sFiles).Worksheets(1).Range(Cells(2, 1), Cells(LastStroka, LastColumn)).Copy Workbooks(avFilesName).Worksheets(NameLista).Range(Cells(c, 1)) '------------------------------------------------------------------------ '3 вариант 'Workbooks(sFiles).Worksheets(1).Range(Cells(2, 1), Cells(LastStroka, LastColumn)).Copy 'Workbooks(avFilesName).Activate 'Workbooks(avFilesName).Worksheets(NameLista).Range(Cells(c, 1)).Select 'ActiveSheet.Paste Workbooks(sFiles).Close True sFiles = Dir Loop Application.ScreenUpdating = True MsgBox "Обработка завершена" End Sub |
Необходимо открыть вкладку «Power Query». В разделе «Данные Excel» нажимаем кнопку (пиктограмму) «Из таблицы». Далее нужно выбрать диапазон ячеек, из которых нужно «притянуть» информацию и нажимаем «Ок». После выбора области данных появится окно настройки вида новой таблицы.
- Чтобы переместить ячейки, нажмите кнопку Вырезать . Сочетание клавиш Можно также нажать клавиши CTRL+X.
- Чтобы скопировать ячейки, нажмите кнопку Копировать . Сочетание клавиш Можно также нажать сочетание клавиш CTRL+C.
Мнение эксперта
Витальева Анжела, консультант по работе с офисными программами
Со всеми вопросами обращайтесь ко мне!
Задать вопрос эксперту
Поскольку некоторые возможности Microsoft Excel можно рассмотреть или использовать, но невозможно изменить после открытия совместного доступа к книге, следует настроить эти возможности перед тем, как сделать книгу общей. Если же вам нужны дополнительные объяснения, обращайтесь ко мне!
Книгу Excel также можно открыть в WordPad. Если книга откроется, вы сможете восстановить код Microsoft Visual Basic в модулях и модулях классов. Чтобы найти код, выполните поиск по слову Sub или Function.
Не удается вставить ячейки в Excel 2010 — сообщение об ошибке «операция не разрешена»
- На вкладке Данные щелкните Получить данные > Из файла > Из книги . .
- Найдите книгу в окне Импорт данных .
- В окне Навигатор выберите таблицу или лист, которые вы хотите импортировать, а затем нажмите кнопку Загрузить или Изменить .
Шаг 4. Выбираем в выпадающем меню, куда хотим отправить выбранный рабочий лист. При этом решаем важную задачу: скопировать или переместить? Если скопировать, то отмечаем галочкой режим «Создать копию»:
Не удается вставить ячейки в Excel 2010 — сообщение об ошибке «операция не разрешена»
Я работал над электронной таблицей в Excel 2010, и внезапно, когда я попытался вставить новую строку ячеек, я увидел, что параметры вставки и удаления были недоступны.
Я попытался скопировать другую строку и вставить ее как новую, но я получил сообщение об ошибке:
«Эта операция недопустима. Операция пытается сместить ячейки в таблице на вашем рабочем листе».
Я не объединял и не скрывал никаких ячеек / строк / столбцов. Там нет формул. Там нет проверки данных. Я попытался закрыть и снова открыть электронную таблицу.
Как данные попали на ваш лист? (Напечатано, вставлено, связано?) Это может сыграть на этом. Похоже, вы достигли предела числа строк. Хотя это не было распространено в 2003 году или ранее (макс. ~ 65 000 строк), сейчас должно быть намного сложнее, поскольку он может обрабатывать более 1 000 000 строк.
у вас нет форматирования во всех строках? или что-то, что не позволит ему сдвинуть строки или столбцы. Попробуйте удалить все под вашими 150 строками и последним правым столбцом
Как указывает сообщение, вы пытаетесь вставить строки в таблицу на вашем листе. Как правило, но не обязательно, таблицы будут иметь полосовое форматирование. Если щелкнуть ячейку в таблице, появится вкладка «Таблица», например:
Команды «Вставить» и «Удалить» становятся недоступными, когда несколько строк пересекают строку, которую вы пытаетесь удалить (и, возможно, в другой раз):
Я не понял, как «Вставить скопированные ячейки» в строку таблицы за один шаг. Вместо этого я вставляю строку или строки в таблицу, а затем копирую содержимое. Чтобы вставить строку в таблицу, щелкните правой кнопкой мыши ячейку в таблице и выберите «Вставить»:
Вы можете превратить столы обратно в нормальные ячейки. Делай это так:
Хорошо, это означает, что есть таблица на листе. Выполните те же действия, кроме ввода, ?activesheet.listobjects(1).range.address и это скажет вам, где он находится на листе.
Хорошо, это означает, что есть таблица, которая занимает все столбцы от A до J. Кажется, что, наряду с моим подробным ответом выше, должен ответить на ваш оригинальный вопрос. Просто поместите курсор в A1, и у вас должны появиться меню Table, которые я описал. Тот факт, что таблица занимает все строки, объясняет, почему кнопка «Вставить» недоступна, не знаю, почему «Удалить».
Я получаю ту же ошибку. «Эта операция недопустима. Операция пытается сместить ячейки в таблице на вашем рабочем листе».
Пробовал предложения, но все выглядело правильно. Закончилось просто преобразованием всех 4 таблиц в диапазон и затем обратно в таблицу. Не знаю, какой стол был проблемой, но теперь все хорошо. 
Если ваша таблица представляет собой связанную таблицу (через соединение ODBC, связанную с Access и т. Д.), Которая вызывает ошибку, вы можете изменить свойства соединения в связанной таблице на «Вставлять целые строки для новых данных, очищать неиспользуемые ячейки». Это решило проблему для меня, когда у меня было несколько последовательных связанных запросов на одном листе.
У меня та же ошибка при обновлении таблицы — ошибка «Эта операция недопустима. Операция пытается сместить ячейки в таблице на вашем рабочем листе».
Основная причина заключается в том, что обновление добавляет строки или столбцы в таблицу и обнаруживает, что для этого нет места. Могут ли строки выглядеть пустыми, но использовались ли раньше? Не уверен.
Исправление — редактирование свойств таблицы (нажмите на таблицу, щелкните вкладку «Дизайн», нажмите «Свойства») — измените выделение в нижней части «Выкл.» Из «Вставить ячейки для новых данных . » и выберите любой другой параметр, мой выбор — «Перезаписать». существующие клетки . »
Внимание — это перезапишет любую стандартную информацию в развернутых строках или столбцах. Однако — если рядом есть дополнительная смежная дополнительная таблица — она будет перемещать таблицу, а не перезаписывать / удалять — спасибо инженеру с разумными взглядами из MS!
Мой результат — я преобразовал свой SS, чтобы иметь таблицу поверх таблицы (всего 10) на каждом листе — без пробелов между ними. Обновления теперь происходят без ошибок, и все строки перемещаются вокруг, чтобы вместить то, что необходимо.
На мою проблему повлияли некоторые определенные таблицы, которые у меня были в разделе Формулы> Диспетчер имен.
У меня было 2 «именованные» таблицы, одна под другой. Но я пытался вставить весь столбец, который бы повлиял на мою таблицу с именем Table2. Я переместил «Table2» на другую вкладку, просто для тестирования, затем я смог добавить столбец.
Итак, проверьте Формулы> Диспетчер имен и посмотрите, есть ли там что-нибудь определенное. Это может помочь изолировать проблему.
PS — Преобразование моей таблицы «Формат таблицы» в обычный диапазон не решило мою проблему. Возможно, потому что таблица2 ниже вновь преобразованной таблицы1 не была включена в это событие (Преобразовать в диапазон).
Да, я столкнулся с той же проблемой. Просто нажмите Cltr + End и удалите строки, в которых нет данных. И ваша проблема решится
Мнение эксперта
Витальева Анжела, консультант по работе с офисными программами
Со всеми вопросами обращайтесь ко мне!
Задать вопрос эксперту
Для восстановления данных в том случае, если книга не может быть открыта в приложении Excel, выполните одно из следующих действий. Если же вам нужны дополнительные объяснения, обращайтесь ко мне!
Если на листе хранятся данные, которые будут нужны в дальнейшем или которые используются для вычисления на других листах, но он мешает работать или просто не нужно его отображение в списке листов, то его можно просто Скрыть. Для этого нажмите на нужном листе ПКМ — Скрыть. Лист не будет видно в окне программы, но он будет сохранен.
Как автоматически перенести данные с одного листа Excel на другой? IT-ликбез
Примечание: Эта страница переведена автоматически, поэтому ее текст может содержать неточности и грамматические ошибки. Для нас важно, чтобы эта статья была вам полезна. Была ли информация полезной? Для удобства также приводим ссылку на оригинал (на английском языке).