Re: ячейки из открытой книги?

Option Explicit
 
Private Sub Command1_Click()
Dim AppExcel  As Object
Dim wBook  As Object
Dim wSheet As Object
Dim clVal&
Dim NewInstance As Boolean
    
'ЭТО ОТКРЫТЫЙ ТВОЙ ЭКСЕЛЬ СО ВСЕМИ ОТКРЫТЫМИ КНИГАМИ!
    Set AppExcel = GetObject(, 'Excel.Application')
    If AppExcel Is Nothing Then
        Set AppExcel = CreateObject('Excel.Application')
        If AppExcel Is Nothing Then
            MsgBox 'НЕТУ НА МАШИНЕ ЭКСЕЛЯ! ПРИКОЛИСТ!'
            Exit Sub
        Else
            NewInstance = True
        End If
    Else
        NewInstance = False
    End If
 
'ЭТО КНИГА КОТОРАЯ ОТКРЫТА! СОХРАНЯТЬ ЕЕ НЕ НУЖНО! ИМЯ БЕЗ ПУТИ!
Set wBook = AppExcel.Workbooks('DDD.xls')
'И ПОФИГ МОЖНО И ТАК НАПИСАТЬ:
'Set wBook = AppExcel.Workbooks.Item('DDD.xls')
'ЭТО ЛИСТ ПОД НОМЕРОМ ОДИН В ЭТОЙ КНИГЕ!
Set wSheet = wBook.Worksheets(1)
'ЭТО ЯЧЕЙКА 'A3'! СТРОКА '3' СТОЛБЕЦ '1'! КАК ТОЛЬКО ТЫ ЕЕ ИЗМЕНИЛ МОЖЕШЬ НЕ СОХРАНЯЯ КНИГИ
'ПОЛУЧИТЬ ЕЕ ЗНАЧЕНИЕ! clVal ЭТО ЗНАЧЕНИЕ КОТОРОЕ СЕЙЧАС В ЭТОЙ ЯЧЕЙКЕ!
clVal = wSheet.cells(3, 1).Value
'ЭТО МЕСАГAБОКС КОТОРЫЙ ПОКАЗЫВАЕТ ТЕБЕ КАКОЕ ЖЕ ЗНАЧЕНИЕ СЕЙЧАС В ЭТОЙ ЯЧЕЙКЕ 'A3'!!!
MsgBox 'A3=' & clVal
'ЭТО УНИЧТОЖЕНИЕ ВСЕХ ОБЪЕКТОВ ЧТОБЫ ПАМЯТЬ НЕ ЖРАЛИ И СИСТЕМУ НЕ УБИЛИ ПЕРЕГРУЗКОЙ!
Set wSheet = Nothing
Set wBook = Nothing
'ЭТО ЕСЛИ НЕ БЫЛ ПОЛУЧЕН ЭКСЕЛЬ ОТКРЫТЫЙ А СОЗДАЛСЯ НОВЫЙ ЭКЗЕМПЛЯР, ТО ОН ЗАКРЫВАЕТСЯ
'А ТАК ОН НЕ ВИДИМЫЙ И ОСТАНЕТСЯ В ПАМЯТИ!
If NewInstance = True Then AppExcel.Quit
'А ЭТО ПРОСТО УНИЧТОЖЕНИЕ ССЫЛКИ НА ОБЪЕКТ ЭКСЕЛЯ В ПАМЯТИ НО НЕ ЗАКРЫТИЕ САМОЙ ПРОГРАММЫ ЭКСЕЛЯ!
Set AppExcel = Nothing
End Sub