VBA建立ADO连接后读取数据异常，无法显示数据，请教高手

xiaodao90

执行vba程序，建立ado连接后，无法导入数字，结果是很奇怪的短横线‘-’，中文倒是可以导入成功
但是打开要导入的excel后，数字就可以导入成功，不知道是什么原理，有没有大神帮忙解答一下。

VBA:
Private Sub 插入数据_Click()
           Set Cnn = CreateObject("adodb.connection")
           Cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;hdr=yes';data source=D:\请教高手\B1.xlsx"
           Sql = "select * from [sheet1$b4:n] where 类别 = " + "'" + "销售收入" + "'"
           Cells(7, 5).CopyFromRecordset Cnn.Execute(Sql)
End Sub


未打开B1.xlsx前结果和打开B1.xlsx后结果如图。

abc123281

不明白 你想要干什么
下面的代码仅供参考  自己可以对照修改
Sub 插入数据()
Set cnn = CreateObject("adodb.connection")
mypath = ThisWorkbook.Path & "\"
myname = Dir(mypath & "B1.xlsx")
cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;hdr=yes';data source=" & mypath & myname
Sql = "select * from [sheet1$b4:n] where 类别 = '销售收入'"
Range("e10").CopyFromRecordset cnn.Execute(Sql)
cnn.Close
Set cnn = Nothing
End Sub

abc123281

请教高手123.rar (23.25 KB, 下载次数: 5)

2018-8-29 11:32 上传

点击文件名下载附件

xiaodao90

我解释一下我上传附件的两个图。
我的目的是通过ado连接在不打开excel工作簿B1的情况下进行导入，但是在导入的时候，本应显示是数字的地方是短横线。
但是这个情况在我打开excel工作簿B1后，神奇的消失了. 运行vba程序后就可以进行导入，导入的数字也是正常的。非常奇怪。因为我需要同一时间导入30个工作簿，不能一一打开进行导入，所以我就想知道为什么我需要打开工作簿才能得到正确的数字。

魂断蓝桥

b1 表格中的单元格式是自定义，要想实现你的功能
表格中的值改成常规

xiaodao90

多谢蓝版！这样可以实现功能，
有没有不改结果的方法，因为数列的内容格式是定义好的，显示的是百万。

zopey

Sub 按钮2_Click()
Workbooks.Open (ThisWorkbook.Path & "\B1.xlsx")

Set cnn = CreateObject("adodb.connection")
cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;hdr=yes';data source=" & ThisWorkbook.Path & "\B1.xlsx"

ThisWorkbook.Activate
Sql = "select * from [sheet1$b4:n]"
Cells(7, 5).CopyFromRecordset cnn.Execute(Sql)

Workbooks("B1.xlsx").Close False
End Sub

xiaodao90

因为文件较多，所以挨个打开的话比较慢，所以用ado的目的就是在不打开工作簿的条件下获取数据

zopey

xiaodao90 发表于 2018-8-29 21:06
因为文件较多，所以挨个打开的话比较慢，所以用ado的目的就是在不打开工作簿的条件下获取数据

“外部表不是预期的格式”  错误
1、要么修改数据源的 单元格格式；
2、要么打开工作表查询。

魂断蓝桥

xiaodao90 发表于 2018-8-29 15:39
多谢蓝版！这样可以实现功能，
有没有不改结果的方法，因为数列的内容格式是定义好的，显示的是百万。

我没有找到导入时可以自定义的数据类型方法。