Dim tempPath As String = IO.Path.GetTempFileName & ".xls" IO.File.WriteAllBytes(tempPath, My.Resources.Test_xls) Process.Start(tempPath) 'どこかでファイルを消さないとどんどんtempPathのフォルダーに溜まります。