[LISP程序]：请问.....

jtybzl

陈老师，这个小程序可以打开Excel，但不能从程序中新建一个Excel文档，如何从此程序中实现激活Excel的同时，新建一个文档？我不想用(command "start" "d:\\...Excel.exe")的形式，请帮忙！
(defun c:msx-initapp  ()
      (setq *MSX* (vlax-create-object "Excel.Application"))
    (vla-put-visible *MSX* 1);)
  *MSX*)

jtybzl

太简单了？怎么没人回答？

lijiao

和在ACAD中新建文档的方法一样，没有什么特别的。

jtybzl

我说的是用vlisp程序建文档

lijiao

我有一段VBA的代码，你可以看看，道理应该一样。



Private Sub CommandButton5_Click()
Dim EXApp As Excel.Application
Dim EXSheet As Excel.Worksheet
Dim EXwork As Excel.Workbook
On Error Resume Next
Set EXApp = GetObject(, "Excel.Application")
If Err <> 0 Then
   Err.Clear
   Set EXApp = CreateObject("Excel.Application")
End If
Err.Clear
Dim WorkName As String
WorkName = ThisDrawing.FullName
WorkName = Mid(WorkName, 1, Len(WorkName) - 4)
WorkName = WorkName & ".xls"
Set EXwork = EXApp.Workbooks.Item(Mid(ThisDrawing.Name, 1, Len(ThisDrawing.Name) - 4) & ".xls")

If Err <> 0 Then
   Err.Clear
   Set EXwork = EXApp.Workbooks.Open(WorkName)
   If Err <> 0 Then
      Err.Clear
      Set EXwork = EXApp.Workbooks.Add
      EXwork.SaveAs WorkName
   End If
End If
EXwork.Activate
EXApp.Visible = True
MsgBox "选择起始单元格后,点击确定按钮。"
Set EXSheet = EXwork.ActiveSheet
Dim dqrow As Long
Dim dqcol As Long
dqrow = EXApp.ActiveCell.Row
dqcol = EXApp.ActiveCell.Column
If dqrow = 1 Then dqrow = 2
Me.MSFlexGrid1.Row = 0
For i = 0 To Me.MSFlexGrid1.Cols - 1
   Me.MSFlexGrid1.Col = i
   EXSheet.Cells(1, dqcol + i) = Me.MSFlexGrid1.Text
Next i
For i = 0 To Me.MSFlexGrid1.Cols - 1
   Me.MSFlexGrid1.Col = i
   For j = 1 To Me.MSFlexGrid1.Rows - 1
      Me.MSFlexGrid1.Row = j
      EXSheet.Cells(dqrow + j - 1, dqcol + i) = Me.MSFlexGrid1.Text
   Next j
Next i
      
End Sub

其中，EXApp.Workbooks.Add就是新建EXCEL文档，是不是和在ACAD中新建文档的方法一样？