如何从MS Access打开Excel文件？

问题描述：

我想打开一个Excel文件，在MS Acesss中，我选择使用FileDialogFilePicker。但是，当我选择Excel文件时，“打开”提示变为“确定”，我无法打开它。有谁知道如何解决这个问题？以下是选择文件的工作代码。如何从MS Access打开Excel文件？

Dim f As FileDialog 
Set f = Application.FileDialog(msoFileDialogFilePicker) 
f.Show

谢谢！

您需要创建到Excel的引用。 Dim xl as Excel.Application |设置xl =新的Excel.Application | xl.Visible = True xl.Workbooks.Open（f）'确保在工具>参考中选中了Excel的引用，或者使用迟绑定。 –

再次感谢。这很好。我发布了修改后的代码。 – Chris2015

@ Chris2015你可以将该代码发布在答案中并接受你自己的答案。它在Q＆A格式中带来了一个很好的解决方案。 – Brad

答

下面是最终代码：

Dim f As FileDialog, str As String 
Set f = Application.FileDialog(msoFileDialogFilePicker) 
f.Show 
str = f.SelectedItems(1) 

Dim xl As Excel.Application 
Set xl = New Excel.Application 
xl.Visible = True 
xl.Workbooks.Open (str)

如何从MS Access打开Excel文件？

相关推荐