faye59

¦^´_ 2# stephenlee

    ¤£¦n·N«ä,¤£ª¾¹D¬O¤£¬O§Ú¿ï¿ù¤FVBªº±M®×¡C
©Ò¥H¥Lªºµ{¦¡½X¤£ª¾¹D¬O¤£¬O¥Î¿ù¤F¡CÀ³¸Ó¬OVBªº windowform,¦ý¬O§Ú³]©w¤F Dim Workbooks©MWorksheet ¥L³£»¡¨S¦³©w¸q,»{¤£¥X¥L¬OExcel ¡C
¦p¤U¹Ï§Ú¦bºô¸ô¤W§äªº¨Ò¤l,¸ò¥L¥´¤F¤§«á,¥X²{°ÝÃD¡CÁÂÁÂ

Å޿褣¤Ó¹ï¡A
oBook¤ÎoSheetÀ³¸Ó«Å§i¦¨Object
¦bVBA¤º¤]¬O¤@¼Ë¡A
§A©Ò©w¸qªº³o¨â­Óµü¤£ÄÝ©ó¦bµ{¦¡»y¨¥¤¤ªº¤@­ÓÄÝ©Ê¡A
­n¥ý©w¸q¥¦¬O¤@­ÓObjectµM«á¦b¥i¥H¦A§i¶Dµ{¦¡¤À§O°µ«ç¼Ëªº°õ¦æ¡C

­×§ï¦p¤U:

1. Dim oExcel, oBook, oSheet As Object
   
2. oExcel = CreateObject("Excel.Application")
   
3. oExcel.Workbooks.Open("C:\temp\Exceltest.xlsx")
   
4. oBook = oExcel.ActivateWorkbook
   
5. oSheet = oExcel.Workbooks("Exceltest.xlsx").Worksheets(1)
   
6. oSheet.Range("A1").Value = "test"
   
7. 
   
8. '¦sÀÉ
   
9. 'oExcel.Workbooks("Exceltest.xlsx").Save()
   
10. 'Ãö³¬
    
11. 'oExcel.Workbooks("Exceltest.xlsx").Close()
    
12. 'oExcel.Application.Quit()
    
13. 'GC.Collect()

½Æ»s¥N½X