vba - 如何捕获错误 “File not loaded completely”

Question

我有一个打开文本文件的代码。它包含的行数超过了Excel的限制。手动打开它时，出现提示“文件未完全加载”，但是在宏中时，我看不到提示。

我想做的就是捕捉该错误。即使启用了我的宏的显示警报，仍然不会捕获任何错误。

 On Error Goto catch_err
 ...open text file here
 On Error Goto 0

 catch_err:
   Msgbox err.description

那就是我的代码的结构。

Answer 1

为什么每次点击1M行时就不流式传输文件并移至下一个选项卡？

我为您提供了这些信息，请原谅其中的Citrix产品线(我需要它进行测试，如果您在该环境中，请把它留在这里)。

Sub BigFile()
Dim myFile As String, textline As String, X As Long
'myFile = "\\Client\C$\Temp\YourBigFile.txt" 'Silly Citrix syntax
myFile = "C:\Temp\YourBigFile.txt" 'Normal syntax
Open myFile For Input As #1
Do Until EOF(1)
    X = X + 1
    If X = 1000000 + 1 Then
        Sheets.Add
        X = 1
    End If
    Line Input #1, textline
    Range("A" & X).Formula = textline
Loop
Close #1
End Sub

这样，您就不需要测试错误，因为不会有错误。