【发布时间】:2018-04-25 16:06:10
【问题描述】:
我必须使用 Excel 对 80-100mb 左右的 .csv 文件进行数据分析。为了加快这个过程,我正在尝试创建一个工具来自动化其中的一些过程,但是因为它处理大量数据(大约 500k 行),所以最初尝试读取文件时速度非常慢.
有没有人有任何我可以使用的建议?我目前正在使用一个按钮让用户选择和加载文件。为此,我已将代码放在下面。
Dim ws As Worksheet, fileNm As String, fileName As String
Dim FSO As Scripting.FileSystemObject
Set FSO = New FileSystemObject
Set ws = ActiveWorkbook.Sheets("CSV Data")
fileNm = Application.GetOpenFilename("CSV Files (*.csv),*.csv", , "Please select CSV file...")
If fileNm = "False" Then
Exit Sub
Else
With ws.QueryTables.Add(Connection:="TEXT;" & fileNm, Destination:=ws.Range("A1"))
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True
.Refresh
End With
End If
【问题讨论】: