运行时错误“70‘’”，拒绝的权限

littlepuppy

从txt文件批量提取到excel中，老是 Open f For Input As #1 这一句“运行时错误“70‘’”，拒绝的权限”，点结束也可以得到想要的结果，有没有什么办法去掉这个错误提示，请各位老是指点一下
Sub 批量提取txt()
    Application.ScreenUpdating = False
    Range("a2:g" & Rows.Count).ClearContents
    a = 2
    Set fso = CreateObject("scripting.filesystemobject")

    Set ff = fso.getfolder(ThisWorkbook.Path)

    For Each f In ff.Files

        If f.Name <> ThisWorkbook.Name Then


            Open f For Input As #1  “运行时错误“70‘’”，拒绝的权限”


            While Not EOF(1)
                Line Input #1, str1

                If str1 > 0 Then

                    Cells(a, 1) = str1


                    a = Cells(Rows.Count, 1).End(3).Row
                    a = a + 1


                End If
            Wend
            Close #1
        End If
    Next f
    Application.ScreenUpdating = True
End Sub

littlepuppy

求老师教我，为什么会报错

lsc900707

littlepuppy 发表于 2017-4-5 22:41
求老师教我，为什么会报错

文件路径不明造成的，你把要导出的文件放在一个文件夹里，重新命名，比如：文件
代码修改如下：
Sub 批量提取txt()
    Application.ScreenUpdating = False
    Range("a2:g" & Rows.Count).ClearContents
    a = 2
    Set fso = CreateObject("scripting.filesystemobject")
    Set ff = fso.getfolder(ThisWorkbook.Path & "\文件\")
    For Each f In ff.Files
        If f.Name <> ThisWorkbook.Name Then
            Open f For Input As #1
            While Not EOF(1)
                Line Input #1, str1
                If str1 > 0 Then
                    Cells(a, 1) = str1
                    a = Cells(Rows.Count, 1).End(3).Row
                    a = a + 1
                End If
            Wend
            Close #1
        End If
    Next f
    Application.ScreenUpdating = True
End Sub

littlepuppy

lsc900707 发表于 2017-4-5 23:01
文件路径不明造成的，你把要导出的文件放在一个文件夹里，重新命名，比如：文件
代码修改如下：
Sub 批 ...

excel本来是和txt文件放到一个文件夹里的，现在把excel拿出来，然后给txt所在文件夹给一个路径就好了，谢谢老师

菜鸟呆瓜求带

我貌似也出现这种问题

聚合丰

怎么解决呢，修改权限吗？

聚合丰

菜鸟呆瓜求带 发表于 2018-3-27 17:14
我貌似也出现这种问题

我也是，不知道怎么解决才好