PeterPan9720 发表于 2022-7-6 21:46:00

Excel界面

有人能帮我解决一个小问题吗?
我试图有一个excel界面,以便编写一些绘图块属性表达式。
以下代码:
 

Dim NUOVA_ISTANZA As Object
Dim WRKB As Workbook                                                    ' Attribuzione della variabile "Cartella di lavoro Excel"
Dim WRKS As Worksheet                                                   ' Attribuzione della variabile "Foglio di lavoro"

On Error GoTo MESSAGGIO_ERRORE

Set NUOVA_ISTANZA = GetObject(, "Excel.Application")                  ' Attribusce alla variabile "NUOVA_ISTANZA" l'applicazione Excel: se Excel non è aricatot restituisec un errore
Set WRKB = NUOVA_ISTANZA.Workbooks.Add                                  ' Attribuisce alla variabile WRKB la cartella di lavoro Excel corrente
Set WRKS = NUOVA_ISTANZA.ActiveSheet


现在,我在WRKB上收到一条错误消息,作为工作簿指令“未定义用户定义的类型”。
如果我不使用变量dim继续,稍后当我尝试将excel工作表格式设置为边框和其他单元格格式时

With WRKS.Columns(2).Resize(, 3)                                                            ' Bordo destro e sinistro colonne coordinate
   .Borders(xlEdgeLeft).LineStyle = xlContinuous
   .Borders(xlEdgeRight).LineStyle = xlContinuous
   .Borders(xlInsideVertical).LineStyle = xlContinuous
End With

 
我收到一个错误“应用程序定义或对象定义错误”
 
请帮帮我

Cleyton Ramos 发表于 2022-7-6 23:15:45

你好
你首先需要设置一个excel引用,这样你就能得到你想要的。
让我们试着用一个小例子来帮助你:


 
这种错误“应用程序定义或对象定义的错误”是对象的典型原因。
 
页: [1]
查看完整版本: Excel界面