Excel VBA 7.1 comdlg

Question

这是针对 VBA 7.1 excel 的宏。我正在尝试将文件导出到某个位置，但它在此部分崩溃。

我遇到的错误是“找不到项目或库”。未找到的引用是“comDlg”。我知道这是一个引用错误。但是，我不确定如何解决它。

Private Sub cmdBrowse_Click()
comDlg.Filter = "XML Files"
comDlg.DialogTitle = "Save Export File As..."
comDlg.ShowSave

txtExportFile.Text = comDlg.Filename

我对 UCase() 函数调用有同样的问题，一个简单的 VBA.UCase() 解决了它。如果您需要更多信息，请告诉我。我相信这个宏/Excel 表是在旧版本上制作的，并被移植到 64 位 Windows 10。

Answer 1

您正在尝试使用 64 位 VBA 主机中不支持的 VB6 控件。尝试安装 32 位 Excel，但考虑使用 Application.GetSaveAsFileName/GetOpenFileName对于这种事情:

Private Sub cmdBrowse_Click()
    Dim promptResult As Variant
    promptResult = Application.GetSaveAsFilename("file.xml", "XML Files (*.xml),*.xml", 1, "Save Export File As...")
    If VarType(promptResult) = vbBoolean Then Exit Sub 'prompt was cancelled
    txtExportFile.Text = CStr(promptResult)
End Sub

至于 VBA 无法解析 UCase函数，...如果项目引用被破坏，就会发生一些疯狂的事情:我希望一旦从项目中删除遗留的 32 位内容，这些就会消失。