Come scrivere in Excel da VB6

Visual Basic 6 è il linguaggio di programmazione e l'ambiente di sviluppo integrato distribuito da Microsoft. Il linguaggio è popolare per il suo sviluppo rapido di applicazioni e funzionalità di automazione . Programmatori VB6 sono in grado di programmare e di automatizzare una serie di programmi di Microsoft , tra cui Microsoft Office e , in particolare, Microsoft Excel . I programmatori sono in grado di oggetti di riferimento in materia di Excel nel loro codice VB6 , che permette loro di automatizzare , leggere e scrivere il programma . La scrittura di codice VB6 richiede una certa conoscenza della sua sintassi di programmazione , una volta che la conoscenza è acquisita , la scrittura di Excel nel codice VB6 richiede solo pochi passi e righe di codice da seguire. Istruzioni
1

Aprire Visual Basic 6 e selezionare " EXE standard " dal nuovo elenco di progetti .
2

Vai alla barra dei menu in alto , clicca su " Progetto" e quindi cliccare su " Aggiungi modulo ". Verrà aggiunto un modulo di codice standard nel progetto VB6 .
3 Tipo

o copiare e incollare il seguente codice nel modulo , secondo Mike Rosenblum di Xtreme VB Talk.

Sub WriteToExcel ( ) per

Dim oExcel Come Excel.Application ' < - *** riferimento all'oggetto Application di Excel ***

Dim OWB Come Excel.Workbook ' < - - *** Riferimento per oggetto cartella di lavoro di Excel ***

Dim OWS Come Excel.Worksheet ' < - *** Riferimento per oggetto foglio di lavoro di Excel ***

oExcel = Nuovo Excel.Application

oExcel.Visible = True

Dim oRng1 Come Excel.Range

Dim oRng2 Come Excel.Range

OWB = oExcel.Workbooks . Aggiungi

OWS = oWB.Worksheets ( " Foglio1 " ) per

oRng1 = oWS.Range ( " A1 " ) per

oRng2 = oWS.Range ( " B2 : E5 " ) per

oRng1.Value = " Ciao Mondo "

Chiama oRng1.Copy ( Destinazione : = oRng2 ) per

oWB.SaveAs ( " Ciao World.xls " ) ' < - Risultati salvati qui

Cleanup :

OWS = Nothing

Se non OWB è niente allora oWB.Close

. set OWB = Nothing

oExcel.Quit

oExcel = Nothing End Sub

Il codice fa riferimento a oggetti di Microsoft Excel e quindi utilizza tale connessione per aprire Microsoft Excel, quindi scrivere la parola " Ciao Mondo " nella cella B2 A1 e la gamma : E5 . Poi si salva il documento come " Ciao World.xls " sul computer e proventi al fine di chiudere Microsoft Excel .
4

Premere " F5 " per eseguire il programma .