ＯＭ－３のＲＡＷファイルを、ＯＭ－１に書き換えるＥｘｃｅｌ ＶＢＡ

Mac版での動作確認はできていません。自己責任でお願いします。 

Option Explicit

Sub UpdateRawFileByte()
    Dim filePath As String
    Dim fileNum As Integer
    Dim targetPosition As Long
    Dim newValue As Byte
    
    ' 【設定】書き換えたい内容を指定
    targetPosition = &H9EF + 1  ' 例：先頭から9EFHバイト目（1番目のバイトは 1 ） + 1
    newValue = &H31             ' 例：書き換える値（16進数でFF、10進数なら255）

    ' 1. ファイル選択ダイアログの表示
    filePath = Application.GetOpenFilename("RAW Files, *.ORF")
    If filePath = "False" Or filePath = "" Then Exit Sub ' キャンセル時

    ' 2. 空いているファイル番号を取得してバイナリモードで開く
    fileNum = FreeFile
    Open filePath For Binary As #fileNum
    
    ' 3. 指定した位置へ1バイト書き込み
    Put #fileNum, targetPosition, newValue
    
    ' 4. ファイルを閉じる
    Close #fileNum
    
    MsgBox "書き換えが完了しました。", vbInformation
End Sub