怎样将csv格式文件转换成excel，急！！！

wuyangltt

单位经常需要处理数据，这次量比较大，我从数据库里导出一个50多万条的表，保存的类型为excel文档的csv格式， 表中的信息包含姓名、电话、区号、地址、订单编号、成交时间等内容。现在需要的把它转换面xls格式的，但是excel最多只有65536行，想请各位老师帮帮忙设计出一个工具，读取csv格式文档，由用户自定义设置抽取的数据区间段，并将该区间段的内容粘贴到自动创建的新表里。希望高手能帮我解决，谢谢！！！

LangQueS

可以用excel2007直接打开该文件。

wuyangltt

那我明天试试，谢谢版主，要是还不行，还望您相助

zhaogang1960

如果数据规范，可用ADO法按照65565行一组导入到2003工作表中

zhaogang1960

请参考：

1. Sub 导入超过65536行数据的csv文件()
   
2.     Dim cnn As Object, rs As Object, SQL$, arr(), i&, m&, sh As Worksheet
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     For Each sh In Sheets
   
6.         If sh.Name Like "第*页" Then sh.Delete
   
7.     Next
   
8.     Set cnn = CreateObject("ADODB.Connection")
   
9.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='text;FMT=DELIMITED';Data Source=" & ThisWorkbook.Path & ""
   
10.     SQL = "select * from csv文件.csv"
    
11.     Set rs = cnn.Execute(SQL)
    
12.     ReDim arr(rs.Fields.Count - 1)
    
13.     For i = 0 To rs.Fields.Count - 1 '写字段名
    
14.         arr(i) = rs.Fields(i).Name
    
15.     Next
    
16.     While Not rs.EOF
    
17.         m = m + 1
    
18.         Sheets.Add(After:=Sheets(Sheets.Count)).Name = "第" & m & "页"
    
19.         [a1].Resize(, i) = arr
    
20.         [a2].CopyFromRecordset rs, 65535
    
21.     Wend
    
22.     rs.Close
    
23.     cnn.Close
    
24.     Set rs = Nothing
    
25.     Set cnn = Nothing
    
26.     Application.ScreenUpdating = True
    
27. End Sub
    

复制代码