Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte Visual Basic 6 a zvoľte " Štandardné EXE " z nového zoznamu projektov .
2
Prejsť na hornej lište , kliknite na " projekt " a potom kliknite na " Pridať modul . " To bude pridať štandardné modulu kódu do VB6 projektu .
3
Zadajte alebo skopírujte a vložte nasledujúci kód v module , podľa Mike Rosenblum z Xtreme VB Talk .
Sub WriteToExcel ( )
Dim oExcel Ako Excel.Application ' < - *** Odkaz na objekt programu Excel ***
Dim OWB Ako Excel.Workbook ' < - - *** Odkaz na zošit Excel objekt ***
Dim OWS Ako Excel.Worksheet ' < - *** Odkaz na hárku programu Excel objekte ***
Set oExcel = New Excel.Application
oExcel.Visible = TRUE
Dim oRng1 Ako Excel.Range
Dim oRng2 Ako Excel.Range
Set OWB = oExcel.Workbooks . Pridať
Set OWS = oWB.Worksheets ( " Hárok1 " )
Set oRng1 = oWS.Range ( " A1 " )
Set oRng2 = oWS.Range ( " B2 : E5 " )
oRng1.Value = " Hello World "
Volajte oRng1.Copy ( Destination : = oRng2 ) Spojené
oWB.SaveAs ( " Hello World.xls " ) ' < - výsledky tu uložené
Cleanup :
Set OWS = Nothing
Ak nie je OWB Je Nic Potom oWB.Close
. nastaviť OWB = Nothing
oExcel.Quit
Set oExcel = Nothing
End Sub
kód odkazuje na objekty programu Microsoft Excel , a potom používa toto pripojenie k otvoreniu Microsoft Excel , a potom napísať slovo " Hello World " v bunke A1 a rozsah B2 : E5 . Potom sa uloží dokument ako " Hello World.xls " na vašom počítači a výnosov uzavrieť Microsoft Excel .
4
Stlačte " F5 " pre spustenie programu .
Copyright © počítačové znalosti Všetky práva vyhradené