• 所有问题

    • 我想在word里的vba中打开另一个word文档,并获取该文档中某表格中的某个单元格中的数据,求代码

    如题所述

    举报该问题
    推荐答案   2013-04-22
    Sub test()
    ‘打开另一个文档

    Documents.Open FileName:="D:\test\test.docx"
    ’让i=新打开的那个文档的表一的第二行第二个单元格

    i = ActiveDocument.Tables(1).Rows(2).Cells(2)
    Debug.Print i
    End Sub
    温馨提示：答案为网友推荐，仅供参考
    相似回答
    如何用vba代码取得word文档中各表格上面一行的文本内容vba如何取word...答：(1)在这部分代码首尾加循环，遍历WORD中的所有表格。这部分只是把第WORD的第1个表格的数据写入EXCEL的代码。(2)修改相应代码。比如WORD中TABLES的序号，读取和赋值的单元格行列号，采用变量表示，在每次循环时增加几。比如，把A1:A10的内容都乘以3:这样办:我们找一个空白的单元格，输入3，选择它，复制...
    如何用VBA读取word表格单元格中的字符答：假设 Word 文档中有这样一个表格 Word VBA 参考代码：Public Sub ReadTableData() MsgBox ActiveDocument.Tables(1).Cell(2, 1).Range.TextEnd Sub 运行效果：
    word vba 如何读取表格中某单元格的数字类型的数据,并参与表达式...答：可以使用VBA，读取Word文档中的所有表格，并把数字类型的单元格读出来计算。下面是示例代码，自己适当改改就可以用了。Dim tbs,tb, rgSet tbs = documents(1).TablesFor t1 = 1 To tbs.Count Set tb = tbs(t1) For i = 1 To tb.Rows.Count For j = 1 To tb.Columns.Count ...
    如何利用vba程序在word中调用excel单元格中的数据答：If wdApp Is Nothing Then '判断word程序是否正在运行 Set wdApp = CreateObject("Word.Application")wdApp.Visible = False blnNoWd = True End If '调用word 文档对象 Set wdDoc = wdApp.Documents(strDocPath)If wdDoc Is Nothing Then Set wdDoc = wdApp.Documents.Open(Filename:=strDoc...
    大家正在搜
    vba如何不打开word进行取数vba打开word文件vba批量打印word文档vba判断word文件是否打开word文档中关闭vbavba打开指定word文件vba处理word文档vba创建word文档vba控制word文档