更改不同的工作簿中的单元格

Question

我试图改变细胞“A6”不同的工作簿的，所以我写了这个代码，但它不工作，我不知道为什么，我尝试了不同的代码，但它仍然无法正常工作，你知道为什么吗？

谢谢

 Sub test()
    Dim wbSource As Workbook
    Dim shCurrency As Worksheet
    Set wbSource = Workbooks("BP19.xls")
    Set shCurrency = wbSource.Sheets("KPI")

       wbSource.shCurrency.Range("A6") = "LC"

End Sub

但是，当我把这个它的工作

 Workbooks("BP19.xls").Worksheets("KPI").Range("A6") = "EUR"

Answer 1

获得wbSource前摆脱shCurrency的。 shCurrency已经指Sheet一个wbSource。

Sub test()
    Dim wbSource As Workbook
    Dim shCurrency As Worksheet
    Set wbSource = Workbooks("BP19.xls")
    Set shCurrency = wbSource.Sheets("KPI") 

    shCurrency.Range("A6") = "LC" 

End Sub