開啟舊檔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

    wbnew.SaveAs Filename:=path & myFile.Name, FileFormat:=xlNormal
    wbnew.Close
    Set wbnew = Nothing

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