|
leooja 发表于 2014-8-29 20:19 
版主大人,不行,提示
另外如果我的csv文件很大,超过6万多行的xls文件限值,是否可转为xlsx格式
编码如 ... - Sub ADO()
- Dim Fso As Object, File As Object, cnn As Object, SQL$, f, p
- Application.ScreenUpdating = False
- p = ThisWorkbook.Path & ""
- Set Fso = CreateObject("Scripting.FileSystemObject")
- Set cnn = CreateObject("adodb.connection")
- cnn.Open "provider=Microsoft.Ace.OLEDB.12.0;Extended Properties =Excel 12.0;Data Source=" & ThisWorkbook.FullName
- For Each File In Fso.GetFolder(ThisWorkbook.Path).Files
- If File.Name Like "*.csv" Then
- f = Replace(File, ".csv", ".xlsx")
- If Fso.FileExists(f) Then Fso.DeleteFile (f)
- SQL = "SELECT * INTO [Excel 12.0 xml;Database=" & f & ";]." & Replace(File.Name, ".csv", "") & " FROM [Text;FMT=Delimited;HDR=Yes;DATABASE=" & p & ";]." & File.Name
- cnn.Execute SQL
- End If
- Next
- Set File = Nothing
- Set Fso = Nothing
- cnn.Close
- Set cnn = Nothing
- Application.ScreenUpdating = True
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|