Page 230 - 6734
P. 230

workSheet.Cells(1,1).Value = 100 # в комірку 1,1
           помістити 100
           # в діапазони комірок помістити значення:
           workSheet.Range("B1:D2").Value =((1,2,3),(10,20,30))
           workSheet.Range("B3:D3").Value =(u"а",u"б",u"в")
           workSheet.Range("A2").Value = "=A1+1"
           # або workSheet.Cells(2,1).Formula = "=A1+1"

           while True: # цикл
               if msvcrt.kbhit(): # якщо в консолі натиснута
           клавіша
                   if ord(msvcrt.getch())==27: break #
           завершити, якщо це Esc
               pythoncom.PumpWaitingMessages() # обробляти події

           workBook.Close(False) # закрити робочу книгу без
           збереження
           excelApp.Quit() # вийти з Excel

           excelApp=workBook=workSheet=None
           from win32com.test.util import CheckClean
           CheckClean() # перевірити скільки COM об'єктів
           залишилося
           pythoncom.CoUninitialize() # відмінити ініціалізацю
           CheckClean() # перевірити скільки COM об'єктів
           залишилося

           SheetBeforeDoubleClick
           $A$1
           1
           1
           ['Activate', 'AddComment', 'AdvancedFilter']
           $A$2
           101.0

                                         229
   225   226   227   228   229   230   231   232   233   234   235