VB 操 作EXCEL表 的 常 用 方 法( 设 计 值 ， 颜 色 ， 大 小)2025-05-18 15:37VB 是 常 用 的 应 用 软 件 开 发 工 具 之 一 ， 由 于 VB 的 报 表 功 能 有限 ， 而 且 一 但 报 表 格 式 发 生 变 化 ， 就 得 相 应 修 改 程 序 ， 给 应 用软 件 的 维 护 工 作 带 来 极 大 的 不 便 。 因 此 有 很 多 程 序 员 现 在 已 经充 分 利 用 EXECL的 强 大 报 表 功 来 实 现 报 表 功 能 。 但 由 于 VB 与 EXCEL由 于 分 别 属 于 不 同 的 应 用 系 统 ， 如 何 把 它 们 有 机 地 结 合 在 一 起 ，是 一 个 值 得 我 们 讨 论 的 课 题 。一 、 VB 读 写 EXCEL表 ：VB 本 身 提 自 动 化 功 能 可 以 读 写 EXCEL表 ， 其 方 法 如 下 ：1 、 在 工 程 中 引 用 Microsoft Excel 类 型 库 ：从 " 工 程 " 菜 单 中 选 择 " 引 用 " 栏 ； 选 择 Microsoft Excel 9.0 Object Library （ EXCEL2000 ） ， 然 后 选 择 " 确 定 " 。 表 示 在 工 程 中 要 引 用EXCEL类 型 库 。2 、 在 通 用 对 象 的 声 明 过 程 中 定 义 EXCEL对 象 ：Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkBookDim xlSheet As Excel.Worksheet3 、 在 程 序 中 操 作 EXCEL表 常 用 命 令 ：Set xlApp = CreateObject("Excel.Application") ' 创 建 EXCEL对 象Set xlBook = xlApp.Workbooks.Open(" 文 件 名 ") ' 打 开 已 经 存 在 的 EXCEL工件 簿 文 件xlApp.Visible = True ' 设 置 EXCEL对 象 可 见 （ 或 不 可 见 ）Set xlSheet = xlBook.Worksheets("表 名 ") ' 设 置 活 动 工 作 表xlApp.Cells(row, col) =值 ' 给 单 元 格 （ row,col ） 赋 值XLApp.Cells(i, 1).Interior.ColorIndex = i' 设 计 单 元 格 颜 色 i=1--56xlSheet.PrintOut '打 印 工 作 表xlBook.Close (True) ' 关 闭 工 作 簿xlApp.Quit ' 结 束 EXCEL对 象Set xlApp = Nothing ' 释 放 xlApp对 象xlBook.RunAutoMacros (xlAutoOpen) ' 运 行 EXCEL启 ...
