Request
Quote
Buy now
Register
Product
Remote
Support

Support

As evidenced by over 30 years of development history, trust-worthy Korean CAD, CADian!

FAQ · 2013.12.11
CADian VBA Sample Code - 25 [ Execute Excel ]
Dim Excel As Object
Dim excelSheet As Object

""Start Excel
On Error Resume Next

Me.Hide

Set Excel = GetObject(, "Excel.Application")

If Err <> 0 Then
Err.Clear
Set Excel = CreateObject("Excel.Application")

If Err <> 0 Then
MsgBox "Could not load Excel.", vbExclamation
End
End If
End If

Excel.Visible = True
Excel.Workbooks.Add
Excel.Sheets("Sheet1").Select
Set excelSheet = Excel.ActiveWorkbook.Sheets("Sheet1")

Unload Me
Previous Article
CADian VBA Sample Code - 26 [ Add a new Layer ] ..
Next Article
CADian VBA Sample Code - 24 [ SaveAs] ..
Return to List

Added to cart.

VIEW CART

Please sign in first.

JOIN