究竟是什么 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 究竟是什么

共有2179人关注过本帖树形打印复制链接主题：究竟是什么

hbhb

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00

究竟是什么

Post By：2017/6/22 13:33:00 [只看该作者]

大师：连接Excel2007，就是空表，测试连接都要1秒，是什么原因，如果打开次Excel文件后，测试连接就很快。如果有数据测试连接更慢，同样，如果打开次Excel文件后，测试连接就很快。

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/6/22 14:46:00 [只看该作者]

找台干净的电脑测试有没有问题？

shenyl0211

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：977 积分：6835 威望：0 精华：0 注册：2012/4/2 21:49:00

Post By：2017/6/22 14:50:00 [只看该作者]

Excel是有加载项的，加载项的多少决定了Excel的启动速度，如果所有加载项前面的对勾都去掉，就很快了。

你先测试一下直接启动Excel的速度吧。

hbhb

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00

Post By：2017/6/22 17:22:00 [只看该作者]

连接成功的时间，与不成功的时间。相差3秒。如果10万行的2007，连接成功要19秒。

Dim st As Date = Date.Now

Dim dlg As new OpenFileDialog

dlg.Filter = "Excel文件|*.xlsx"

If dlg.ShowDialog = DialogResult.OK Then

If Connections.TryConnect("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dlg.FileName & ";Extended Properties='Excel 12.0 xml;HDR=yes'") = True

'msgbox("OK")

MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒") 19秒

Else

MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒") 1.5秒

MessageBox.Show("不成功")

End If

Dim st1 As Date = Date.Now

Connections.Add("test","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dlg.FileName & ";Extended Properties='Excel12.0 xml;HDR=yes'"") ‘----20秒----

MessageBox.Show("耗时: " & (Date.Now - st1).TotalSeconds & "秒")

什么玩意？

有点色

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/22 18:04:00 [只看该作者]

10万行的excel文件发上来测试。我上次测试10万行也是瞬间完成。

有点色

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/22 18:12:00 [只看该作者]

真的是秒速

下载信息 [文件大小：1.9 MB 下载次数：2]
点击浏览该文件:全部凭证.rar

Dim dlg As new OpenFileDialog
dlg.Filter = "Excel文件|*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
Connections.TryConnect("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dlg.FileName & ";Extended Properties='Excel 8.0;HDR=yes'")
msgbox("OK")
End If

hbhb

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00

Post By：2017/6/22 19:25:00 [只看该作者]

您的语句少一个判断连接是否成功，不成功当然快了。我说的是保证连接成功的情况下？？？？？

另外，Extended Properties='Excel 8.0 能连接Excel2007版本吗？因为连接不成功所以快了？？？？？？？

有点色

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/22 19:44:00 [只看该作者]

测试没问题，你换台电脑测试吧。

下一主题 >> << 上一主题

主题：究竟是什么