+ -
当前位置:首页 → 问答吧 → VB 读取 EXCEL 问题

VB 读取 EXCEL 问题

时间:2011-08-29

来源:互联网

Set Conn2 = CreateObject("ADODB.Connection")
  With Conn2
  .Provider = "Microsoft.Jet.OLEDB.4.0"
  .ConnectionString = "Data Source=" & strFile & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1;"""
  .CursorLocation = adUseClient
  .Open
  End With
  Sql = "SELECT * FROM [sheet1$] "
  Set rs = Conn2.Execute(Sql)

读取EXCEL 里面的有一列字段 编码, 里面有字符的取数都没有问题 但是其中 0905 结果是 905 少了一个 0,很多编码 0 开头的取数都丢失第一个字符 0 如何处理呢?

作者: qazzqazz   发布时间: 2011-08-29

EXCEL里指定为字符,在单元格数据前加单引号.

作者: qianjin036a   发布时间: 2011-08-29

在EXCEL中将列设置为“文本”,或者在单元格前加单引号'

作者: Leftie   发布时间: 2011-08-29

在EXCEL 默认类别是特殊 ,如果设置成文本 就变成 905 了,不知道什么原因?

作者: qazzqazz   发布时间: 2011-08-29

因为数据量太大,这类的编码很多,不好修改,有什么办法呢?请详解,谢谢,最好有代码或者其他的方法能读取出来,万分感谢!

作者: qazzqazz   发布时间: 2011-08-29

http://download.csdn.net/source/2341786

作者: Veron_04   发布时间: 2011-08-29

最简单的做法,你直接把他用记事本方式读就是了
CSV格式就是
A,B,C,D
E,F,G,H之类

每行之间用,或别的字分开,多行用回车分开

作者: xiaoyao961   发布时间: 2011-08-29

EXCEL也可以复制粘到记事本中再用软件读,或者直接用EXCEL.APPLICATION直接读取EXCEL中每行每列。

作者: xiaoyao961   发布时间: 2011-08-29

引用 4 楼 qazzqazz 的回复:
因为数据量太大,这类的编码很多,不好修改,有什么办法呢?请详解,谢谢,最好有代码或者其他的方法能读取出来,万分感谢!

虽然丢了前导"0",但关键信息没丢,如果源数据文件不好修改的话,可考虑读出后用format格式化一下

作者: c_cyd2008   发布时间: 2011-08-29