Set oResizeRange = oWS.Range("E1", "E6").Resize(ColumnSize:=iNumQtrs) ' Apply borders to the Sales data and headers. Set oResizeRange = oWS.Range("E2", "E6").Resize(ColumnSize:=iNumQtrs) ' Fill the columns with a formula and apply a number format. ' Fill the interior color of the headers. ' Change the Orientation and WrapText properties for the headers. Set oResizeRange = oWS.Range("E1", "E1").Resize(ColumnSize:=iNumQtrs) ' Starting at E1, fill headers for the number of columns selected. MsgBox sMsg, vbMsgBoxSetForeground, "Quarterly Sales" SMsg = "Displaying data for" & Str(iNumQtrs) & " quarter(s)." Or vbMsgBoxSetForeground, "Quarterly Sales") IRet = MsgBox(sMsg, vbYesNo Or vbQuestion _ SMsg = "Enter sales data for" & Str(iNumQtrs) & " quarter(s)?" ' Determine how many quarters to display data for. Private Sub DisplayQuarterlySales(oWS As Excel.Worksheet) MsgBox Err.Description, vbCritical, "Error: " & Err.Number ' Make sure you release object references. ' Make sure Excel is visible and give the user control ' Manipulate a variable number of columns for Quarterly Sales Data. ' Fill D2:D6 with a formula(=RAND()*100000) and apply format. ' Fill C2:C6 with a relative formula (=A2 & " " & B2). ' Fill A2:B6 with an array of values (First and Last Names). ' Create an array to set multiple values at once. ' Format A1:D1 as bold, vertical alignment = center. Set oXL = CreateObject("Excel.Application") ' Start Excel and get Application object. Nella finestra del codice per Form1, inserire il codice seguente: Option Explicit Īggiungere un controllo CommandButton a Form1. įare clic su OK per chiudere la finestra di dialogo riferimenti.
Se si sta automatizzando Microsoft Excel 97, la libreria dei tipi viene visualizzata come libreria oggetti di Microsoft excel 8,0 nell'elenco dei riferimenti. Se si sta automatizzando Microsoft Excel 2000, la libreria dei tipi viene visualizzata come libreria oggetti di Microsoft excel 9,0 nell'elenco dei riferimenti. Se si sta automatizzando Microsoft Excel 2002, la libreria dei tipi viene visualizzata come libreria oggetti di Microsoft excel 10,0 nell'elenco dei riferimenti. Se si sta automatizzando Microsoft Office Excel 2003, la libreria dei tipi viene visualizzata come libreria oggetti di Microsoft Excel 11,0 nell'elenco dei riferimenti. Se si sta automatizzando Microsoft Office Excel 2007, la libreria dei tipi viene visualizzata come libreria oggetti di Microsoft Excel 12,0 nell'elenco dei riferimenti. Se la libreria di oggetti corretta per la versione di Excel non è presente nell'elenco, accertarsi di aver installato correttamente la versione di Excel. Scorrere l'elenco fino a trovare la libreria di oggetti di Microsoft Excele quindi selezionare l'elemento per aggiungere un riferimento a Excel. Verrà visualizzata la finestra di dialogo riferimenti. Form1 viene creato per impostazione predefinita.įare clic su progetto e quindi fare clic su riferimenti. Creazione dell'esempio di automazioneĪvviare Visual Basic e creare un nuovo progetto EXE standard. Vedere i passaggi riportati di seguito su come aggiungere il riferimento. Per questo esempio, è necessario aggiungere un riferimento alla libreria dei tipi per Excel prima di poter eseguire il codice. In Visual Basic, questa operazione viene fatta tramite la finestra di dialogo riferimenti disponibile nell'ambito del progetto | Menu riferimenti. Per eseguire l'associazione anticipata a un server di automazione, è necessario impostare un riferimento alla libreria di tipi del server. In questo esempio viene utilizzato un binding precoce, considerato migliore nella maggior parte dei casi, in quanto garantisce prestazioni maggiori e una maggiore sicurezza del tipo. Con l'associazione anticipata, l'applicazione riconosce in fase di progettazione il tipo esatto di oggetto che comunicherà e può dichiarare gli oggetti come tipo specifico. Con l'associazione tardiva, i metodi non sono associati fino alla fase di esecuzione e il server di automazione è dichiarato come Object. È possibile controllare un server di automazione in due modi: utilizzando l'associazione tardiva o l'associazione anticipata. In questo articolo viene illustrato come creare e modificare Excel utilizzando l'automazione da Visual Basic.
0 kommentar(er)
