vba excel - 运行时错误'438'：对象不支持此属性或方法 - Opentextfile

Question

我允许用户选择多个文件并找到其中行数最多的文件。当我运行下面的代码时，我在 Opentextfile 的行上收到“运行时错误'438'。-> txsInput = objFSO.OpenTextFile(FileName, ForReading)

Dim objFSO, txsInput, strTemp, arrLines
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")

Application.ScreenUpdating = False

'set and determine file picker behaviour
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.AllowMultiSelect = True

'Launch file picker, exit if no files selected. Hold Ctrl to select multiple files.
If Not fd.Show = -1 Then Exit Sub


'find longest file
For i = 1 To fd.SelectedItems.Count
    FileName = fd.SelectedItems(i)
    txsInput = objFSO.OpenTextFile(FileName, ForReading)

    'Skip lines one by one
    Do While txsInput.AtEndOfStream <> True
        txsInput.SkipLine ' or strTemp = txsInput.ReadLine
    Loop

    If longestFileLength < txsInput.Line - 1 Then
        longestFileLength = txsInput.Line - 1
        longestFileIndex = i
    End If

    'cleanup
    Set objFSO = Nothing
Next i
Cells(headerOffset, 20) = "Length" & longestFileLength
Cells(headerOffset, 21) = "index" & longestFileIndex

Answer 1

快速修复（只是为了避免错误）：

Dim objFSO, txsInput As Object, strTemp, arrLines

和

Set txsInput = objFSO.OpenTextFile(Filename, ForReading)

---

正常修复 - 正确声明变量，在顶部使用Option Explicit，然后声明以下变量：

• fd
• 我
• 文件名
• 最长文件长度
• 最长文件索引
• headerOffset

如果你幸运的话，你的下一个错误会在这里：

Cells(headerOffset, 20) = "Length" & longestFileLength

因为headerOffset 的值是0。如果你在行前写headerOffset = 1，你会避免它。