VBA Excelマクロエラー：1004は、WorkbooFunctionクラスの代替プロパティを取得できません。

Question

テキストファイルで大きな文字列を検索するためにvbaマクロを使用しています。 私はテキストファイルを読んで、比較するテキスト（セルの1つに保存されています）を読んでください。その後、CRLFをCRに置き換えます（保存されたテキストにはCRLFが含まれていないため）。次に比較する。ファイルサイズが小さい場合は正常に動作します。しかし、ファイルサイズが大きいときにエラーを投げます（約50 KBは問題ありません）。 ファイルの最大サイズを推測しますか？

コードの下の部分がエラー投げている

Open LogFilePath For Input As #iFile 
    strFileContent = Input(LOF(iFile), iFile) 
    Close #iFile 
    strFileContent = Application.WorksheetFunction.Substitute(strFileContent, vbCrLf, "") 
    strSearch = Application.WorksheetFunction.Substitute(strSearch, vbLf, "") 
    strFileContent = Application.WorksheetFunction.Substitute(strFileContent, vbTab, " ") 
    If InStr(1, strFileContent, strSearch, vbBinaryCompare) > 0 Then 
    SearchTextFile = "success" 
    Else 
    SearchTextFile = "failed" 
    End If 

任意の推測や提案してください。

Answer 1

エラーは、置換プロパティを参照し、Application.WorksheetFunction.Substituteを使用していることに注意してください。

私は常にVBAで同じ方法で動作するREPLACE機能を使用する傾向があります。

大規模な.txtファイル（20,000行/ 30MB）を処理しても問題はありません。

Answer 2

Substituteは、例えば、セル式で必要に応じてReplaceを使用してコードスニペットに従ってください。

Private Sub CommandButton1_Click() 

Dim LogFilePath As String 
Dim ifile As Integer 

ifile = 1 

LogFilePath = "D:/_working/application-log-file-small.txt" 
strSearch = "Temp Path  :" 

Open LogFilePath For Input As #ifile 
    strFileContent = Input(LOF(ifile), ifile) 
    Close #ifile 
    '--- Show len of file content string ----- 
    MsgBox (Len(strFileContent)) 

    strFileContent = Replace(strFileContent, vbCrLf, "") 
    strSearch = Replace(strSearch, vbLf, "") 
    strFileContent = Replace(strFileContent, vbTab, " ") 

    If InStr(1, strFileContent, strSearch, vbBinaryCompare) > 0 Then 
    SearchTextFile = "success" 
    MsgBox ("success") 
    Else 
    SearchTextFile = "failed" 
    MsgBox ("failed") 
    End If 
End Sub