pe如何加载raid驱动:excel高手或编程高手帮忙啊！

'//以下程序在winXP、win98系统,EXCEL2000下测试通过,因数据量较大,建议运行时关闭其它程序.
'//运行条件:
'****关闭所有工作薄,只打开需要处理的工作薄,
'****需要处理的工作表(姑且称之为Sheet1)无合并单元格,
'****工作表Sheet1有且只有第一行为标题行.
'//运行方法:在工作薄VBA代码窗口,插入模块,清除不相干代码,粘贴以下代码,然后可运行
'//运行结果:在原工作薄所在目录,新建若干以员工姓名为文件名的工作薄,且已写入该员工所有数据,但未复制原工作薄格式.
'//建 议:运行前拷贝原工作薄到其它位置作好备份.

Sub 连接()
Dim Fname As String, myPath As String, ziDuan() As String, ziDuanNum As Integer
Fname = "d:\my documents\temp\????.xls" '改为实际路径及待处理工作薄名
myPath = ThisWorkbook.Path
If Right(myPath, 1) <> "\" Then myPath = myPath & "\"
Set conn = CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Fname
conn.Open Driver & DBPath

Set rs = CreateObject("ADODB.Recordset") 'CreateExcelRecordset
Sql = "Select distinct 姓名 From [Sheet1$]" '将Sheet1改为待处理工作表,不要落下$符号
rs.Open Sql, conn, 3, 1
While Not rs.EOF
Workbooks.Add

Set rssj = CreateObject("ADODB.Recordset")
sqlsj = "select * from [Sheet1$] where 姓名 = '" & rs("姓名") & "'" '同上改Sheet1
rssj.Open sqlsj, conn, 3, 1

ziDuanNum = rssj.fields.Count
ReDim ziDuan(ziDuanNum - 1)
For j = 0 To ziDuanNum - 1
ziDuan(j) = rssj(j).Name
Next
Workbooks(2).Sheets(1).Range(Cells(1, 1), Cells(1, ziDuanNum)) = ziDuan() '写入字段名,即顶端标题行

i = 1
While Not rssj.EOF
i = i + 1
For j = 0 To ziDuanNum - 1
Workbooks(2).Sheets(1).Cells(i, j + 1) = rssj(j)
Next
rssj.movenext
Wend
rssj.Close

Workbooks(2).SaveAs myPath & rs("姓名")
Workbooks(2).Close , False
rs.movenext
Wend

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
End Sub

可以用程序解决，可你不给数据我怎么给你程序那