使用 FileDialog 从 Word 打开 Excel

Question

我想做的是：

• 在我的 Microsoft Word 文档中按一个按钮，它将提示我在文件资源管理器中选择一个文档。
• 选择我的文档，我的 word 文档中的相关字段将被填充。
• 这将根据文档中的信息（月份）进行填充，并使用 Match 函数在选定的 Excel 文档中搜索正确的行/列并返回值。

我被困在下面代码的FileDialog(msoFileDialogFilePicker) 部分。

出于我文档的目的，我无法输入直接文件路径，文件路径需要取自 FileDialog 函数（或类似函数）。

我也试过GetOpenFilename。我不确定如何做到这一点。我的代码当前打开 FileDialog 并让我选择一个文件，但我无法将文件路径传递到我的 colNum1 行。

我得到的错误是 运行时错误“91”。未设置对象变量或 With Block 变量。

我愿意接受建议，非常感谢任何帮助。

Sub KPI_Button()
'
' KPI_Button Macro
Dim objExcel As New Excel.Application
Dim exWb As Excel.Workbook
Dim strFile As String
Dim Doc As String
Dim Res As Integer
Dim dlgSaveAs As FileDialog

Doc = ThisDocument.Name

Set dlgSaveAs = Application.FileDialog(msoFileDialogFilePicker)
Res = dlgSaveAs.Show

colNum1 = WorksheetFunction.Match("(Month)", ActiveWorkbook.Sheets("Sheet1").Range("A2:I2"), 0)

ThisDocument.hoursworkedMonth.Caption = exWb.Sheets("Sheet1").Cells(3, colNum1)

exWb.Close
Set exWb = Nothing
End Sub

Answer 1

尝试指定 Excel 扩展名的对话框：

Sub GetNames()
With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "Excel files", "*.xls*", 1
If .Show = True Then
    If .SelectedItems.Count > 0 Then
    'this is the path you need
    MsgBox .SelectedItems(1)
        Else
    MsgBox "no valid selection"
    End If
End If
End With
End Sub