要先引用 Excel library
dim NewXlApp as Excel.Application '新工作簿New.xls
dim NewXlBook as Excel.Workbook
dim NewSheet as Excel.Worksheet
dim X2 as Excel.Workbook
Set NewXlApp = New Excel.Application
Set NewXlBook = NewXlApp.Workbooks(1)
Set NewSheet = NewXlBook.Worksheets(1)
NewSheet.Activate
NewSeeet.Range("A:A").Select
NewSeeet.Range("A:A").Copy
X2.Select
X2.Paste
Set NewSheet = Nothing
Set NewXlBook = Nothing
Set NewXlApp = Nothing