開啟舊檔Open

[JieJuen (David)]

    Dim myFile  As String
    Dim obApp   As New Excel.Application
    Dim wbnew

     myFile = "c:\work\a.xls"

     Set wbnew = obApp.Workbooks.Open(myFile)
     With wbnew.Worksheets(1)
            .Cells(3, 3) = "AAAAAAAA" '測試請修改
     End With

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: #1A0HZZHS