Excel VBA – копирование целых столбцов из закрытой рабочей книги

У меня есть книга Excel с большой информацией, которую я хочу вытащить и вставить в эту новую книгу, где содержится этот макрос.

То, что мне действительно нужно, – это общая функция, которая принимает пару аргументов, таких как исходный файл и столбец. Мне нужны только столбцы, но весь столбец из исходного файла.

Вот как я представляю функцию, чтобы выглядеть (псевдокод)

Public Function getColumnFromWorkbook(ByVal strSourceFile, ByVal sourceWorksheet) Application.ScreenUpdating = False Set wb = Workbooks.Open(strSourceFile, True, True) With ThisWorkbook.Worksheets(destSheet) .column(1) = wb.Worksheets(sourceWorksheet).Columns(sourceColumn) End With End Function 

Вышеуказанная функция, вероятно, не работает. Но это может показать, что я по существу после 🙂

Кажется, это работает для меня – заметьте, что я расширил список параметров. Нет проверки ошибок.

 Public Function getColumnFromWorkbook(ByVal strSourceFile As String, ByVal sourceWorksheetName As String, ByVal sourceColumn As Long, ByVal destSheet As Worksheet) Application.ScreenUpdating = False Dim wb As Workbook Set wb = Workbooks.Open(strSourceFile, True, True) wb.Worksheets(sourceWorksheetName).Columns(sourceColumn).Copy (destSheet.Columns(1)) wb.Close Application.ScreenUpdating = True End Function 
Interesting Posts

Добавление изображения в рабочий лист из пользовательской формы (excel vba)

С помощью формулы excel A1 / $ A $ 1, измените $ A $ 1 ref, когда изменится другое значение ячейки

Обнаруживать, если в excel есть макрос и состояние макроса

Сравнение с столбцами, идентификация дубликатов в третьем столбце

VBA – Вставка пространства между конкатенированными ячейками

Скопируйте массив со строкой в ​​качестве переменной

Устранение ссылки на ячейку при обновлении

Назначьте значение, основанное на времени и конкретном дне (2 разных переменных)

excel vba выбрать несколько столбцов в цикле

nopcommerce В ходе операции записи произошла ошибка диска. (Исключение из HRESULT: 0x8003001D (STG_E_WRITEFAULT))

Необходимо найти / заменить значения в одном столбце на основе значения соседнего столбца

как изменить значение ячейки в диаграмме, которая встроена в документ слова с использованием C #

Расширенная надстройка Excel надкладом между библиотеками классов

Количество записей в формате SQL VBA ADODB

Сводная таблица по чтению Excel из таблицы Postgres

Давайте будем гением компьютера.