Sub 既存ファイルを開く()
    
    'エクセルxlsx_xlsm_ワードdocx_テキストtxt_pdf_などが開ける
    ファイルフルパス = "C:\sample.xlsx"
    
    CreateObject("Wscript.Shell").Run ファイルフルパス

End Sub