學步園

問題：通過GetObject打開的Excel文件後，只要被修改並保存，工作表是看不到！
本方法就是要解決這個問題。

Private Sub CommandButton1_Click()
    On Error Resume Next
    文件目錄 = ThisWorkbook.Path & "\Excel\"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fldr = fso.GetFolder(文件目錄)
    For Each s In fldr.Files
        With GetObject(文件目錄 & s.Name)
            .Sheets(1).Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False    '隨便做一點改動
            .SaveAs ThisWorkbook.Path & "\Excel_修改後\" & s.Name    '保存
            .Windows(1).Visible = True    '工作表可見
            .Close (True)    '保存改動
        End With
    Next
End Sub