Question

我正在尝试编写一个Excel宏，该宏将允许我将Android平板电脑上.csv文件中的内容添加到桌面上的“主”工作表中。我使用Office.FileDialog来指定要添加到工作表中的.csv（因为文件并不总是位于同一文件夹中）。

我的宏可以很好地处理计算机上的文件，但是当我尝试将其用于Android上的文件时，它将返回

运行时错误“ 1004”：抱歉，找不到随机字符串而不是文件名 .csv。有可能将其移动，重命名或删除吗？

尽管事实是FileDialog可以清楚地找到这些文件，并且可以通过我的桌面打开它们而没有问题。如果我将文件复制/粘贴到桌面上，则宏可以正常打开它们，因此我怀疑这会妨碍Android的运行。

这是我的代码，直到运行时错误为止（仅尝试使用Excel打开文件）：

Sub OpenCSVFile()     
Dim fd As Office.FileDialog 
Set fd = Application.FileDialog(msoFileDialogFilePicker)

With fd
.AllowMultiSelect = False
.Title = "Please select the file."
.Filters.Clear
.Filters.Add "Excel 2003", "*.csv?"

If .Show = True Then
  Filename = Dir(.SelectedItems(1))

End If
End With

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Workbooks.Open (Filename)

Excel FileDialog找不到Android文件（运行时错误1004）

0 个答案: