[myalsailamy]

Dim filePath As String = Application.StartupPath & "\test.xlsx"
If System.IO.File.Exists(filePath) = False Then System.IO.File.WriteAllBytes(filePath, My.Resources.test)
xlWorkBook = xlApp.xlWorkSheet.Open(filePath)

و بعد ما تكمل الاجراءات تبعك على الملف قم بحذف الملف