Автоматизация VBA Excel (поиск сотен маленьких рабочих книг (одинаковое количество столбцов), которые будут поставлены в очередь в уникальной рабочей книге).

Я успешно написал в Visual Foxpro исследование рабочих книг в каталоге и подкаталоге конкретного клиента. Теперь я хочу, начиная с первой книги, добавить вторую чуть ниже первой и так далее... Я написал, пытаясь добиться успеха:

xStrFName = TRIM(filemm)
oExcel.Workbooks.Open(xStrFName)
oExcel.Workbooks(2).Sheets(1).UsedRange.Copy

WITH oExcel.Workbooks(1).Sheets(1)
  loLastCell = .Cells.SpecialCells(xlLastCell)
  mcomo = .Range(m.loLastCell,m.loLastCell).Row
  mcomo = mcomo+1
  .Cells((m.mcomo,1),(m.como,7)).Paste
ENDWITH

Я хочу выбрать (или напрямую вставить, как указано выше) строку чуть ниже последней ячейки (m.mcomo+1) и, следовательно, вставить. Как я могу написать правильную инструкцию по вставке (думаю, это будет просто, но я не знаю VBA......). Заранее спасибо.

Формы c голосовым вводом в React с помощью Speechly
Формы c голосовым вводом в React с помощью Speechly
Пытались ли вы когда-нибудь заполнить веб-форму в области электронной коммерции, которая требует много кликов и выбора? Вас попросят заполнить дату,...
Стилизация и валидация html-формы без использования JavaScript (только HTML/CSS)
Стилизация и валидация html-формы без использования JavaScript (только HTML/CSS)
Будучи разработчиком веб-приложений, легко впасть в заблуждение, считая, что приложение без JavaScript не имеет права на жизнь. Нам становится удобно...
Flatpickr: простой модуль календаря для вашего приложения на React
Flatpickr: простой модуль календаря для вашего приложения на React
Если вы ищете пакет для быстрой интеграции календаря с выбором даты в ваше приложения, то библиотека Flatpickr отлично справится с этой задачей....
В чем разница между Promise и Observable?
В чем разница между Promise и Observable?
Разберитесь в этом вопросе, и вы значительно повысите уровень своей компетенции.
Что такое cURL в PHP? Встроенные функции и пример GET запроса
Что такое cURL в PHP? Встроенные функции и пример GET запроса
Клиент для URL-адресов, cURL, позволяет взаимодействовать с множеством различных серверов по множеству различных протоколов с синтаксисом URL.
Четыре эффективных способа центрирования блочных элементов в CSS
Четыре эффективных способа центрирования блочных элементов в CSS
У каждого из нас бывали случаи, когда нам нужно отцентрировать блочный элемент, но мы не знаем, как это сделать. Даже если мы реализуем какой-то...
1
0
24
1
Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Попробуйте это, посмотрите, работает ли это:

With oExcel.Workbooks(1).Sheets(1)
 Set loLastCell = .Cells.SpecialCells(xlLastCell)
 mcomo = loLastCell.Row
 .Cells(mcomo + 1, 1).PasteSpecial xlPasteAll
End With

Нет! Установить loLastCell = .Cells.SpecialCells(xlLastCell) говорит: Команда содержит нераспознанную фразу/ключевое слово. Я определил: #DEFINE xlLastCell 11 и Local loLastCell AS Excel.Range

Claudio Iannone 09.04.2022 21:58

А если полностью удалить строку и использовать mcomo = .Cells.SpecialCells(xlLastCell).Row? В зависимости от вашей версии Excel xlLastCell может быть xlCellTypeLastCell (в Excel 2019 у меня работает xlLastCell), поэтому попробуйте также изменить аргумент.

PirateNinja 10.04.2022 09:54

Другие вопросы по теме