Ошибка при выборе нескольких массивов

[julius]

Добрый день.
Думаю, для профессионалов вопрос пустяковый, но я уже несколько дней не могу понять, что не так.
Мне нужно построить диаграмму используя два диапазона ячеек. Для этого сначала нужно выбрать эти диапазоны. На одном из форумов вычитал, как это делать.

'Диаграмма будет строится в новом файле, где уже содержаться данные. В последствии код будет внесен в цикл для большого количества файлов. Программа работает через форму.
Dim XLS As Object
Dim Import_Document As Excel.Workbook
Dim Num As Integer

'Открытие файла, в котором содержатся данные для построения диаграммы
Set XLS = CreateObject("Excel.Application")
XLS.Visible = True
Set Import_Document = XLS.Workbooks.Open(Me.ComboBox1.List(1))' в combobox содержится путь к первому файлу 

'Определение количества занятых строк
Num = 1
Do While Import_Document.Sheets(1).Cells(Num, 1) <> ""
    Num = Num + 1
Loop

'Выбор двух массивов для которых строится диаграмма - 2 и 9 столбец
Import_Document.Activate
Set R1 = Import_Document.Sheets(1).Range(Import_Document.Sheets(1).Cells(2, 2), Import_Document.Sheets(1).Cells(Num, 2))
Set R2 = Import_Document.Sheets(1).Range(Import_Document.Sheets(1).Cells(2, 9), Import_Document.Sheets(1).Cells(Num, 9))
Set R = Range(R1, R2)
R.Select

В строчке Set R = Range(R1, R2) происходит ошибка vba method range of object _global failed.
Подскажите, пожалуйста.

На самом деле, эта программа - попытка решить проблему с программой на VBA Word (http://programmersforum.ru/showthrea...=1#post1462591). Там возникала такая же ошибка.

[RAN.]

Set R = Union(R1, R2)

[julius]

Спасибо за совет, но это я тоже пробовал. Результат такой же.

[julius]

Неужели никто не знает???

[Hugo121]

Ни у кого нет такого файла. Дефицитная вещь...

[IgorGO]

на вид все написано корректно
у нас нет повода не доверять Вашим словам, но и нет возможности посмотреть "что же там не так"

[julius]

Не получается загрузить файл на форуме, поэтому кинул на облако.
Посмотрите, пожалуйста, а то эта ошибка периодически с другими кодами возникает.
https://cloud.mail.ru/public/1c5314f...phs%20V0.2.xls

[RAN.]

Код запускается из ворда, данные тянутся из файла excel, суем его в пустой файл excel - нате, подавитесь.
Крысота!

Set R = Range(R1, R2)

относится не к excel, а к word, отсюда и ошибка.

Set R = XLS.Range(R1, R2)
Set R = XLS.Union(R1, R2)