Execl sheet1 复制有关问题

Execl sheet1 复制问题
vb.net
我想再打开
 excelXLS = CreateObject("Excel.Application")
        excelWK = excelXLS.Workbooks.Open(strFieldName)
 excelWS = excelWK.Worksheets(1)
写个循环 循环的长度有多少 就吧sheet1 复制多少 
问下 代码怎么写 sheet1 复制到sheet2 全部复制的是否写起来简单些？ VB.NET
[解决办法]
sheet1.usecell.copy()
sheet2.paste()
[解决办法]
上面答案错了，应该是
sheet1.UsedRange.copy()
sheet2.paste()