exelde almada problem

[muzum]

:yardim: Private Sub Komut0_Click()
x = InputBox("x i girin", "deneme", "")
y = InputBox("y i girin", "deneme", "")
Klasor = CurrentProject.Path & "\tm.xls"
DoCmd.TransferSpreadsheet acImport, 8, "sayfa4", Klasor, sayfa3, "x:y"


doğrusu nasıl olmalı