这是针对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中。
您正在尝试使用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位内容从项目中删除，这些引用就会消失。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句