学步园

问题：通过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