创建Excel文件及复制数据解决方案

创建Excel文件及复制数据
我现在有一个Excel文件，其中有A，B，C三个Sheet。现在需要分别把A，B，C创建为名为A，B，C的三个Excel文件，每个文件只包含文件名对应的Sheet中的数据。应该怎么操作呀？

------解决方案--------------------------------------------------------
Dim filePath As String
filePath = "D:\新規Microsoft Office Excel 97-2003.xls"

Dim wbk As Workbook
Set wbk = GetObject(filePath)
Dim sht As Worksheet

For Each sht In wbk.Sheets

sht.Copy
ActiveWorkbook.Close SaveChanges:=True, Filename:="D:\" & sht.Name & ".xls"
Next

wbk.Close False
Set wbk = Nothing
------解决方案--------------------------------------------------------
Workbooks(g_file_name).Activate '激活原始数据工作薄
With Workbooks(g_file_name)
With Worksheets("Sheet1")
g_reported_date_befor = .Cells(1, 3).Value
g_reported_date_end = .Cells(1, 5).Value

'复制数据源
.Cells.Select
Application.CutCopyMode = False
Selection.Copy
End With
End With

ThisWorkbook.Activate '激活当前工作薄

'黏贴数据源
Sheets("数据源").Select
Sheets("数据源").Cells(1, 1).Activate
ActiveSheet.Paste