调用excel，可excel总是一闪而过.txt

VB技巧问答10000例 VB技巧问答10000例

你 没 有 说 你 是 在 什 么 地 方 使 用 这 段 代 码 的 ， 但 我 估 计 你 是 在 一 个 过 程 中 使 用 的 ， 象 下 面 这 样 ： 
    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>