我一直在这条线上出错。有什么想法吗？
函数 GetPipeObjects（）
' 函数设置 Civil 3D Pipe 应用程序、文档和数据库对象
' 注意：使用管道应用程序获取管道设置
Dim oApp As AcadApplication
Set oApp = ThisDrawing.Application
Dim sAppName As String
sAppName = “AeccXUiPipe.AeccPipeApplication”
Set g_oCivilPipeApp = oApp.GetInterfaceObject（sAppName）
如果g_oCivilPipeApp Is Nothing 则
MsgBox “Error create ” & sAppName & “， exit.”
GetCivilObjects = False
Exit Function
End if
Set g_oAeccPipeDoc = g_oCivilPipeApp.ActiveDocument
Set g_oAeccPipeDb = g_oAeccPipeDoc.Database
Set oExcelBook = g _ oExcelApp。workbooks . Open(file hhcalcs)' g _ oExcelApp。Workbooks.Add
如果oExcelBook为Nothing，则
MsgBox "创建Excel文档时出错，退出。"
Exit Sub
End If
' Dictionary objects to hold column name and positions
Set dict pipe = New Dictionary
Set dict structure = New Dictionary
' make a New sheet for structures
如何指定要使用的excel文件，而不是对其进行硬编码？
置顶卡
