主要代码为：
Sub test()Set exapp = CreateObject("excel.Application")exapp.Visible = TrueSet xlsbook = exapp.Workbooks.Open("C:\ex.xls")xlsbook.workSheets("sheet1").Rows("3:44").CopySelection.PasteEnd Sub
