VB/VBA利用SQL读取Excel混合数据类型列时出现数据丢失的解决方法

最新推荐文章于 2024-05-20 08:30:00 发布
最新推荐文章于 2024-05-20 08:30:00 发布
阅读量183 收藏
点赞数
分类专栏： Excel 文章标签： excel
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/chineselfb/article/details/134528485
版权

利用VBA合并多个Excel表格时因部分手机号码在合并时丢失，检查发现手机号码列的数据类型是文本与数值混合。通过上网查询的参考文档：

一、Excel数字、文本混合列导入SQL Server出现的问题＆解决办法

二、SQL导入Excel数据时，数字中混有字符将导致数据丢失的解决办法

我的解决方法是Extended Properties使用“IMEX=1”参数，同时修改注册表解除SQL读取前8行确定数据类型的限制，修改注册表如下两项：

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\16.0\Access Connectivity Engine\Engines\Excel]
"TypeGuessRows"=dword:00000000

其中16.0因office版本不同而不同

[HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Jet\4.0\Engines\Excel]
"TypeGuessRows"=dword:00000000
 

chineselfb
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
VB实现Excel数据导入SQL Server方法解析.pdf
09-19
VB实现Excel数据导入SQL Server方法解析.pdf
vb读取Excel数据
09-26
对于样本行数（列数）小于10的，可将Excel表格中的数据全部显示在VB窗体上，如对于有大数据需要显示，不建议使用该源代码。
Visual-Basic.rar_VB访问寄存器_vb读取plc数据_西门子S7200
07-15
在vb中利用上位机读取西门子s7200 plc里的寄存器数据
vb.net读取写入EXCEl的终极方法-NOPI。
chinaherolts2008的博客
12-11 1115
据我浅薄的知识，之前只知道两种操作excel的方法： 一。ODBC操作excel 看下图： 1.ODBC 由于初期连接不同的数据库通过vb.net教程各种不同的API，ODBC就是将各种不同的API封装成统一的接口。当sql语句进入接口时驱动器管理器会判断将他们送入对应的驱动器（driver），由对应的驱动将sql语句送入对应的数据库。 缺点：不同版本的excel，需要添加不同的ODBC数据源。 2.OLEDB与ODBC OLEDB：一个基于COM（Componet Object Model，DOS可执行
Excel VBA简单使用——数据缺失处理
weixin_34010566的博客
06-12 398
VBA(Visual Basic for Applications)是VB的一种宏语言。用来扩展应用程式的功能。特别是Microsoft Office软件。 转载请注明原文地址：http://blog.csdn.net/ts_dchs/article/details/50318345 1 使用原因 在处理传感器数据文件的时候。有些节点有丢包严重的现象。这样就会产生时间的累...
vb.net程序直接读取Excel文件内容
一路向北
07-23 8300
Public Function ExcelToDataTable_Copy(ByVal xlsFilaName As String, ByRef ErrMsg As String) As DataTable Try Dim SheetName As String Dim dt As DataTable
【VB6|第23期】原来Jet.OLEDB也可以读取新版.xlsx的Excel文件
Commas的博客
08-11 595
上期文章《【VB6|第22期】用SQL的方式读取Excel数据》介绍了通过第三方库（Jet.OLEDB读取Excel数据，读取了旧版.xls格式的Excel文件，对于新版我们留下了一个伏笔。或许有人会建议考虑使用提供程序来读取新版.xlsx格式的Excel文件。但是安装额外的程序，然后又因为Excel程序位数与额外程序位数等等兼容性问题，再调试来调试去的，显然对于用户来说不太友好，而且个人感觉很麻烦，所以本文不对此话题进行展开讨论。本文主要讲解如何用Jet.OLEDB来读取新版.xlsx格式的。
VB6.0 读取Excel文件并返还数据集RecordSet
weixin_34268310的博客
12-16 403
读取Excel文件并返还数据集RecordSet 该方法适用于.xls,.xlsx类型的文件 读取Excel文件的Function： 1 '取得数据集 2 Function getRecordSetForExcels(sFilePath As String, _ 3 sTable...
VB打开Excel文件
驽马十驾 才定不舍
03-05 1万+
(1)vb打开Excel       用EXCEL对象读取EXCEL文件中数据.然后通过ADODB连接SQL进和导入     下面是EXCEL对象的详解 1 前言     做为一种简捷、系统的 Windows应用程序开发工具，VB具有强大的数据处理功能，提供了多种数据访问方法，可以方便地存取Microsoft SQL Server、Oracle、XBase等多种
【VB6|第22期】用SQL的方式读取Excel数据
Commas的博客
08-07 1644
是广泛使用的电子表格软件, 在VB6中，读取Excel数据是常见的任务，可以用于数据处理、信息展示等。本文将介绍通过第三方库（Jet.OLEDB读取Excel数据，话不多说，直接上教程。
vb/vba引用excel无法退出excel进程的解决方法
08-27
vb/vba 引用excel对象后通过 xlapp.quit set xlapp=nothing 无法关掉excel进程的解决方法
一种利用VB将SQL Sever数据库数据生成excel报表的方法.pdf
09-19
一种利用VB将SQL Sever数据库数据生成excel报表的方法.pdf
vb.net对EXCEL进行读写，保姆级教程
HEIMENGER的博客
01-24 1万+
保姆级步骤 1.在桌面创建一个.xls或.xlsx的Excel表格，将其命名为ReadExcelTest，创建好文件后右键选择属性，会出现以下界面，将位置记录 2.创建一个VB.WPF应用程序项目，将其命名为：WpfApp-Read-write_Excel 3.在创建好的界面中添加Button控件（选中Button拖动到“2”的位置） 4.双击Button控件，进入程序编辑界面 这里驱动的是Button点击事件 5.在右侧解决方案，选中项目，右键添加引用 6.在.NET中选择标号“1”的引用 7
VB6.0 读取Excel2010简单方法(附源码和注释,可伸手)
Arling_的博客
06-16 4351
添加一个按钮和CommonDialog控件 如下图 工程引用如下图 源代码: Private Sub Command1_Click() Dim sourceFilePath As String Me.CommonDialog1.Filter = "Excel (*.xls;*.xlsx)|*.xls;*.xlsx|" '过滤文件 Me.CommonDialog1.FilterIndex = 2 Me.CommonDialog1.ShowOpen
VBA多个WORD文档表格数据写入到EXCEL中
jjxworld的专栏
01-05 3774
Brr(m, 4) = "'" + Application.Clean(.Cell(1, 6).Range) '出生年月将word表格第1行第6列民族的数据存入当前工作表的D列。Worksheets("Sheet1").Range("A5").Resize(m, UBound(Brr, 2)) = Brr 'Sheet1 A列4行单位格开始写入数据。Brr(m, 18) = "'" + Application.Clean(.Cell(6, 4).Range) '身份证号码。
VB 数据库如何读取本地Excel表并将数据存入到数据表中
a_waste_only的博客
01-10 525
【代码】VB 数据库如何读取本地Excel表并将数据存入到数据表中。
【VBA研究】用SQL语句读取EXCEL数据例程
热门推荐
驽马十驾 才定不舍
07-24 1万+
作者：iamlaosong Excel工作表中的数据，可以直接处理，不过如果想快的话最好读入到数组处理。前面说过读入数组可以循环读取，也可以直接给数组赋值读取。虽然这个方式速度快，但只适合读取连续的列，对于分开的列，这种方法不可行，不过可以用SQL语句读取到记录集中，然后对记录集进行处理，看下面例程： Sub tt() Dim cnn2, rst2, cmd As Object
VBA-自定义面板，使用SQL查询Excel数据
me_to_007的博客
04-28 4745
自定义面板功能，打开任意一个工作簿，输入sql语句对excel进行数据查询
自建公式，VBA在Excel中轻松获取反义词
最新发布
BeijixingVBA的博客
05-20 447
自建公式，VBA在Excel中轻松获取反义词。
vb.net利用ado读取excel
01-02
使用VB.NET利用ADO读取Excel文件可以分为以下几个步骤： 1. 首先，需要引用ADO.NET和Excel的相关命名空间，如： ```vb.net Imports System.Data.OleDb ``` 2. 创建一个Connection对象，指定Excel文件的连接字符串，如： ```vb.net Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\路径\文件名.xlsx;Extended Properties=Excel 12.0;") ``` 其中，Provider是指定数据提供程序，Data Source是指定Excel文件的路径和文件名，Extended Properties是指定Excel文件的版本。 3. 打开连接： ```vb.net conn.Open() ``` 4. 创建一个Command对象，指定查询字符串和连接对象，如： ```vb.net Dim cmd As New OleDbCommand("SELECT * FROM [Sheet1$]", conn) ``` 其中，[Sheet1$]是指定要查询的工作表名称。 5. 创建一个DataAdapter对象，并使用Command对象填充DataSet，如： ```vb.net Dim da As New OleDbDataAdapter(cmd) Dim ds As New DataSet() da.Fill(ds) ``` 这样就可以将Excel中的数据填充到DataSet中。 6. 循环遍历DataSet中的数据，如： ```vb.net For Each row As DataRow In ds.Tables(0).Rows Dim value1 As String = row(0).ToString() '获取第一列的值 Dim value2 As String = row(1).ToString() '获取第二列的值 '依此类推，可以获取其他列的值 Next ``` 7. 关闭连接： ```vb.net conn.Close() ``` 使用以上步骤，就可以通过ADO.NET读取Excel文件中的数据。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值