你 沒 有 說 你 是 在 什 么 地 方 使 用 這 段 代 碼 的 ， 但 我 估 計 你 是 在 一 個 過 程 中 使 用 的 ， 象 下 面 這 樣 ： 
    Private Sub Command1_Click() 
     Dim XL as object 
     Set XL= CreateObject("Excel.Application") 
     XL.Visible = True 
    End Sub 
    如 果 是 這 樣 的 話 ， 問 題 就 很 明 顯 了 ， XL變 量 只 在 Command1_Click這 個 過 程 中 存 在 ， 這 個 過 程 一 結 束 ， XL變 量 也 就 消 失 了 ， 這 樣 你 先 用 CreateObject調 用 Excel， 但 很 快 這 個 過 程 結 束 ， XL變 量 被 取 消 ， 這 樣 又 退 出 了 Excel， 這 就 是 為 什 么 你 看 見 Excel一 閃 而 過 。 如 果 想 避 免 這 種 情 況 ， 你 可 以 在 窗 體 的 聲 明 部 分 定 義 這 個 變 量 ， 這 樣 只 要 窗 體 存 在 ， 就 不 會 退 出 Excel。 
<END>