Aşağıdaki örnek Excell 'den veri çekmek için kullanılmaktadır örnek den yararlanabilirsiniz.

SelectFile ("Microsoft Office Excel Çalışma Kitabı (*.xlsx)|*.xlsx","C:","Open XLSX File",MyFile)
if Trim(MyFile) <> "" then
  Excel = oleObject("Excel.Application")
  Wbk = Excel.WorkBooks
  Sheet = Wbk.Open(MyFile).ActiveSheet
  CHUnvan = sheet.cells[1, 1].value
  warn(CHUnvan)
 
  'yazma
  'Sheet.cells[1, 3].value = "TEST"
  'Wbk.Save                         
  Sheet.Close
  Shett.Quit
  Shett = null
 
  Wbk.Close
  Wbk.Quit
  Wbk = null
 
  Excel.Close
  Excel.Quit
  Excel.Application.Quit()
  Excel = null
 
  quilt.CollectGarbage()
end if

 

---

12/04/16 09:13