VBA运行时错误1004方法对象工作簿的打开文本失败 – 一个表中有两个脚本

我正在从一个button，从文件夹中获取文件的工作表，当我点击其中一个文件（select具有该值的单元格），并使用第二个function在另一个Excel中打开该文件（并在这里做简单的更改）。 这两个代码在独奏列表中工作正常，但Workbooks.opentext中一起出现错误。

第一部分 – 将文件加载到Excel中列出

Dim FSO2 As Object Dim NalezenoF2 As Long Dim NalezenoS2 As Long aktivni = ActiveCell.Value C1 = Range("C1").Value2 adresa = C1 + aktivni Set FSO2 = CreateObject("Scripting.fileSystemObject") Set Start2 = FSO2.getfolder(adresa) Set subfold2 = Start2.subfolders For Each fi In subfold2 On Error Resume Next NalezenoF2 = Range("c:c").Find(what:=fi.Name, lookat:=xlWhole).Row If Err.Number = 91 Then Cells(Cells(65000, 3).End(x1Up).Row + 1, 3) = fi.Name End If On Error GoTo 0 Next fi For Each si In Start2.Files On Error Resume Next NalezenoS2 = Range("a:a").Find(what:=si.Name, lookat:=xlWhole).Row If Err.Number = 91 Then Cells(Cells(65000, 3).End(xlUp).Row + 1, 3) = si.Name End If On Error GoTo 0 Next si 

和第二个脚本，从标记的单元格打开文件 – 两个脚本链接到C1其中si地址到文件 – C：… –

  Dim aktivni2 As Variant aktivni2 = ActiveCell.Value C1B = Range("C1").Value2 adresa2 = C1B + aktivni2 ChDir ActiveSheet.Range("c1").Value Workbooks.OpenText aktivni2, Origin:= _ 852, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _ , Space:=False, Other:=False, FieldInfo:=Array(1, 1), _ TrailingMinusNumbers:=True ActiveWindow.SmallScroll Down:=-3 Columns(1).Select Selection.NumberFormat = "00000000" Range("A1").Select 

感谢帮助