[artemu88]

Прошу прощения, исправило код, но все равно не видит файл как рабочую книгу

Option Explicit
Dim oldRow As Integer
Dim newRow As Integer
Dim lrow_input As Integer, lrow_output As Integer
Dim WB_Input As Workbook
Dim WB_Output As Workbook
Dim WS_Input As Worksheet
Dim WS_Output As Worksheet
Dim Excel As Object, sWBName$, sFullPath As String
Dim sWBName1$, sFullPath1 As String
Dim MyFile

Private Sub Command1_Click()
Set Excel = CreateObject("Excel.Application")
sFullPath = Text1.Text
sWBName = Dir(sFullPath)
sFullPath1 = Text2.Text
sWBName1 = Dir(sFullPath1)
WB_Input = Workbooks(sWBName)
WB_Output = Workbooks(sWBName1)