Ниже приведенный код у меняработал с 1 файлом, но как только открыл 2, у меня стало появляться сообшение о сохранении компии
Код ниже:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
Sub FileToInsert() ' function to change data
Dim WBto, WBfrom As Workbook, shto, shfrom As Worksheet
Dim xlAp As New Excel.Application
FilenameToInsert$ = GetFilePath() ' get file name to insert data
FilenameRVPS$ = GetFilePath()
If FilenameToInsert$ = "" Or FilenameRVPS$ = "" Then Exit Sub ' if is not exists - exit
MsgBox ("äàííûå áóäóò ñêîïèðîâàíû èç ôàéëà" & FilenameToInsert$ & " â ôàéë " & FilenameRVPS$)
Set WBto = Nothing: Set WBto = xlAp.Workbooks.Open(FilenameToInsert$, False, True)
xlAp.Visible = False
Set WBfrom = Nothing: Set WBfrom = xlAp.Workbooks.Open(FilenameRVPS$, False, True)
xlAp.Visible = False
If WBto Is Nothing Then ' íå óäàëîñü îòêðûòü ôàéë
MsgBox "Íå óäàëîñü îòêðûòü ôàéë " & FilenameToInsert$
End If
If WBfrom Is Nothing Then ' íå óäàëîñü îòêðûòü ôàéë
MsgBox "Íå óäàëîñü îòêðûòü ôàéë " & FilenameRVPS$
End If
WBto.Worksheets("Ëèñò1").Range("A2") = WBfrom.Worksheets("Ëèñò1").Range("A5")
WBto.Worksheets("Ëèñò1").Range("B5") = WBto.Name
xlAp.Workbooks.Application.DisplayAlerts = False
xlAp.DisplayAlerts = False
WBto.Application.DisplayAlerts = False
WBfrom.Application.DisplayAlerts = False
WBto.Close savechanges:=True
WBfrom.Close savechanges:=False
xlAp.Workbooks.Application.DisplayAlerts = True
xlAp.DisplayAlerts = False
End Sub
