如何用万德把国债到期收益率链接在excel

Question

如题所述

Answer 1

用宏命令。
Sub abc()
Dim App, WrdDoc, Mypath As String, StrA As String, StrB As String
Mypath = ThisWorkbook.Path & "\aaa.doc" '请修改实际储存路径！
Set App = CreateObject("Word.Application") '用Set关键字创建Word应用成序对象！
App.Visible = True'根据实际情况修改是否可见
Set WrdDoc = App.Documents.Open(Mypath) '打开这个Word文件！
StrA = WrdDoc.Tables(1).Cell(1, 2).Range.Text ' 你要的第一个内容：第一行，第二列
StrB = WrdDoc.Tables(1).Cell(2, 2).Range.Text ' 你要的第一个内容：第二行，第二列
WrdDoc.Close ' 关闭文件
Set App = Nothing
Debug.Print StrA
Debug.Print StrB
End Sub