返回列表 上一主題 發帖

[發問] 指定 檔案+Sheet+Range 該怎麼寫?

回復 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
複製代碼

TOP

        靜思自在 : 真正的愛心,是照顧好自己的這顆心。
返回列表 上一主題