word vba 如何通过打开对话框获得打开文件名

2025-03-28 11:54:32

推荐回答（5个）

回答1：

1 遍历已经打开的word对象的文件名，如果跟你要打开的一致，那就是已经打开了。
2 打开新文件，监控打开新文件时word的提示，如果有文件已打开的提示，那也是已经打开了

回答2：

使用GetOpenFilename即可，filenames即是文件的全路径带文件名称。

Sub ass2()
    filenames = Application.GetOpenFilename("所有文件 (*.*), *.*", 0, "选定文件", , False)
    MsgBox filenames
End Sub

如果仅仅只需得到文件的名称，不带路径。那么用这个：

Sub test2()
    filenames = Application.GetOpenFilename("所有文件 (*.*), *.*", 0, "选定文件", , False)
    If filenames <> False Then
        fname = Right(filenames, Len(filenames) - InStrRev(filenames, "\"))
        MsgBox fname
    End If
End Sub

回答3：

word没有GetOpenFilename这个方法，需要通过excel打开
Set 连接 = CreateObject("Excel.Application")
Dim i
i = 连接.GetOpenFilename("Word文件,*.doc;*.docx;*.docm", FilterIndex:=3)
If i = False Then
'MsgBox "没有选择任何文件！"
其他 = "当前文件"
Else
其他 = i
End If

回答4：

Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
        "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
 
Type OPENFILENAME
     lStructSize As Long
     hwndOwner As Long
     hInstance As Long
     lpstrFilter As String
     lpstrCustomFilter As String
     nMaxCustFilter As Long
     nFilterIndex As Long
     lpstrFile As String
     nMaxFile As Long
     lpstrFileTitle As String
     nMaxFileTitle As Long
     lpstrInitialDir As String
     lpstrTitle As String
     flags As Long
     nFileOffset As Integer
     nFileExtension As Integer
     lpstrDefExt As String
     lCustData As Long
     lpfnHook As Long
     lpTemplateName As String
End Type


Sub t()
    Dim ofn As OPENFILENAME
    Dim rtn As String 
    ofn.lStructSize = Len(ofn)
    ofn.lpstrFilter = "doc Files (*.doc)" & Chr(0) & "*.doc" & Chr(0)
    ofn.lpstrFile = Space(254)
    ofn.nMaxFile = 255
    ofn.lpstrFileTitle = Space(254)
    ofn.nMaxFileTitle = 255
    ofn.lpstrInitialDir = "C:"
    ofn.lpstrTitle = "打开文件"
    ofn.flags = 6148 
    rtn = GetOpenFileName(ofn)    If rtn >= 1 Then
        MsgBox ofn.lpstrFile
    Else
        MsgBox "Cancel Was Pressed"
    End If
End Sub

回答5：

楼主可能说的是InlineShapes，这个是没有name属性，如果不是InlineShapes，那么只有ShapeRange了

最新问答

我是种植水果之类的，微信名字叫什么好？

拖拉机电池正负接反烧线还有别的吗

华为荣耀一体机进水电源键失灵，修的话会不会很贵

硅酸在制备过程利用了什么原理？如何证明碳酸的酸性比硅酸强？

有人了解南京长峰航天电子科技有限公司硕士生待遇如何吗？谢谢

近红外光谱在什么领域应用多？

老年人年审在手机上怎么操作

70岁驾驶证体检新规定？

为什么称《红楼梦》是我国古典长篇小说中最杰出的作品

我对孔子教育思想的认识