FileDialog 在某些 excel 版本 VBA 中不起作用答案

【问题标题】：FileDialog does not work in some excel versions VBAFileDialog 在某些 excel 版本 VBA 中不起作用
【发布时间】：2016-11-30 13:43:57
【问题描述】：

我的代码在 2010 版 excel 中正常工作，但在 2013 版中不能。看看吧。

Sub select_strategy()
'Subroutine that lets the user select a strategy table
'
    'Declare local variables
    Dim strategyFileDialog As Office.FileDialog
    'Declare local variables
    Dim intStrategySelection As Integer

    'Initialize global variables
    Call initialize_global_variables

    ' Allows the user to select the strategy table to use
    Set strategyFileDialog = Application.FileDialog(msoFileDialogFilePicker)

    With strategyFileDialog
        .Title = "Select Strategy Table"
        .InitialFileName = ActiveWorkbook.Path
        .AllowMultiSelect = False
    End With

    intStrategySelection = strategyFileDialog.Show  'updates cell only if a file is selected
     If intStrategySelection <> 0 Then
        wsMain.Cells(2, 3) = strategyFileDialog.SelectedItems(1)
     Else
        wsMain.Cells(2, 3) = ""
     End If

End Sub

2013 版本的错误是编译错误：找不到项目或库。任何想法如何解决它？

【问题讨论】：

要么切换到后期绑定，要么更改对 Microsoft Office 15.0 对象库的引用。
你能告诉我怎么做吗？可以写在代码里吗？
stackoverflow.com/questions/9476268/filedialog-doesnt-work

标签： vba

【解决方案1】：

要使用后期绑定，请使用 Excel.Application 对象中的 FileDialog() 函数。 Excel.Application.FileDialog() 是一个为打开的工作簿返回 FileDialog 对象的函数。如果您将变量声明为特定对象，例如 Office.FileDialog，它将创建用于编写代码的 VBA 引用中使用的版本的对象，并且在运行时在不同的 PC 上将忽略其他版本引用并查找声明变量的特定版本。

您可以使用对活动工作簿的引用，但在 Excel 中没有明确需要

Dim strategyFileDialog As Object 
Set strategyFileDialog = ActiveWorkbook.Application.FileDialog(3)

'Filedialog Enumerations: 
'msoFileDialogFilePicker = 3 File picker dialog box. 
'msoFileDialogFolderPicker = 4 Folder picker dialog box. 
'msoFileDialogOpen = 1 Open dialog box. 
'msoFileDialogSaveAs = 2 Save As dialog box

【讨论】：