Question

助怎样利用excel宏提取word中指定的数据

乞助：excel中有一系列数据想经由过程宏将其复制到word指定地位然后再回到excel界面。 或者将word里的数据复制到excel指定地位。求响应VBA代码异常感激啊啊啊Sub product()Dim xlAppDim xlBookFileDir = \"C:\\数据\\1.xls\"On Error Resume Next Set xlApp = GetObject(, \"Excel.Application\") \'断定Excel是否打开 If Err.Number 0 Then Set xlApp = CreateObject(\"Excel.Application\") \'创建EXCEL对象 xlApp.Visible = False \'设置EXCEL对象弗成见 End If Err.Clear Set xlBook = xlApp.Workbooks.Open(FileDir) \'打开工件簿文件接下去该怎么写了吗假如excel中range(\"A1\")=123怎么把它复制到word里吗吗 End Sub

Answer 1

要excel读取和写入word有一个前提,必须是word的某个表格中写或者读,不然宏没办法准肯定位.

Answer 2

excel是不克不及打开word的格局不支撑即使打开也是乱码可以用txt文件替代word