index1.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

1,用VB开发Outlook程序的COM，怎样使Outlook一启动就是使用我设计的窗体 
我们用VB开发 Outlook 程序的 COM，同时还对 outlook 里的联系人、日历等窗体作了一些修改。 
    我的问题是怎样在 COM 加载项里改变联系人、日历等的默认窗体，使 Outlook 一启动就是使用我设计的窗体。 
<END>    
2,如何控制sheet的数量并且对sheet进行命名 
用vb6对EXCEL操作中,如何控制sheet的数量,并且可以对sheet进行命名或重命名? 
<END>    
3,有没有可以退出winword的方法
我使用下面这段代码可以新建写入一个WORD文件，但无法从内存中退出winword，我原本想从对象库中寻找一下有没有可以退出winword的方法，可是我发现对象库中根本没有Word.Basic这个对象，请问我该怎么办？谢谢。 
    Private Sub CmdWriteWord_Click() 
    Dim wd As Object 
    Dim sFileName As String 
     CommonDialog1.Flags = &H4 
     CommonDialog1.ShowSave 
     If Err <> 0 Then Exit Sub 
     
     sFileName = CommonDialog1.FileName 
     If sFileName = "" Then Exit Sub 
     Set wd = CreateObject("Word.Basic") 
     wd.FileNewDefault 
     wd.FontSize 20 
     wd.Insert "Hello,World" + Chr(13) 
     wd.Insert "012346789" 
     wd.FileSaveAs (sFileName) 
     wd.FileClose 
     Set wd = Nothing 
    End Sub 
    另：我打开你们主页上的提问页面并将问题填写完毕后，总是无法发送成功。 
<END> 
4,程序运行时报Run-time error 429的错误 
我在使用下面这段代码读取WORD文件内容时，必须打开一个WORD窗口，即使WORD窗口中只包括一个空白的文档，这时程序会一次性把该文档中的所有内容全部读入，如果打开没有WORD窗口，则程序运行时会报Run-time error '429' 
    ActiveX componnent can't create object的错误，请问这是为什么？ 
    Dim sFileName, sContent, sPartContent As String 
    Dim wrdApp As Object 
    CommonDialog1.ShowOpen 
    If Err <> 0 Then Exit Sub 
    sFileName = CommonDialog1.FileName 
    If sFileName = "" Then Exit Sub 
    Set wrdApp = Word.Application 
    wrdApp.Visible = False 
    wrdApp.Documents.Open (sFileName) 
    sContent = wrdApp.ActiveDocument.Content 
<END>    
5,到哪儿能查到VBA命令手册 
请问到哪儿能查到VBA命令手册?我现在正在用VFP5.0编程中，急需VBA命令手册，十万火急希望尽快能得到回复。
<END>
6,如何比较两个WORD文件的内容有几处差别 
请问老师vb中如何比较两个WORD文件的内容有几处差别。拜托了。
<END>
7,如何用VB打印有密码的ACCESS数据库中的报表 
如何用VB打印有密码的ACCESS数据库中的报表？ 
    有如下程序，用自动化控制ACCESS打印报表： 
    Set AccObj=New Access.Application 
    AccObj.OpenCurrentDatabase "C:\Sun.mdb" 
    AccObj.DoCmd.OpenReport "YearRep",acViewNormal 
    AccObj.Quit 
    在无密码时可通过，加密码后第2行出错。如何打开密码？ 
<END>    
8,如何取出Excel数据库中Sheet的名称来 
请 问 :使 用 Excel的 什 么 属 性 或 方 法 来 取 出 Excel数 据 库 中 Sheet的 名 称 来 ,即 :我 只 关 心 数 据 库 名 称 ,而 不 知 *.xls中 sheet的 名 字 和 数 目 ,我 想 通 过 其 属 性 或 方 法 循 环 来 读 取 .如 何 实 现 ？ 
<END>
9,在VB程序中如何自动让Ppview32播放指定路径下的幻灯片 
在 我 的 VB6.0编 的 程 序 中 已 经 可 以 调 用 Ppview32来 显 示 powerpoint制 作 的 幻 灯 片 ， 但 这 需 要 在 Ppview32中 选 择 幻 灯 片 的 路 径 并 按 “ SHOW” 才 能 播 放 幻 灯 片 ， 但 是 我 想 在 VB程 序 中 自 动 让 Ppview32播 放 指 定 路 径 下 的 幻 灯 片 ， 该 如 何 实 现 呢 ？ 
<END>
10,释放EXCEL对象的方法 
为 了 在 程 序 中 调 用 Excel， 我 采 用 了 贵 站 的 一 个 例 程 。 如 下 ： 
     Dim objexcel As Excel.Application 
     Set objexcel = New Excel.Application 
     objexcel.Visible = True 
     With objexcel.ActiveSheet 
     '此 处 放 置 操 纵 EXCEL的 代 码 
     End with 
    这 程 序 非 常 好 用 ， 谢 了 。 
    但 因 我 要 在 程 序 中 不 同 窗 体 间 使 用 ， 就 发 现 调 用 的 objexcel 不 能 释 放 。 造 成 在 不 同 窗 体 打 开 同 一 个 Excel文 件 时 死 锁 。 请 问 ： 释 放 objexcel的 方 法 。 
<END>    
11,在EXCLE中数值当作坐标值，在已打开的某AUTOCAD文件中生成一段POLYLINE 
是 这 样 ， 在 AUTOCAD中 绘 制 一 段 POLYLINE,一 般 是 连 续 点 击 或 输 入 一 组 二 维 坐 标 值 。 假 如 我 在 EXCLE中 把 两 列 数 值 当 作 一 组 二 维 坐 标 值 ， 能 否 用 VB创 建 一 按 钮 ， 在 选 中 上 述 两 列 数 值 区 域 时 单 击 按 钮 ， 自 动 能 在 已 打 开 的 某 AUTOCAD文 件 中 生 成 一 段 POLYLINE。 最 好 是 在 单 击 按 钮 时 先 提 示 手 动 更 改 该 段 POLYLINE第 一 个 端 点 的 二 维 坐 标 值 ， 然 后 相 对 于 该 端 点 自 动 生 成 该 段 PLLYLINE。 若 您 能 回 答 ， 请 您 尽 快 回 信 ， 愿 拜 您 为 师 ， 经 常 讨 教 ！ ！ 若 您 不 便 回 答 ， 请 您 尽 快 回 信 ， 给 推 荐 一 个 高 手 ， 万 分 感 激 ！ ！ 
    因 地 域 关 系 ， 我 周 围 所 能 请 教 的 人 对 编 程 所 知 太 少 ， 都 不 能 回 答 ， 请 直 接 把 这 个 问 题 放 入 难 题 征 解 ， 一 般 的 程 序 员 可 能 对 AUTOCAD不 太 了 解 ， 请 直 接 给 我 推 荐 CAD工 程 软 件 公 司 的 专 业 老 师 ， 发 自 内 心 的 感 激 ！ ！ ！ 
<END>
12,如何通过DDE获得Excel的数据 
How communication VB with DDE,I know Excel98 can get data from DDE, i can do it. but i don't know how VB6 get data from DDE, could you pls give me some tips ? 
<END>    
13,不装WORD能调用CreateObject(Word.Application)吗 
如 果 不 装 WORD,在 VB中 还 能 调 用 CreateObject("Word.Application")吗 ？ 
<END>     
14,如何获得Word的Document中一页的文字 
我 在 用 vb6、 WORD 97开 发 OFFICE应 用 ， 我 已 经 知 道 如 何 获 得 Document中 的 文 字 和 页 数 ， 现 在 我 要 获 得 Document中 最 后 一 页 的 文 字 ， 如 何 实 现 ?我 用 宏 记 录 了 一 些 VBA， 可 惜 不 能 发 挥 作 用 ， 仅 供 高 手 一 笑 。 
     ActiveWindow.View.Type = wdPageView 
     'WORD 97 文 档 视 图 设 定 为 页 面 方 式 
     Selection.EndKey Unit:=wdStory 
     'WORD 97 文 档 视 图 中 光 标 移 动 到 整 个 文 档 最 后 一 行 的 结 束 处 
     Application.Browser.Next 
     'WORD 97 文 档 视 图 中 光 标 移 动 到 整 个 文 档 最 后 一 页 的 开 始 处 
<END>
15,如何在VB中控制Word和Excel 
如 何 使 用 VB在 程 序 中 控 制 我 word97,excel97的 打 开 ,窗 口 的 控 制 ,以 及 其 他 word97,excel97的 细 节 控 制 ,比 如 页 面 设 置 ,如 果 一 两 句 话 无 法 讲 清 楚 ,能 否 介 绍 相 关 站 点 。 谢 谢 。 
<END>
16,在VB6中如何调用WORD97中的宏 
在 VB6中 如 何 调 用 WORD97中 的 宏 ， 并 进 行 编 辑 ， 将 vb中 的 变 量 传 到 word97中 ? 
<END>
17,能否在VB中调用Word 文件并将其显示在文本框内 
如 何 在 VB中 调 用 Word 文 件 并 将 其 显 示 在 文 本 框 内 ?我 曾 经 试 着 用 VBA后 台 运 行 WINWORD, 然 后 打 开 一 个 Word 文 件 ,并 准 备 用 DDE方 式 链 接 到 文 本 框 ， 但 是 应 该 设 什 么 样 的 Linkitem? 或 者 有 更 好 的 解 决 方 式 ， 请 指 教 ！ 
<END>
18,怎样才能加快VB中向EXCEL中添加数据的速度 
请 教 :我 用 EXCEL打 印 数 十 份 小 表 格 ,从 VB中 向 EXCEL中 添 数 据 时 很 慢 ,不 知 怎 样 才 能 加 快 EXCEL中 生 成 表 格 的 速 度 ？ 
<END>
19,GetObject打开Word文档，为什么看不到文档 
我 用 如 下 语 句 为 何 只 打 开 一 个 空 的 word,而 我 想 要 的 文 档 却 没 有 打 开 : 
    dim obj as object 
    set obj=getobject("c:\my.doc","word.document.8") 
    obj.application.visible=true 
<END>
20,如何调用Excel打开.xls文件 
在 VB6中 ， 需 要 调 入 一 份 EXCEL表 单 ， 由 于 情 况 所 限 ， 该 表 已 在 EXCEL中 制 成 ， 保 存 为 .XLS文 件 ， 利 用 SHELL可 调 入 EXCEL应 用 程 序 ， 但 不 知 该 如 何 调 入 .XLS文 件 。 
<END>
21,如何获得Document中的文字和页数 
在 WORD97中 将 文 字 放 入 Document可 用 Selection.TypeText Text:="xxx"， 那 它 的 反 函 数 是 什 么 ， 即 这 样 将 Document中 的 文 字 传 到 我 定 义 的 一 个 串 中 ？ 我 如 何 知 道 Document的 页 数 ？ 
<END>
22,如何在Excel中使用DriveListBox等控件 
我 在 使 用 VBA时 发 现 "控 件 工 具 箱 "中 的 控 件 太 少 ， 连 DriveListBox、 DirListBox、 FileListBox这 样 的 控 件 都 没 有 ， 使 用 "附 加 控 件 "也 没 有 找 到 这 些 控 件 ， 应 怎 样 添 加 这 些 控 件 ？ 
<END>
23,如何在Excel中调用VB程序 
我 使 用 EXCEL 97中 的 VBA编 制 了 大 量 的 代 码 ,可 是 近 来 我 发 现 VBA的 速 度 慢 的 几 乎 无 法 忍 受 ,于 是 我 打 算 使 用 VB 5.0编 译 这 些 代 码 ,使 之 成 为 EXE文 件 ， 可 是 我 该 如 何 将 这 些 EXE文 件 集 成 到 EXCEL 97的 界 面 中 呢 ？ 
<END>
24,如何在程序中，获取Office的安装路径 
我 如 何 在 程 序 中 ， 获 取 office的 安 装 路 径 ？ 
<END>     
25,如何实现自动重复上一条记录的功能 
Visual Foxpro中 有 一 个 功 能 ： 在 数 据 窗 录 入 记 录 时 ， 当 光 标 移 向 一 个 新 的 记 录 ， 会 自 动 重 复 上 一 条 记 录 的 内 容 ！ 在 Access97和 vb6中 有 办 法 实 现 吗 ？ 
<END>
26,怎样通过Automation直接运行EXCEL中的宏 
怎 样 从 VB中 直 接 运 行 EXCEL中 的 宏 ? 
<END>
27,如何利用Automation调用ACCESS97中设计好的报表，窗体 
在 vb6中 ， 如 何 利 用 Automation调 用 ACCESS97中 设 计 好 的 报 表 ， 窗 体 ？ 举 个 具 体 的 例 子 好 吗 ？ 
<END>     
28,Word的.doc的文件结构是如何的 
我 想 用 vb6.0编 一 个 小 编 辑 器 ,其 功 能 能 打 开 Word文 件 。 现 在 想 请 教 .doc的 文 件 结 构 是 如 何 的 , 如 何 读 取 其 中 的 內 容 ? 
<END>
29,如何得到Word97文章的属性和检测存盘动作 
现 在 我 想 编 一 个 VB程 序 ， 能 自 动 检 测 WORD97存 盘 时 动 作 ， 同 时 得 到 文 章 的 一 些 属 性 ， 请 问 这 样 想 法 可 行 吗 ？ 是 否 一 定 要 用 VBA这 个 东 东 ？ 用 什 么 方 法 解 决 ？ 
<END>     
30,TLB是什么，如何做出来 
用 VB编 写 DirectX程 序 时 的 TLB是 什 么 ？ 是 谁 做 出 来 的 ？ 有 什 么 接 口 或 编 程 方 法 ？ 
<END>
31,调用Excel，可Excel总是一闪而过 
我 在 编 程 中 使 用 以 下 代 码 调 用 EXCEL时 , EXCEL总 是 一 闪 而 过 ,不 知 何 故 ? 
    dim XL as object 
    set xl=createobject("excel.application") 
    xl.visible=true 
<END>     
32,VB中引用的Excel中的常数 
有 关 VB调 用 Excel出 现 超 出 定 义 范 围 的 问 题 ？ 
    Set oleExcel = CreateObject("Excel.Application") 
    Set oleWorkbook = oleExcel.Workbooks.Add 
    Set oleWorkSheet = oleWorkbook.Sheets.Add 
    With oleWorkSheet.Shapes.AddLine(10, 10, 250, 250).Line 
     .DashStyle = msoLineSolid 
     .ForeColor.RGB = RGB(50, 0, 128) 
    End With 
     
    其 中 msoLineSolid是 OLE对 象 的 所 属 常 数 ， 在 VB编 程 环 境 内 输 入 时 系 统 提 示 “ This library with contains this symbol is not referenced by the current project,so the symbol is undefined, Would you like to add a reference to the containing library now” 我 选 择 yes后 运 行 正 常 ， 但 当 下 次 重 新 启 动 VB， 打 开 此 工 程 时 ， 又 会 出 现 此 错 误 ， 又 只 能 再 
    输 入 此 常 数 ， 回 答 Yes,运 行 正 常 ， 存 盘 后 ， 下 次 又 会 重 现 此 问 题 
<END>
33,如何在VB中调用Excel的工作薄预览功能
如 何 在 VB中 调 用 Excel的 工 作 薄 预 览 功 能 ? 
    Dim oleExcel as Object 
    Dim oleWorkbook as Object 
    Dim OleWorkSheet as Object 
    set oleExcel=Createobject("Excel.Application") 
    set oleWorkbook=oleExcel.Workbooks.add 
    set oleWorkSheet=oleExcel.Workbooks.Worksheets.Add 
    然 后 ,我 填 充 了 一 些 CELL 
    希 望 用 oleWorkSheet.Printpreview 预 览 ,但 出 现 部 件 要 求 挂 起 ? 
<END>