如何实现在WORD中打开EXCEL文件

在WORD中打开EXCEL的方案中,作为通用讲解,我这里提供给大家两种方案。这种操作虽然有很多的方法,本节利用的两种方案也或许不符合你的编程习惯,但这没有关系,我的教程就是把我认为比较好的应用介绍给大家。读者可以尝试。

如何实现在WORD中打开EXCEL文件

1 利用OPEN语句完成例如,我们要实现上述界面中的第一个按钮"打开报表"。当我们的报告读到这里时,我们只需点击一下这个按钮就可以打开我们事先设置好的文件。我们看下面的代码:

如何实现在WORD中打开EXCEL文件

如何实现在WORD中打开EXCEL文件

Public myfile As String '定义文件中要利用到的EXCEL文件

如何实现在WORD中打开EXCEL文件

Private Sub CommandButton3_Click() '打开文件

Set XLApp = CreateObject("excel.application")

'设置要打开的文件

MYPT = ActiveDocument.Path

myfile = "001 工作表.XLSM"

XLApp.workbooks.Open MYPT & "\\" & myfile

XLApp.Visible = True

mystr = XLApp.Sheets(1).Range("A1").Value

Set XLApp =nothing

End Sub

代码的截图:

代码的讲解:这个过程中我们要实现打开我们指定的文件,这里用了一个myfile变量来表示这个文件,在取得当前路径后,用OPEN语句来实现打开的命令,当然在之前还要实现一下这个应用程序的引用Set XLApp = CreateObject("excel.application"),如果是在其他的应用程序,只需要变更这里就可以实现不同的引用了。

① Set XLApp = CreateObject("excel.application")

设置EXCEL应用程序的引用

② '设置要打开的文件

MYPT = ActiveDocument.Path

取得当前文件的路径,这里要注意将要打开的文件要和当前文件的路径一致。

③ myfile = "001 工作表.XLSM"

设置要打开文件的文件名

④ XLApp.workbooks.Open MYPT & "\\" & myfile

XLApp.Visible = True

打开文件,并使文件可见。

⑤ mystr = XLApp.Sheets(1).Range("A1").Value

这句和本讲的内容没有任何关系,只是给代码人员留出了一句示例,假如我们想提取打开的EXCEL文件中某个单元格的数据到word文档中就可以使用这样的语句了。Mystr就是我们获得的字符串。后续的应用就要看实际需要了。

2 利用shell()函数来完成这项工作关于shell()函数,我在我的第一套教程"VBA代码解决方案"中给大家讲解过,这里再给大家讲解一下:shell(),它既不是工作表函数,也不是api函数,它是vba自带的函数。api是应用程序接口,shell是应用程序和系统之间的桥梁。

它的用法很简单,就是执行一个可执行文件。与开始菜单的运行功能一样。

语法:Shell(pathname[,windowstyle])

pathname 是要执行的程序名,可能还包括目录或文件夹

Windowstyle 表示在程序运行时窗口的样式

常数 值 描述

vbHide        0 窗口是隐藏的,并且焦点被传递给隐藏窗口。

vbNormalFocus   1 窗口拥有焦点,并且恢复到原来的大小与位置。

vbMinimizedFocus   2 窗口缩小为图符并拥有焦点。

vbMaximizedFocus   3 窗口最大化并拥有焦点。

vbNormalNoFocus   4 窗口被恢复到最近一次的大小与位置。当前活动窗口仍为活动窗口。

vbMinimizedNoFocus 6 窗口缩小为图符。当前活动窗口仍为活动窗口。

下面我们看看打开"001 工作表.XLSM",的代码:

Sub mynz()

myfile = Chr(34) & "E:\\NZ\\文章\\06 VBA信息获取与处理\\001工作表.XLSM" & Chr(34)

Shell "excel.exe " & myfile

End Sub

代码截图:

代码讲解:这段代码是非常简单的,将路径和文件名赋给shell函数后就可以实现,需要我们注意的是语句的写法,chr(34)代表的是双引号,需要用双引号将文件名再次括起来,然后这个函数才可以正确的读懂含有空格的文件名,当然不要忘了在excel.exe的后面也要加上空格。

本节知识点回向:上面的两种方案都是可以打开EXCEL文件的,我们在实际的应用中可以选择利用。在本节中我们需要注意下面几个知识点:

① 如何建立应用程序的引用。

② 如何利用OPEN语句打开文件。

③ 如何利用shell函数打开文件。

④ 利用shell函数如何处理文件名中的空格问题。

本节代码参考文件"001 在WORD中激活EXCEL.docm"

在取代OFFICE新的办公软件没有到来之前,谁能在数据处理方面做到极致,谁就是王者。其中登峰至极的技能非VBA莫属!学习VBA是个过程,也需要经历一种枯燥的感觉,如太白诗云:众鸟高飞尽,孤云独去闲。相看两不厌,只有敬亭山。

"水善利万物而不争",绵绵密密,微则无声,巨则汹涌。学习亦如此,知道什么是自己所需要的,不要蜷缩在一小块自认为天堂的世界里,待到暮年时再去做自欺欺人的言论。要努力提高自己,用一颗充满生机的心灵,把握现在,这才是进取。越是有意义的事情,困难会越多。愿力决定始终,智慧决定成败。不管遇到什么,都是风景。看淡纷争,看轻得失。茶,满也好,少也好,不要计较;浓也好,淡也好,其中自有值得品的味道。去感悟真实的时间,静下心,多学习,积累福报。而不是天天混日子,也不是天天熬日子。在后疫情更加严峻的存量残杀世界中,为自己的生存进行知识的储备,特别是新知识的储备。学习时微而无声,利用时则巨则汹涌。

VBA是利用Office实现自己小型办公自动化的有效手段,我记得20年前自己初学VBA时,那时的资料甚少,只能看源码自己琢磨,真的很难。20年过去了,为了不让学习VBA的朋友重复我之前的经历,我根据自己多年VBA实际利用经验,推出了六部VBA专门教程。

第一套:VBA代码解决方案 是VBA中各个知识点的讲解,覆盖绝大多数的VBA知识点,初学必备;

第二套:VBA数据库解决方案 数据库是数据处理的专业利器,教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作,适合中级人员的学习。

第三套:VBA数组与字典解决方案 数组和字典是VBA的精华,字典是VBA代码水平提高的有效手段,值得深入的学习,是初级及中级人员代码精进的手段。

第四套:VBA代码解决方案之视频 是专门面向初学者的视频讲解,可以快速入门,更快的掌握这门技能。

第五套:VBA中类的解读和利用 这是一部高级教程,讲解类的虚无与肉身的度化,类的利用虽然较少,但仔细的学习可以促进自己VBA理论的提高。

第六套教程:《VBA信息获取与处理》,这是一部高级教程,涉及范围更广,实用性更强,面向中高级人员。教程共二十个专题,包括:跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作,剪切板应用、Split函数扩展、工作表信息与其他应用交互,FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。

学习的过程也是修心的过程,修一个平静的心。在代码的世界中,心平静了,心情好了,身体自然而然就好。心静则正,内心里没有那么多邪知邪见,也就没有那么多妄想。利人就是利己。这些教程也是为帮助大家起航,助上我自己之力,我的上述教程是我多的经验的传递,大家可以根据1,3,2,6,5或者是4,3,2,6,5的顺序逐渐深入的逐渐学习。

每一分收获都是成长的记录,怎无凭,正是这种执着,成就了朝霞的灿烂。最后将一阙词送给致力于VBA学习的朋友,让大家感受一下学习过程的枯燥与执着:

浮云掠过,暗语无声,

唯有清风,惊了梦中啼莺。

望星,疏移北斗,

奈将往事雁同行。

阡陌人,昏灯明暗,

忍顾长亭。

多少VBA人,

暗夜中,悄声寻梦,盼却天明。

怎无凭!

分享成果,随喜正能量

本文来自网络,不代表iinz-K站-K站资源下载,最全,最新资源福利立场,转载请注明出处:https://www.iinz.net/71356.php

作者: admin

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注

联系我们

联系我们

0898-88881688

在线咨询: QQ交谈

邮箱: email@wangzhan.com

工作时间:周一至周五,9:00-17:30,节假日休息

关注微信
微信扫一扫关注我们

微信扫一扫关注我们

关注微博
返回顶部