Question

我想在特定文件中搜索某些关键字。但是当我尝试打开它时，我收到了上述错误。有谁知道如何克服这个错误。

＆＃13;

Function SearchTextFile(strFileName As String, strSearch As String) As Boolean
    Dim strLine As String
    Dim f As Integer
    Dim lngLine As Long
    Dim blnFound As Boolean
    f = FreeFile
    Open strFileName For Input As #f
    Do While Not EOF(f)
        lngLine = lngLine + 1
        Line Input #f, strLine
        If InStr(1, strLine, strSearch, vbBinaryCompare) > 0 Then
            SearchTextFile = True
            blnFound = True
            Exit Do
        End If
    Loop
    Close #f
    If Not blnFound Then
        SearchTextFile = False
    End If
End Function


Sub Macro1()
    Dim inputString As string: inputString = "mux.h"
    Dim filepath As String: filepath = "C:\Users\310217955\Documents\Source Code\SourceCode\HPLED\Hpled6_2547\test.cpp"
    If SearchTextFile(filepath, inputString) Then
            Debug.Print "Found"
        Else
            Debug.Print "Not Found"
        End If 
        
End Sub

＆＃13;

Answer 1

如果代码语法错误或由于没有访问程序的适当权限，通常会发生此错误。

现在关于代码语法的第一部分，我已经仔细检查并测试了样本文件上的代码，并确认您的代码语法正确且运行良好。关于第二部分：当您尝试访问程序但您没有访问权限时，通常会发生此运行时错误75。要解决此问题，请按照以下步骤操作：

单击“开始”按钮，在“搜索”框中键入“msconfig”，然后单击“确定” 然后按ENTER键。
在“常规”标签上，点击“选择性” 启动“，然后选择”清除“加载启动项”复选框“
单击“服务”选项卡，选择“隐藏所有Microsoft服务” 单击底部，然后单击“全部禁用”，然后单击“确定”。
错误消失后，重新启动计算机，然后将计算机设置为正常启动。
点击“开始”按钮，在搜索框中输入“msconfig”，然后按ENTER键。
在“常规”标签上，点击“正常” 启动“以”加载所有设备驱动程序和服务“，然后单击 “OK”。
重新启动计算机。

（来源：www.regmender.com）希望它能解决你的问题。一般要点是路径可访问，安全设置启用文件打开，系统中没有病毒感染。还要确保不检查正在访问的文件和文件夹的只读和隐藏。如果是，请取消选中这两个框，单击“应用”，然后单击“确定”。

HTH

。

打开要读取的文件时，路径/文件访问错误（错误75）

1 个答案: