Visual Basic 6 is de programmeertaal en geïntegreerde ontwikkelomgeving ingezet door Microsoft . De taal is geliefd om zijn snelle applicatieontwikkeling , en automatiseringsmogelijkheden . VB6 programmeurs kunnen programma en automatiseren van een aantal Microsoft-programma's , waaronder Microsoft Office en in het bijzonder Microsoft Excel . Programmeurs kunnen referentie objecten met betrekking tot Excel in hun VB6 code, die hen in staat stelt te automatiseren , lezen en schrijven naar het programma . Het schrijven van VB6 code duurt enige kennis van zijn programmering syntax , eenmaal de kennis wordt verworven , schrijven naar Excel in uw VB6 code neemt slechts een paar stappen en regels code te volgen . Instructies
1 Open Visual Basic 6 en selecteer " Standard EXE " uit het nieuwe project lijst . Kopen van 2 Ga naar de top menubalk op "Project " en vervolgens klik op "Add Module . " Dit zal een standaard code -module toe te voegen in uw VB6 project .
Type of kopieer 3 en plak de volgende code in de module , volgens Mike Rosenblum van Xtreme VB Talk .
Sub WriteToExcel ( ) Dim oExcel
Zoals Excel.Application ' < - *** Verwijzing naar Excel Application object *** Dim OWB
Zoals Excel.Workbook ' < - - *** Verwijzing naar Excel-werkmap object *** Dim OWS
Zoals Excel.Worksheet ' < - ***
Stel oExcel = Nieuw *** Verwijzing naar Excel-werkblad -object Excel.Application oExcel.Visible = True Dim oRng1
Zoals Excel.Range Dim oRng2
Zoals Excel.Range
Set OWB = oExcel.Workbooks . Voeg
Set OWS = oWB.Worksheets ( " Blad1 " ) Set
oRng1 = oWS.Range ( " A1 " ) Set
oRng2 = oWS.Range ( " B2 : E5 " ) oRng1.Value
= " Hello World " Call oRng1.Copy
( Destination : = oRng2 ) oWB.SaveAs
( " Hallo World.xls " ) ' < - Resultaten hier opgeslagen Cleanup
: Set OWS
= Nothing
Als Niet OWB dan niets is oWB.Close
. set OWB = Nothing oExcel.Quit
set = Nothing End Sub
De code referenties Microsoft Excel objecten oExcel en gebruikt vervolgens die verbinding te openen Microsoft Excel , schrijf dan het woord " Hello World " in cel A1 en het bereik B2 : E5 . Dan slaat zij het document als " Hallo World.xls " op uw computer en de opbrengst te sluiten uit Microsoft Excel .
Druk " F5 " 4 om het programma uit te voeren .
< Br >
|
