返回列表 上一主題 發帖

[發問] 請教關於"不打開Excel檔案,寫資料到儲存格裡"

Sub 幕後開啟EXCEL_寫入()
Dim X As New Application
With X.Workbooks.Open("D:\XXX.xls")
  .Sheets("Sheet1").[A65536].End(xlUp)(2) = Now
  .Close 1
End With
End Sub

TOP

        靜思自在 : 得理要饒人,理直要氣和。
返回列表 上一主題