Excel Vba GetObject 如何保存Excel文件

最新推荐文章于 2023-03-27 14:28:03 发布

原创最新推荐文章于 2023-03-27 14:28:03 发布 · 2.2k 阅读

6 ·

CC 4.0 BY-SA版权

文章标签：

#Excel #VBA #GetObject #保存

vba 同时被 2 个专栏收录

11 篇文章

订阅专栏

5 篇文章

订阅专栏

本文提供了一种解决使用GetObject打开Excel文件后，在文件被修改并保存时工作表不可见的问题的方法。通过VBA代码实现文件的修改、保存及显示工作表的操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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