VB沟通AutoCAD和Office.docVIP

以下是窗体代码： Option Explicit Private Sub CmdExit_Click() End End Sub Private Sub CmdWell_Click() NameExcel = TxtName.Text If NameExcel Then NumWell = Val(TxtNum.Text) If IsScale(TxtScale.Text) Then If IsNumeric(TxtNum.Text) And Val(TxtNum.Text) 1 Then ValofScale = ValScale(TxtScale.Text) Call Dispose(NumWell) Else MsgBox 2???êyá??TD§￡???ê?￡?, 48, 1¤??ìáê? TxtNum.Text = TxtNum.SetFocus Exit Sub End If Else MsgBox ±èàyêy?μ?TD§￡???ê?￡?D?ê?ó|?ax:xxxx￡?, 48, 1¤??ìáê? TxtScale.Text = TxtScale.SetFocus End If Else MsgBox ?TD§???t??￡???ê?, 48, 1¤??ìáê? TxtName.Text = TxtName.SetFocus End If End Sub Private Sub Form_Activate() TxtName.SetFocus End Sub Private Sub Form_Unload(Cancel As Integer) Set oAutoCad = Nothing Set oModelSpace = Nothing Set oLine = Nothing Set oText = Nothing Set oTextStyles = Nothing Set oCircle = Nothing Set oExcel = Nothing Set oBook = Nothing Set oSheet = Nothing End End Sub 以下是模块代码： Option Explicit Public oAutoCad As Object Public oLine As Object Public oCircle As Object Public I As Integer Public oModelSpace As Object Public oTextStyles As Object Public oText As Object Public startPoint(0 To 2) As Double Public endPoint(0 To 2) As Double Public height As Double Public textString As String Public LenScale As Integer Public NumWell As Integer Public oExcel As Object Public DisposeWell As Integer Public ValofScale As Double Public Xcoordinate As Double Public Ycoordinate As Double Public oBook As Object Public oSheet As Object Public NameExcel As String Sub Dispose(NumWell As Integer) Get the open instance of AutoCAD and instance of Excel On Error GoTo Err_AutoCAD Set oAutoCad = GetObject(, AutoCAD.Application) On Error GoTo 0 On Error GoTo Err_Excel Set oExcel = GetObject(, Excel.Application) On Error GoTo 0 If Not oAutoCad Is Nothing Then Set oModelSpace = oAutoCad.ActiveDocument.ModelSpace For I = 2 To