vb调用不了word vb.net 调用word

发布日期：2020-10-16

vb调用word

在专业论坛上找了一个：Sub Macro1()Dim p$, f$, s$, a, arr, brr(1 To 6000, 1 To 20), d As Object, i&, l&, m&Set d = CreateObject(＂scripting.dictionary＂)a = Array(＂aaa＂， ＂身份证号码＂， ＂年龄＂， ＂姓名＂， ＂性别＂， ＂工作＂， ＂职业＂， ＂兴趣＂， ＂住址＂)For i = 1 To UBound(a)d(a(i)) = iNextp = ThisWorkbook.Path & ＂\＂With CreateObject(＂word.application＂).Visible = Falsef = Dir(p & ＂*.doc＂)Do While f ＂＂.Documents.Open p & fFor l = 1 To .ActiveDocument.Tables.CountWith .ActiveDocument.Tables(l)For i = 1 To .Rows.Counts = Replace(.Cell(i, 1).Range.Text, Chr(7), ＂＂)s = Left(s, Len(s) - 1)If d.Exists(s) Then brr(m + d(s), 2) = Replace(.Cell(i, 2).Range.Text, Chr(7), ＂＂)NextFor i = 1 To 8brr(m + i, 1) = a(i)NextEnd Withm = m + 9Next.ActiveDocument.Closef = DirLoop.QuitEnd WithSet MyWord = NothingActiveSheet.UsedRange.ClearContents[a1].Resize(m, 2) = brrEnd Sub

vb中如何用shell函数调用word和excel

Shell 函数 执行一个可执行文件，返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。

语法 Shell(pathname[,windowstyle]) Shell 函数的语法含有下面这些命名参数： 部分 描述 pathname 必要参数。

Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。

Windowstyle 可选参数。

Variant (Integer)，表示在程序运行时窗口的样式。

如果 windowstyle 省略，则程序是以具有焦点的最小化窗口来执行的。

windowstyle 命名参数有以下这些值： 常量 值 描述 vbHide 0 窗口被隐藏，且焦点会移到隐式窗口。

VbNormalFocus 1 窗口具有焦点，且会还原到它原来的大小和位置。

VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示。

VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。

VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。

VbMinimizedNoFocus 6 窗口会以一个图标来显示。

而当前活动的的窗口仍然保持活动。

说明 如果 Shell 函数成功地执行了所要执行的文件，则它会返回程序的任务 ID。

任务 ID 是一个唯一的数值，用来指明正在运行的程序。

如果 Shell 函数不能打开命名的程序，则会产生错误。

注意 缺省情况下，Shell 函数是以异步方式来执行其它程序的。

也就是说，用 Shell 启动的程序可能还没有完成执行过程，就已经执行到 Shell 函数之后的语句。

vb引用中没有Microsoft Excel 12.0 Object Library 怎么回事

首先添加microsoft common dialog controls 6.0控件代码Private Sub Command1_Click()CommonDialog1.DialogTitle = ＂另存为＂CommonDialog1.Filter = ＂Woed|*.doc|文本文件|*.txt|所有文件|*.*＂CommonDialog1.ShowSaveIf Len(CommonDialog1.FileName) = 0 Then Exit SubFileCopy ＂c:\123.doc＂, CommonDialog1.FileNameMsgBox ＂复制成功＂End Sub