600多M的大文件如何按要求提取所需部分数据

JiuBaiYi

dudebad 发表于 2011-12-20 09:14
用ACCESS导入CSV文件，命名为：数据库.accdb，数据库跟excel放在同一文件夹内

excel 用SQL来查询 (我用下 ...

谢谢。
现在我遇到了这样一个问题。
就是csv数据在access里导入以后，第一列数据都被强制转换成了日期格式，显示为：
#数字!

这是什么问题呢？

JiuBaiYi

dudebad 发表于 2011-12-20 09:14
用ACCESS导入CSV文件，命名为：数据库.accdb，数据库跟excel放在同一文件夹内

excel 用SQL来查询 (我用下 ...

谢谢。
现在我遇到了这样一个问题。
就是csv数据在access里导入以后，第一列数据都被强制转换成了日期格式，显示为：
#数字!

这是什么问题呢？

JiuBaiYi

dudebad 发表于 2011-12-20 09:14
用ACCESS导入CSV文件，命名为：数据库.accdb，数据库跟excel放在同一文件夹内

excel 用SQL来查询 (我用下 ...

谢谢。
现在我遇到了这样一个问题。
就是csv数据在access里导入以后，第一列数据都被强制转换成了日期格式，显示为：
#数字!

这是什么问题呢？

JiuBaiYi

dudebad 发表于 2011-12-20 09:14
用ACCESS导入CSV文件，命名为：数据库.accdb，数据库跟excel放在同一文件夹内

excel 用SQL来查询 (我用下 ...

用access导入csv数据时，第一列的数值被强制转换为日期格式了
显示为：
#数字!

这是什么问题呢？

dudebad

JiuBaiYi 发表于 2011-12-20 10:06
用access导入csv数据时，第一列的数值被强制转换为日期格式了
显示为：
#数字!

请提供模拟附件

JiuBaiYi

dudebad 发表于 2011-12-20 10:33
请提供模拟附件

实验数据如附件所示： test.rar (173.26 KB, 下载次数: 31)

2011-12-20 10:43 上传

点击文件名下载附件

dudebad

JiuBaiYi 发表于 2011-12-20 10:43
实验数据如附件所示：

注意，要加上第一行的标题字段
test(1).rar (108.98 KB, 下载次数: 28)

2011-12-20 11:06 上传

点击文件名下载附件

JiuBaiYi

dudebad 发表于 2011-12-20 11:06
注意，要加上第一行的标题字段

加上第一行的标题字段，第一行是显示了正确的数字。但是第二行还是显示为
#数字!

灰袍法师

dudebad 发表于 2011-12-20 09:14
用ACCESS导入CSV文件，命名为：数据库.accdb，数据库跟excel放在同一文件夹内

excel 用SQL来查询 (我用下 ...

你没有把导入的时间也算在里面，当然是两秒了。。。
加上导入时间，在我的电脑导入楼主格式的161MB数据，要88秒。。。。。。
本来就是读取文件和转换格式最慢，真正的数据计算时间是可以忽略不计的。

如果楼主要多次运行，那么导入数据库比较好(话说回来，楼主的数据是不是本身就数据库导出的吖。。。。。。)
如果对每个新的文件都是只运行一次，那么直接用VBA也方便。

楼主可以在导入的时候指定数据格式

dudebad

灰袍法师 发表于 2011-12-20 16:27
你没有把导入的时间也算在里面，当然是两秒了。。。
加上导入时间，在我的电脑导入楼主格式的161MB数据， ...

不一定要导入ACCESS，直接用表格当做数据库

1. Sub test()
   
2. Dim conn As Object, sql$
   
3. Set conn = CreateObject("adodb.connection")
   
4. conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=yes;';Data Source=" & ThisWorkbook.FullName
   
5. 
   
6. sql = "select * from [test$A1:H" & Sheet1.[A65536].End(xlUp).Row & "] where 第1列 between 32 and 36 and 第2列 between 95and 100"
   
7. 
   
8. Sheet1.Range("j2").CopyFromRecordset conn.Execute(sql)
   
9. conn.Close
   
10. Set conn = Nothing
    
11. End Sub

复制代码