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

[µo°Ý] «ü©w ÀÉ®×+Sheet+Range ¸Ó«ç»ò¼g?

[µo°Ý] «ü©w ÀÉ®×+Sheet+Range ¸Ó«ç»ò¼g?

½Ð±Ð¦U¦ì¤j¤j
§Ú¦³¤@­ÓÀÉ®× A.xls©M1­ÓÀÉ®× B.xls
§Ú·Q¦b A.xls(¶}±Ò¥¨¶°)¤Î B.xls(¤£¶}±Ò¥¨¶°)ª¬ªp¤U
¥ÑAÀɮתº¥¨¶°«ü¥O¥h­×§ïBÀɮשT©wÀx¦s®æªº¼Æ­È
½Ð°Ý¸Ó«ç»ò¼g¸óÀɮתº«ü¥O?(BÀɮתº¤u§@­¶²`«×ÁôÂÃ)

     Sheet1.Range("A1")="2012/12/31"
«e­±­n«ç»ò¥[«ü©wB.xlsªº«ü¥O£«?
boyao

¦^´_ 2# GBKEE


    OK¤F ÁÂÁÂG¤j
boyao

TOP

¦^´_ 1# boyao
CreateObject("D:\book1.XLS")   ¶}±Òªº¬¡­¶Ã¯µøµ¡·|ÁôÂÃ
  1. Option Explicit
  2. Sub Ex()
  3.     With CreateObject("D:\book1.XLS")   '­×§ï¬°  BÀɮתº¸ô®|
  4.         .Sheets("Sheet1").Range("A1") = "2012/12/31"
  5.         .Close True
  6.     End With
  7. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD