[编程交流] 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

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