copying data to another workbook

Option Explicit

Sub copyDataToClosedWorkbook()
    Dim wbTo   As Workbook
    Dim wbFrom As Workbook

    Set wbFrom = ThisWorkbook
    ' prevent the user from seeing the workbook being opened
    Application.ScreenUpdating = False
    'change foldername
    Set wbTo = Workbooks.Open("d:\a.xls", _
                              False, True)
    wbTo.Sheet1.Cells(10, 4).Value = wbFrom.Sheet1.Cells(1, 3).Value
    wbTo.Close True    'save & close
    Application.ScreenUpdating = True
    Set wbTo = Nothing
    Set wbFrom = Nothing
End Sub

this is my code but somehow its giving me an error '438' that the object does not support property (the bold line)

and can i using it on xlsx files ? kindly help

In order for this code to work, you first have to put it in a module.
Second, you are opening it as READ ONLY so you can't change it.
Here is the code I tried and it works:

Option Explicit

Sub copyDataToClosedWorkbook()
    Dim wbTo   As Workbook
    Dim wbFrom As Workbook, asd, qwe

    Set wbFrom = ThisWorkbook
    ' prevent the user from seeing the workbook being opened
    Application.ScreenUpdating = False
    'change foldername
    Set wbTo = Workbooks.Open("c:\a.xls", False, False)
    wbTo.Sheets(1).Cells(10, 4) = wbFrom.Sheets(1).Cells(1, 3)
    wbTo.Close True    'save & close
    Application.ScreenUpdating = True
    Set wbTo = Nothing
    Set wbFrom = Nothing
End Sub

i have made it that this takes place after he hits an update button, now i want that once he hits the update button he cannot now edit/remove the data (say a1:m100)