новое окно Эксель в другом месте

[ShamanK]

Парни, создаю новый файл Эксель, при этом открыт уже один файл.
как сделать так, чтобы новый файл можно было передвигать по экрану НЕЗАВИСИМО от предыдущего файла?

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

[EducatedFool]

Для одной копии Excel макрорекордер записал следующее:

Sub Макрос1()
    ActiveWindow.WindowState = xlNormal
    Workbooks.Add
    Windows.Arrange xlTiled, False
End Sub

В Вашем случае можно создать новый экземпляр приложения Excel, а в нём уже создавать новую книгу:

Sub test()
    Dim newWB As Workbook, xl As New Application
    Set newWB = xl.Workbooks.Add
    MsgBox newWB.Name  ' работаем с новой книгой
End Sub

[ShamanK]

а может быть сделать проще?
создать уже готовые файлы эксель и при необходимости открывать их ?

тогда главный вопрос остается в силе - как открыть другой файл эксель и видеть оба одновременно?

как пример

Private Sub Worksheet_Activate()
Dim newWB As Workbook, xl As New Application, Name As String
Name = "C:\robot\orders.xls"
Set newWB = Workbooks.Open(Name)
End Sub

что необходимо добавить в этом коде, чтобы файл orders.xls открывался как новоей придожение и его можно было расположить рядом с другой открытой книгой?

PS Эксель у меня 2007

[EducatedFool]

а может быть сделать проще?
создать уже готовые файлы эксель и при необходимости открывать их ?

Вряд ли будет проще...
В данном случае неважно, создаётся ли новая книга, или открывается существующая.

можно было расположить рядом с другой открытой книгой?

Покажите скриншот того, как это всё должно выглядеть на экране.

Обязательно открывать\создавать файл именно в новой копии приложения Excel?

[ShamanK]

показываю скриншот как это должно выглядеть

большое окно снизу с лева открывает малое вверху справа, и открывает его в отдельном окне.. так чтобы его можно было перетаскивать куда угодно...

[EducatedFool]

Sub test()
    Dim newWB As Workbook, xl As New Application
    Set newWB = xl.Workbooks.Add
    With xl.Application
        .Visible = True: .WindowState = xlNormal
        .Top = 130: .Left = 500: .Width = 240: .Height = 240
    End With
End Sub

Нажмите зелёную кнопку:

[ShamanK]

спасибо большое!