Ошибка компиляции: несоответствие типов - PullRequest
Новая
       23

Ошибка компиляции: несоответствие типов

0 голосов
/ 06 мая 2018

Я получаю ошибку компиляции: несоответствие типа приведенному ниже коду. Не уверен, что проблема в коде. Пожалуйста, помогите и спасибо заранее.

Public Sub TransferTest () 

Dim FiWkb As Workbook
Dim BkWkb As Workbook

'## Open both workbooks first:
Set FiWkb = "C:\Users\60050987\Desktop\FI INSPECTOR PROJECT\FI Inspector Data.xlsx"
Set BkWkb = Workbooks.Open("C:\Users\60050987\Desktop\FI INSPECTOR PROJECT\FI Inspector Data.xlsx")

'Now, transfer values from x to y:
BkWkb.Sheets("PhosData").Range("A2").Value = FiWkb.Sheets("DaysReport").Range("A2")

'Close BkWkb:
BkWkb.Close

End Sub

...