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