This is VB6 code which I assume will work for Visio. HTH. Dave
To run an XL module code sub in a closed wb...
[VBA]
Dim objExcel As Object
Set objExcel = CreateObject("EXCEL.APPLICATION")
Set objWorkBook = objExcel.Workbooks.Open("C:\Wbname.xls")
objExcel.Run "Yourmacroname"
Set objWorkBook = Nothing
Set objExcel = Nothing
[/VBA]
To manipulate the closed XL file...
[VBA]
Dim objExcel As Object, objWorkBook As Object
Dim objWorksheet As Object
Set objExcel = CreateObject("EXCEL.APPLICATION")
Set objWorkBook = objExcel.Workbooks.Open("C:\Wbname.xls")
Set objWorksheet = objWorkBook.Worksheets("Sheet1")
objWorksheet.Cells(13, 5).Formula = "A2*B2"
objWorkBook.Save
objWorkBook.Close
objExcel.Quit
Set objWorksheet = Nothing
Set objWorkBook = Nothing
Set objExcel = Nothing
[/VBA]