VBA(バイナリファイルの入出力)

https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/get-statement
http://www.cocoaliz.com/excelVBA/index.php/47/

-- 1. 開発タブの挿入でボタンを作成
※ActiveXコントロールのものを使用する

-- 2. デザインモードONで作成したボタンをダブルクリックするとエディタが開くので下記コードを記載。デザインモードOFFで実行

Option Explicit

Private Sub CommandButton1_Click()

    '画面を更新しない
    Application.ScreenUpdating = False
    '確認メッセージを表示しない
    Application.DisplayAlerts = False
    
    
    '読み込み
    Dim buffer() As Byte
    
    Open ThisWorkbook.Path & "\" & "scheduler-metadata.zip" For Binary Access Read As #1
    
        'ファイルの長さで配列を初期化
        ReDim buffer(LOF(1))
        Get #1, , buffer

    Close #1
    
    
    '書き込み
    Dim i As Long
    
    Open ThisWorkbook.Path & "\" & "scheduler-metadata2.zip" For Binary Access Write As #2
        
        For i = 0 To UBound(buffer) - 1
            Put #2, , buffer(i)
        Next i
        
    Close #2
    
    MsgBox ("処理完了")
    
    '確認メッセージを表示する
    Application.DisplayAlerts = True
    '画面を更新する
    Application.ScreenUpdating = True
End Sub