forum-msg-id-129731-edit

Original date:2016-05-20 06:15:42 Edited by: jmduro Subject: Re: Translate VBA to Euphoria

Load this: http://www.rapideuphoria.com/excel_10.zip

There is a demo showing what to do (ExcelObjects.exw). In short:

include eucom/eucom.ew 
include Excel10.ew 
include ExcelFuncs.ew 
include win32lib.ew 
 
object App, wbs, wb, wss, ws 
 
App = startExcel() 
wbs = getWorkbooksCollection(App) 
wb  = createWorkbook(wbs) 
wss = getWorksheetsCollection(wb) 
object val = getCell(ws, "B1") 
-- adapt next line to value type 
VOID = message_box(sprintf("%.2f", {val}), "Info", 0) 
closeExcel(App) 
release_com() 

Jean-Marc

Not Categorized, Please Help

Search



Quick Links

User menu

Not signed in.

Misc Menu