Получение данных из других книг с использованием групповых символов ОШИБКА - PullRequest
Новая
       21

Получение данных из других книг с использованием групповых символов ОШИБКА

0 голосов
/ 13 марта 2019

Я знаю, что это может быть глупой ошибкой, но я попробовал много способов сделать это, и ни один из них не сработал.

У меня есть этот код для сбора данных из других таблиц Excel в папке и вставки их в основную папку. Проблема возникает, когда я пытаюсь использовать символы подстановки для поиска файлов, часть имени которых является переменной. В приведенном ниже примере имя файла Stock_RTC_17.02.2019.xlsx.

Тем не менее, Excel возвращает ошибку, что файл не найден в папке с кодом ниже, даже если вы видите , он нашел правильное имя файла . Кто-нибудь понял, что я делаю не так?

enter image description here

Sub copytest() 'Procedure for retrieving data from the sourcefiles

    Dim wbTarget, wbSource As Workbook
    Dim target As Object
    Dim pathSource As String
    Dim xlApp As Application

    'path where the data source folders are located (please keep all of them in the same directory)
    pathSource = "C:\Users\vferraz\Desktop\crm stock\RAPOARTE IMPORTANTE\18.02\Rapoarte pentru Handsets\"
    Set wbTarget = ThisWorkbook

    Set xlApp = CreateObject("Excel.Application")
    xlApp.DisplayAlerts = False
    Application.CutCopyMode = False

    'Stock RTC
    Dim FileName As String

    FileName = Dir(pathSource & "Stock_RTC_*.xlsx", vbNormal)

    Set wbSource = xlApp.Workbooks.Open(FileName)

    wbSource.Sheets(1).UsedRange.Copy
    wbSource.Close
    Set target = wbTarget.Sheets("Stock Aberon GW TKR")
    target.UsedRange.Clear
    Range("A1").Select
    target.Paste

End Sub

Ответы [ 2 ]

1 голос
/ 13 марта 2019

Я думаю, что pathSource не является текущим рабочим каталогом, поэтому вы должны написать: 

Set wbSource = xlApp.Workbooks.Open(pathSource & FileName)
1 голос
/ 13 марта 2019

Вы пропускаете путь при попытке открыть книгу. 

Set wbSource = xlApp.Workbooks.Open(pathSource & FileName)
...