Страницы: 1
RSS
Ранее Workbooks.Open работал ((
 
Ранее 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 (не использовал кнопку <...>)
 
Сергей Ким, код следует оформлять соответствующим тегом. Ищите такую кнопку <...> и исправьте своё сообщение.
 
Цитата
Юрий М написал:
Сергей Ким , код следует оформлять соответствующим тегом. Ищите такую кнопку   и исправьте своё сообщение.
спасибо за подсказку
 
Иногда публикация способствует внутреннему озарению. Прошел эту строку введением проверки открытости файла OpenFile. Спасибо! ))
 
Цитата
Сергей Ким написал:
Иногда публикация способствует внутреннему озарению.
Такое частенько случается: зададут вопрос - и тут же САМИ находят ответ )
Страницы: 1
Наверх