Ранее Workbooks.Open работал. После долгого перерыва вернулся к макросам, и почему то не идет. Прошу помощи в строке "Set BookSource = Workbooks.Open(sFileSourcePath & sFileSourceName)". Там находит ошибку "Run-time error '1004': Method 'Open' of object 'Workbooks' failed"
Код
Sub OprosFiles()
'Опрос файлов в папке
Dim BookSource As Workbook
Dim ListSource As Worksheet
Dim ListTarget As Worksheet
Dim iRowSource As Integer
Dim iRowTarget As Integer
Dim sFileSourcePath As String
Dim sFileSourceName As String
Dim sFileNameBrief As String 'переменная для имени файла
Set ListTarget = ActiveSheet
'Set ListTarget = ThisWorkbook.ActiveSheet
If ThisWorkbook.ActiveSheet.Cells(2, 1) <> "" Then
Call MsgBox("Перечень файлов уже создан!", vbCritical)
Exit Sub
Else
iRowTarget = 2
sFileSourcePath = ThisWorkbook.Path
sFileSourcePath = Left(sFileSourcePath, InStrRev(sFileSourcePath, "\"))
sFileSourceName = Dir(sFileSourcePath & "*.xls")
Do While sFileSourceName <> ""
Set BookSource = Workbooks.Open(sFileSourcePath & sFileSourceName)
Set ListSource = BookSource.Worksheets("имя")
ListTarget.Activate
'Записываем код медорганизации
ListTarget.Cells(iRowTarget, 1) = ListSource.Cells(iRowSource, 5)
'Записываем краткое название медорганизации
ListTarget.Cells(iRowTarget, 2) = ListSource.Cells(iRowSource, 4)
'Записываем имя файла медорганизации
ListTarget.Cells(iRowTarget, 3) = sFileNameBrief
iRowTarget = iRowTarget + 1
BookSource.Close (False)
sFileSourceName = Dir
Loop
End If
End Sub
Изменено: Сергей Ким - 04.05.2017 08:35:56(не использовал кнопку <...>)