Excel VBA 7.1 comdlg

这适用于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安装，但是考虑使用Apdio.GETSaveFieleMe/GoOpenFrimeNeNe:此类：

私有子CMD浏览\单击 Dim promptResult作为变量 promptResult=Application.GetSaveAsFilenamefile.xml，xml文件*.xml，*.xml，1，将导出文件另存为。。。 如果VarTypepromptResult=vbBoolean，则退出子提示被取消 txtExportFile.Text=cstrcomptresult 端接头

---

至于VBA无法解析UCase函数，…坏掉的项目引用会发生很多事情：我希望一旦从项目中删除遗留的32位内容，这些问题就会消失。

您正在尝试使用64位VBA主机中不支持的VB6控件。尝试一个32位Excel安装，但是考虑使用Apdio.GETSaveFieleMe/GoOpenFrimeNeNe:此类：

私有子CMD浏览\单击 Dim promptResult作为变量 promptResult=Application.GetSaveAsFilenamefile.xml，xml文件*.xml，*.xml，1，将导出文件另存为。。。 如果VarTypepromptResult=vbBoolean，则退出子提示被取消 txtExportFile.Text=cstrcomptresult 端接头

---

至于VBA无法解析UCase函数，…项目引用被破坏时会发生很多事情：我希望一旦从项目中删除遗留的32位内容，这些问题就会消失。

您可能有一个错误的/丢失的引用。请尝试，请检查工作簿引用并取消勾选将显示“缺失”的错误引用…它表示缺失：Microsoft Common Dialog Control 6.0 SP3Application.GetSaveAsFileName可能是一种不太容易出现问题的方法。您可能有错误/缺失的引用。请尝试，请检查工作簿引用并取消勾选错误的引用，它将显示“缺少”…它表示缺少：Microsoft Common Dialog Control 6.0 SP3Application.GetSaveAsFileName可能是一种不太容易出现问题的方法。这些代码行与取消勾选缺少的引用混合在一起，对我很有效。非常感谢！这些代码行与取消选中缺少的引用混合在一起，对我很有用。非常感谢！