ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2670|回复: 8

word VBA中是否有类似excel中Application.GetOpenFilename的函数

[复制链接]

TA的精华主题

TA的得分主题

发表于 2016-1-29 09:13 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
如题,word VBA中是否有能实现excel的Application.GetOpenFilename的开发文件对话框的函数
word VBA中Application中没有GetOpenFilename方法。谢谢。

TA的精华主题

TA的得分主题

发表于 2016-1-30 10:02 | 显示全部楼层
在Word VBA中使用FileDialog对象获得用户文件名。
下面的示例代码来自帮助文件:
Sub Main()

    'Declare a variable as a FileDialog object.
    Dim fd As FileDialog

    'Create a FileDialog object as a File Picker dialog box.
    Set fd = Application.FileDialog(msoFileDialogFilePicker)

    'Declare a variable to contain the path
    'of each selected item. Even though the path is aString,
    'the variable must be a Variant because For Each...Next
    'routines only work with Variants and Objects.
    Dim vrtSelectedItem As Variant

    'Use a With...End With block to reference the FileDialog object.
    With fd

        'Use the Show method to display the File Picker dialog box and return the user's action.
        'The user pressed the button.
        If .Show = -1 Then

            'Step through each string in the FileDialogSelectedItems collection.
            For Each vrtSelectedItem In .SelectedItems

                'vrtSelectedItem is aString that contains the path of each selected item.
                'You can use any file I/O functions that you want to work with this path.
                'This example displays the path in a message box.
                MsgBox "The path is: " & vrtSelectedItem

            Next vrtSelectedItem
        'The user pressed Cancel.
        Else
        End If
    End With

    'Set the object variable to Nothing.
    Set fd = Nothing

End Sub

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-2-1 11:05 | 显示全部楼层
山菊花 发表于 2016-1-30 10:02
在Word VBA中使用FileDialog对象获得用户文件名。
下面的示例代码来自帮助文件:
Sub Main()

非常感谢,这段代码正好是我需要的。

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-2-1 11:07 | 显示全部楼层
fengyuyifeng 发表于 2016-2-1 11:05
非常感谢,这段代码正好是我需要的。

另外,请教一个问题,在苹果mac笔记本上office 2011 VBA用excel读写word文件,我将PC上面的一段代码拷贝过去,结果[Set docApp = New Word.Application]这行代码,报错[ActiveX组建无法创建对象],请问你知道怎么解决吗?
或者有什么其他方法可以用vba,让excel可以读写word文件。
谢谢。

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-2-1 11:10 | 显示全部楼层
山菊花 发表于 2016-1-30 10:02
在Word VBA中使用FileDialog对象获得用户文件名。
下面的示例代码来自帮助文件:
Sub Main()

另外,请教一个问题,在苹果mac笔记本上office 2011 VBA用excel读写word文件,我将PC上面的一段代码拷贝过去,结果[Set docApp = New Word.Application]这行代码,报错[ActiveX组建无法创建对象],请问你知道怎么解决吗?
或者有什么其他方法可以用vba,让excel可以读写word文件。
谢谢。

TA的精华主题

TA的得分主题

发表于 2016-2-1 11:59 | 显示全部楼层
不太明白错误出在哪里。
先检查是否没引用的原因,或者把对象的前期绑定改为后期绑定:
    Dim docApp As Object, WordD As Object
    Set WordD = CreateObject("Word.Document")
    Set docApp = CreateObject("Word.Application")

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-2-1 13:21 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
山菊花 发表于 2016-2-1 11:59
不太明白错误出在哪里。
先检查是否没引用的原因,或者把对象的前期绑定改为后期绑定:
    Dim docApp A ...

我查过,好像是说苹果mac上面不能引用active控件,有什么解决的方法吗?
或者其他的方法呢?

TA的精华主题

TA的得分主题

发表于 2016-2-1 13:40 | 显示全部楼层
如果确定是苹果mac的问题,Sorry!没用过它,没发言权。

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-2-1 15:12 | 显示全部楼层
山菊花 发表于 2016-2-1 13:40
如果确定是苹果mac的问题,Sorry!没用过它,没发言权。

还是很谢谢你帮我解决word那个问题。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2025-1-15 07:36 , Processed in 0.023219 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表