2 активных листа в Excel

[OMEGUS]

Можно ли из VB в Excel открыть и деожать активными сразу два листа ?

Подскажите пожалуйста или дайте совет ?

Спасибо.

[Ramzes]

Код: Выделить всё

Dim xls As New Excel.Application
Dim xlc As New Excel.Application
Private Sub Command1_Click()
xls.Workbooks.Open App.Path & "\list1.xls"
xlc.Workbooks.Open App.Path & "\list2.xls"
End Sub


Вот так точно можно

[OMEGUS]

Спасибо....!!!

А я думал одного приложения хватит и открывал в книге еще один лист вот так :

Dim ExcApp As Excel.Application ' экземпляр приложения
Dim ExcExcel As Excel.Workbook ' экземпляр документа
Dim ExcSheetA As Excel.Worksheet
Dim ExcSheetB As Excel.Worksheet

Теперь все получится..

[Ramzes]

Код: Выделить всё

ExcApp.Workbooks.Open App.Path & "\list1.xls"
ExcApp.Workbooks.Open App.Path & "\list2.xls"
MsgBox "", , ""


Можно и так

[uhm]

Можно открывать один эксель и использовать Windows(i).ActiveSheet, тогда в разных окнах можно держать разные активные листы. Вопрос только - зачем? Чем активный лист принципиально отличается от всех остальных с точки зрения программы?

[OMEGUS]

2 uhm

Я хочу свериь данные из ячеек разных листов может подскажешь как можно обойтись без этого.... наверняка это как-то возможно...???

[uhm]

Я так и думал. Разумеется, возможно.

Самый простой способ - использовать WorkSheets("имя_листа").Cells(i,j). Например,

Код: Выделить всё

If WorkSheets("Лист 1").Cells(1,1)=WorkSheets("Итог").Cells(10,2)...


будет сравнивать ячейку A1 на листе с именем "Лист 1" с ячейкой B10 на листе "Итог".

Можно работать чуть более удобно:

Код: Выделить всё

Dim sheet1 As WorkSheet, sheet2 As WorkSheet

Set sheet1=WorkSheets("Лист 1")
Set sheet2=WorkSheets("Итог")

...

If sheet1.Cells(1,1)=sheet2.Cells(10,2)...



[OMEGUS]

Класс! Спасибо...

[Igor_123]

Просто сравнить, я так думаю, быстрее будет SQL запросом, который вернёт различия между листами.