Excel VBA：导入/浏览文件夹中的文件

Question

我担心使用VBA导入/浏览文件。它按预期工作，我可以从文件夹中导入或选择文件。但是，每次我处理所选文件时都会弹出一个对话框（请参见下图）。是否可以删除此对话框？还是因为文件太大而无法处理？

这是我从文件夹中选择文件的代码：

Dim FSO As Object
Dim FD As Object

Set FSO = CreateObject("scripting.filesystemobject")
Set FD = Application.FileDialog(msoFileDialogFilePicker)

'select/browse file in folder path
If FD.Show = -1 Then
    Filename = FD.SelectedItems(1)
    Filename = FSO.getfile(Filename)
End If

txtBoxOld.Text = Filename

谢谢。

Answer 1

设置Application.DisplayAlerts = True有点像将手指伸进耳朵，说我听不到您的声音。问题在于它将使所有警报静音，而不仅仅是您关注的警报。

如果要在子例程结束之前清除剪贴板，请使用Application.CutCopyMode=False，但不会收到错误消息。