[發問] 啟動專案 轉為 *.exe檔

yangjie

請教諸位大大
有灌vb6程式 卻不會將下列啟動專案  轉為 *.exe檔
Sub Main()
    Dim f1
    f1 = App.EXEName
    Dim fso, f As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFile(f1 & ".xls")
    Dim n
    n = fso.GetParentFolderName(f.Path)
    Set objXLApp = CreateObject("Excel.Application")
    objXLApp.Visible = True
    Set objXLBook = objXLApp.Workbooks.Open(n & "\" & f1 & ".xls")
    Set objXLBook = Nothing
    Set objXLApp = Nothing
    Set fso = Nothing
    Set n = Nothing
    Set f = Nothing
End Sub
請大大協助    謝謝

yangjie

回復 1# yangjie
已自行設定OK
謝謝大家
只要單獨開一個Module1,不要有form1或其他
檔案--發行 。即可