Sub tt()
Dim WB As Workbook, shto, shfrom As Worksheet

FilenameToInsert$ = GetFilePath() ' get file name to insert data
If FilenameToInsert$ = "" Then Exit Sub ' if is not exists - exit

Set WB = Nothing: Set WB = Workbooks.Open(FilenameToInsert$, False, False)

If WB Is Nothing Then    '
   MsgBox "файл не открыт" & WB.Name
End If

      WB.Worksheets("лист1").Range("a2") = "WB.Name" & "llllll"
  

Excel.Application.DisplayAlerts = False

'If WB.Saved = False Then
'        WB.Save
'    End If
    
WB.Close SaveChanges:=True


Excel.Application.DisplayAlerts = True
End Sub


Function GetFilePath(Optional ByVal Title As String = "Выберите файл для обработки", _
                     Optional ByVal InitialPath As String, _
                     Optional ByVal FilterDescription As String = "Файлы счетов", _
                     Optional ByVal FilterExtention As String = "*.*") As String
    On Error Resume Next
    InitialPath = ThisWorkbook.Path & "\"
    With Application.FileDialog(msoFileDialogOpen)
        .ButtonName = "Выбрать": .Title = Title:
        .InitialFileName = GetSetting(Application.Name, "GetFilePath", "folder", InitialPath)
        .Filters.Clear: .Filters.Add FilterDescription, FilterExtention
        If .Show <> -1 Then Exit Function
        GetFilePath = .SelectedItems(1)
        folder$ = Left(.SelectedItems(1), InStrRev(.SelectedItems(1), "\"))
        SaveSetting Application.Name, "GetFilePath", "folder", folder$
    End With
End Function


Sub Vvod()
fileToOpen = Application.GetOpenFilename("Файлы Microsoft Exel  (*.xls), *.xls", , titl)
If fileToOpen <> False Then
namefile = fileToOpen
flag = 0
End If
Workbooks.Open Filename:=namefile
End Sub
 
Sub VSave()
Name = "c:Vasja"
fileSaveName = Application.GetSaveAsFilename(Name) fileFilter:="Файлы Microsoft Exel (*.xls), *.xls)"
If fileSaveName <> False Then
    MsgBox 'Save as ' & fileSaveName
ActiveWorkbook.SaveAs Filename:="c:Vasja", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
End If
End Sub