Excel 在团队中使用电子表格打开、修改、保存

Posted 2023-05-07

【中文标题】Excel 在团队中使用电子表格打开、修改、保存

【英文标题】：Excel Open, Modify, Save with a spreadsheet on teams

【发布时间】：2021-05-06 20:59:53

【问题描述】：

所以我有一个宏可以运行以更新另一个工作簿。一切都在做它应该做的事情，即使我完成了这个过程。我可以看到它在做什么，一切都是正确的。当我打开需要更新的文件，编辑正确的（它确实如此），保存它（它说它确实如此），然后将其关闭时，问题就在底部。但是当我打开目的地进行检查时，没有进行任何更改。代码如下，我会说它试图更改的文件位于团队文件夹下。打开正确的文件没有问题，只是保存。任何帮助都会很棒。

Sub EditCell()

    Where = ActiveCell.Column
    Select Case Where
        Case 10, 14, 15, 16
            SelCol = "YesNo"
        Case 11, 12, 27
            SelCol = "Comment"
    End Select
    
    If SelCol = "YesNo" Then
        Answer = MsgBox("Please select.", vbYesNo, "Yes/No")
        TitleName = Cells(1, Where).Value
        IRBNetID = Cells(ActiveCell.Row, 1).Value
        Workbooks.Open ("https://sharepoint.com/files/Testing.xlsx")
        Workbooks("Testing").Activate
        FindCol = WorksheetFunction.Match(TitleName, Range("A1:BB1").Value, 0)
        FindRow = WorksheetFunction.Match(IRBNetID, Range("A1:A5000").Value, 0)
        If Answer = 6 Then
            Cells(FindRow, FindCol).Value = "Yes"
        Else
            Cells(FindRow, FindCol).Value = "No"
        End If
        Application.DisplayAlerts = False
        Workbooks("Testing").SaveAs
        Application.DisplayAlerts = True
        Workbooks("Testing").Close
        Workbooks("Test 2").RefreshAll
    End If
    
End Sub

【参考方案1】：

我已经找到了解决这个问题的方法。在保存工作簿之前，您必须禁用自动保存功能。下面的示例以防有人想查看我从上面更改的部分

Application.DisplayAlerts = False
ActiveWorkbook.AutoSaveOn = False '// this needs to be added
Workbooks("Testing").SaveAs
Application.DisplayAlerts = True
Workbooks("Testing").Close