فروم بچه های تولز

---

dim filetoopen as variant
dim openbook as workbook
application.screenupdating = false
filetoopen = application.getopenfilename(title:="browse for your file & import range", filefilter:="excel , *.xlsx; *.xlsm; *.xlsa; *.xls")
if filetoopen <> false then
set openbook = application.workbooks.open(filetoopen)
openbook.sheets(1).range("a1:a50").copy
thisworkbook.worksheets("selectfile").range("a1"). pastespecial xlpastevalues
openbook.close false

end if
application.screenupdating = true

---