向多工作薄中填入数据

雄鹰2013

在100个工作薄中填入数据要花很长时间，是否有好的方法
Sub 练习()
Dim fso As New FileSystemObject
Dim fd As Folder
Dim fl As File
Dim str As String
Dim wb As Workbook
mypath = ThisWorkbook.Path
t = Timer
' For k = 1 To 100
'     fso.CreateTextFile (fso.BuildPath(mypath & "\练习", "练习" & k & ".xls"))
' Next k
For Each fl In fso.GetFolder(mypath & "\练习").Files
    Application.ScreenUpdating = False
    Workbooks.Open (fl)
    ActiveSheet.[a1] = 10000
    ActiveWorkbook.Close 1
    Application.ScreenUpdating = True
Next fl
MsgBox Format(Timer - t, "0.00秒")
End Sub