今回ここでその読み込み専用のファイルに対してどのようにコーディングしたらいのかを紹介したいと思います。
Imports Microsoft.Office.Core
Imports Microsoft.Office.Interop
---------------------------------------------------------------------------------------------
Public Sub EditAndSaveReadOnlyExcelFile()
Dim xlApp As New Excel.Application
With xlApp
'処理中にエクセル非表示にする
.Visible = False
'処理中のエクセルのアップデート中止して、処理スピードUPする
.ScreenUpdating = False
'処理中の警告メッセージ表示しないようにする
.DisplayAlerts = False
'読み込み専用のファイル上書き保存対応
Dim xlBook As Excel.Workbook = .Workbooks.Open("FilePath", , False, , , , True)
''Do
something
'Save
xlBook.Save()
xlBook.Close()
xlBook = Nothing
End With
xlApp.Quit()
xlApp = Nothing
End Sub