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

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

¦^´_ 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¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD