vba excel - 运行时错误 '438' : object doesn't support this property or method - 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 作为对象、strTemp、arrLines

和

Set txsInput = objFSO.OpenTextFile(Filename, ForReading)

<小时/>

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

• fd
• 我
• 文件名
• 最长文件长度
• 最长文件索引
• 标题偏移量

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

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

因为headerOffset的值为0。如果您在该行上写入 headerOffset = 1 ，您就可以避免它。