ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð±Ð±NVBA ½X¹B¥Î¦bVB¤º°ÝÃD¡C

¦^´_ 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. '¦sÀÉ
  8. 'oExcel.Workbooks("Exceltest.xlsx").Save()
  9. 'Ãö³¬
  10. 'oExcel.Workbooks("Exceltest.xlsx").Close()
  11. 'oExcel.Application.Quit()
  12. 'GC.Collect()
½Æ»s¥N½X
¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD