1

Excel で VBA を使用して、共有ポイント サイトのファイルをループし、すべての Excel ファイルを開きます。

コードを初めて実行すると Excel がクラッシュしますが、再度開くと問題なく動作します。

これに関する既知の問題はありますか?

ありがとう。

編集:コードは次のとおりです。

Sub Refresh()

    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False

        Dim fso As FileSystemObject
        Dim fldr As Folder
        Dim f As File
        Dim wb As Workbook

        Set fso = New FileSystemObject
        Set fldr = fso.GetFolder(SharePointSite)

        For Each f In fldr.Files

            Set wb = Workbooks.Open(SharePointURL & f.Name)

        Next f

        Set wb = Nothing
        Set fldr = Nothing
        Set fso = Nothing

        .DisplayAlerts = True
        .ScreenUpdating = True
    End With

End Sub
4

1 に答える 1