Мне нужно скопировать 2 таблицы из одного листа Excel в другой. Я не могу использовать их как списки объектов, так как это автоматически сгенерированные файлы. Я подумал, что это может помочь (после открытия исходного файла я назвал activesheet как sourcefile, этот файл содержит макросы и файл назначения):
Dim isin_data As Range
Dim position_data As Range
Set isin_data = sourcefile.Sheets("ISIN data").Range("A5:CA200")
Set position_data = sourcefile.Sheets("Position data").Range("A5:BD400")
thiswb.Sheets("HLA_ISIN_data").Range("A2:CA197") = isin_data
thiswb.Sheets("HLA_position_data").Range("A2:BD397") = position_data
Ничего не происходит, не могли бы вы мне помочь, почему? Это работает, но не элегантно, плюс не эффективно:
sourcefile.Sheets("ISIN data").Range("A5:CA200").Copy
thiswb.Sheets("HLA_ISIN_data").Activate
Range("A2:CA197").Select
Selection.PasteSpecial Paste:=xlPasteValues
sourcefile.Sheets("Position data").Range("A5:BD400").Copy
thiswb.Sheets("HLA_position_data").Activate
Range("A2:BD397").Select
Selection.PasteSpecial Paste:=xlPasteValues
Заранее спасибо!