csv文件怎么分为两个excel表

用VBA程序吧，这儿有段程序代码：
Sub 读数据()
Application.ScreenUpdating = False
Set oConn = CreateObject("ADODB.CONNECTION")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & ";Extended Properties=""text;HDR=Yes;FMT=Delimited"""
Set oRS = CreateObject("ADODB.RECORDSET")
oRS.Open "SELECT * FROM XXXX.csv", oConn, 3, 1, 1
While Not oRS.EOF
ActiveSheet.Range("A1").CopyFromRecordset oRS, 65536
Sheets.Add After:=Sheets(Sheets.Count)
Wend
oRS.Close
oConn.Close
Application.ScreenUpdating = True
End Sub
将你的csv文件放在同一目录下，并将文件名称改为xxxx.csv

步骤：
1、打开Excel程序，建一个新工作薄；
2、右击工作表标签，选择查看代码，就打开了VBE窗口；
3、将此段代码复制到代码窗口中；
4、关闭VBE窗口，保存此工作溥(不关闭)；
5、将你的csv文件拷贝到此工作溥路陉之下，并改名为XXXX.csv，
6、按Alt+F8，选择“读数据”程序，点执行

你能说详细些吗?为何要把它拆分成两个EXCEL表?我所知道的是:从WINDOWS的事件日另存为的文件,其扩展名为.csv可以直接用EXCEL打开?