本篇经验将和大家分享，在EXCEL的VBA中，如何编写在WORD文档表格中写入数值的代码！
方法/步骤
-
1
在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!
-
2
会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！
-
3
会弹出模块编辑窗口！
-
4
在模块编辑窗口输入以下代码：
Sub 在word表格中写入数据()
Dim wdapp As Object
Set wdapp = CreateObject("word.application")
md = "f:\销售登记表.dotx"
wdapp.Documents.Add (md)
wdapp.Visible = True
wdapp.Documents(1).Tables(1).Range.Cells(2).Range = "产品编号"
Set wdapp = Nothing
End Sub
-
5
按键盘上的F8键，来一步步的运行一下，顺便检查一下我们编写的代码是否正确！
-
6
顺利的运行完毕后，数据成功写入word表格中。
END
经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。
作者声明：本篇经验系本人依照真实经历原创，未经许可，谢绝转载。
展开阅读全部
文章评论