Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Синтаксис Range при обращении с столбцам "умной таблицы"
 
#1
01.04.2020 22:06:58
Есть умная таблица, в ней с десяток столбцов. Задача скопировать несколько столбцов в другой файл
       
Код
Windows(istochnik).Activate
        Range("Таблица1[Параметр1]").Select
        Selection.Copy
        Windows("Файл2.xlsx").Activate
        Cells(rowEmptyIndex, 5).Select
        ActiveSheet.Paste
 
Для копирования следующего столбца приходится повторять код заново. Как в одной строке с выделением диапазона
для копирования указать несколько столбцов "умной таблицы"?
Например, Range("Таблица1[Параметр1],[Параметр2]").Select.
Не могу найти синтаксис при обращении к умным таблицам. Может это невозможно?
Изменено: romkan - 01.04.2020 22:59:42 (Добавил файлы)
 
 
 
#2
01.04.2020 22:13:23
возможно
прикрепляйте файл, опишите какие столбцы скопировать
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#3
01.04.2020 22:15:24
Цитата
romkan написал: Не могу найти синтаксис при обращении к умным таблицам.
Зачем Вам эта головомойка?  Работайте с диапазонами.
 
 
 
#4
01.04.2020 22:25:32
Цитата
Не могу найти синтаксис при обращении к умным таблицам
Изучайте
https://www.thespreadsheetguru.com/blog/2014/6/20/the-vba-guide-to-listobject-excel-tables
 
 
 
#5
01.04.2020 23:02:47
Цитата
Ігор Гончаренко написал:
возможноприкрепляйте файл, опишите какие столбцы скопировать
Прикрепил файлы. Из файла Од_паспорт.xls несколько столбцов нужно скопировать в определенные столбцы файл2.xlsx
 
 
 
#6
02.04.2020 07:37:32
Код
Sub sdf()
    Excel.Range("ОД_паспорт.xls!ТаблицаТС") _
        .ListObject _
        .ListColumns("Параметр") _
        .DataBodyRange.Copy
    With Excel.Range("Файл2.xlsx!ТаблицаТМ") _
        .ListObject _
        .ListColumns("Параметр") _
        .DataBodyRange
        
        .Cells(.Count + 1).PasteSpecial
        
    End With
End Sub
Изменено: Андрей Лящук - 02.04.2020 07:41:36
 
 
 
#7
02.04.2020 10:11:52
Цитата
romkan написал:
несколько столбцов
отличное описание! конкретнее и не скажешь...
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#8
02.04.2020 10:15:38
romkan,
Цитата
Kuzmich: Изучайте
пожалуй, самый полный полный гайд по обращению к "умным" таблицам через VBA
Давно висит в закладках  :idea:
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#9
02.04.2020 14:46:10
Цитата
Ігор Гончаренко написал:
отличное описание! конкретнее и не скажешь..
Благодарю за помощь )))
Любые 2 столбца одной таблицы первого файла, в любые 2 столбца другой таблицы второго файла. Простая задача для профи, коим, я, к сожалению, не являюсь
 
 
 
#10
02.04.2020 15:35:50
Цитата
Андрей Лящук написал:
Excel.Range("ОД_паспорт.xls!ТаблицаТС")
Ошибка выдаётся на With, первый оператор обрабатывается и диапазон выделяется и копируется
Цитата
Run-time Error 1004
Method Range of Object Global failed
что неправильно задаю?

Здесь этот файл будет меняться, поэтому хотелось бы его задавать при старте процедуры через Inbox, поэтому следующий вопрос как через переменную обратиться. Нужно задать переменную как что? И как она через Inbox пройдёт?
Excel.Range("ОД_паспорт.xls!ТаблицаТС")
Изменено: romkan - 02.04.2020 17:26:59
 
 
 
#11
02.04.2020 16:29:18
1 файл должен быть открыт в том же процессе Excel, из которого выполняется код
2 имена файлов, таблиц и столбцов, естественно, должны совпадать с прописанными в коде

у вас в одном файле столбец
Код
МЭК адрес на контроллере
в другом файле
Код
МЭК адрес на
контроллере


Код
Sub sdf()
    Dim ТаблицаТС As ListObject, ТаблицаТМ As ListObject
    Set ТаблицаТС = Application.InputBox("Выберите ячейку в таблице ТаблицаТС", Type:=8).ListObject
    Set ТаблицаТМ = Application.InputBox("Выберите ячейку в таблице ТаблицаТМ", Type:=8).ListObject
    For Each map In Array( _
                          Array("Параметр"), _
                          Array("Присоединение"), _
                          Array("МЭК адрес на контроллере", _
                                "МЭК адрес на" & vbLf & "контроллере") _
                          )
        
        ТаблицаТС.ListColumns(map(0)).DataBodyRange.Copy
        With ТаблицаТМ.ListColumns(map(UBound(map))).DataBodyRange
            If RowCount = 0 Then RowCount = .Count + 1
            .Cells(RowCount).PasteSpecial
        End With
    Next    
End Sub
Изменено: Андрей Лящук - 02.04.2020 16:30:45
 
 
 
#12
04.04.2020 11:10:42
Ничего не получается, сделал по другому, не оптимально, конечно, не все задумки реализовал. Но сейчас при помощи VBA значительно упростил задачу, сейчас время поджимает, надо уже завершить работу. Потом время появится, сяду и поразбираюсь в спокойном ритме.

Цитата
Андрей Лящук написал:
Set ТаблицаТС = Application.InputBox("Выберите ячейку в таблице ТаблицаТС", Type:=8).ListObject
Здесь для выбора ячейки вызывается файл из которого видимо запускается макрос и нет возможности выбрать другой файл. Файл источника будет меняться постоянно. Задача из кучи типовых файлов заполнить один, копируя определенные столбцы
Цитата
Андрей Лящук написал:
МЭК адрес наконтроллере
Я проверял со столбцом "Присоединение", а заголовок "МЭК адрес...", правлю при открытии файла источника

Всем спасибо.
Изменено: romkan - 04.04.2020 11:11:27
 
 
 
Страницы: 1
Наверх