打开文件对话框以获取 Excel

Question

我编写了一些 Word VBA，它采用 Excel 文件并更新 Word 文件中的标签（ActiveX 控件）。唯一的问题是这个 Excel 文件每个月都会更改路径和文件名。我如何添加一个打开文件对话框以便用户选择要使用的 Excel 文件，而不是每个月编辑 2 个变量？

这是我现在拥有的：

Sub Update()
    Dim objExcel As New Excel.Application
    Dim exWb As Excel.Workbook

    PathWork = "C:\My Documents\2015-05 Report\"
    CalcFile = "May2015-data.xlsx"

    Set exWb=objExcel.Workbooks.Open(FileName:=PathWork & CalcFile)
    ThisDocument.date.Caption=exWb.Sheets("Data").Cells(1,1)
End Sub

Answer 1

这是一个简化的宏，它允许用户仅选择启用宏的 Excel。我无法评论之前的答案，因为我没有获得足够的声誉来评论答案。请注意。

Public Sub GetCaptionFromExcel()
    Dim objExcel As New Excel.Application, exWb As Workbook
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Select Macro-Enabled Excel Files"
        .Filters.Add "Macro-Enabled Excel Files", "*.xlsm", 1
        If .Show <> -1 Then Exit Sub

        Set exWb = objExcel.Workbooks.Open(.SelectedItems(1))
        '*** Use the values from excel here***
        MsgBox exWb.Sheets("Data").Cells(1, 1)
        '*** Close the opened Excel file
        exWb.Close
    End With
End Sub

Answer 2

你可以试试这样的

将PathWork 和CalcFile 替换为Dialogbox

With Dialogs(wdDialogFileOpen)
    If .Display Then
        If .Name <> "" Then
            Set exWb = Workbooks.Open(.Name)
            sPath = exWb.Path
        End If
    Else
        MsgBox "No file selected"
    End If
End With

完整的 CODE 应该是这样的

Option Explicit

Sub Update()
    Dim objExcel As New Excel.Application
    Dim exWb As Excel.Workbook
    Dim sPath As String

    '// Dialog box here to select excel file
    With Dialogs(wdDialogFileOpen)
        If .Display Then
            If .Name <> "" Then
                Set exWb = Workbooks.Open(.Name)
                sPath = exWb.Path
            End If
            Set exWb = objExcel.Workbooks.Open(FileName:=sPath)
            ActiveDocument.Date.Caption = exWb.Sheets("Data").Cells(1, 1)
        Else
            MsgBox "No file selected"
        End If
    End With
    Set objExcel = Nothing
    Set exWb = Nothing
End Sub