请教关于sql自动按条件总表拆分问题

office2008

增加一个代码过程,通过修改注册表的 TypeGuessRows=0,在数据提取后的程序结束之前，恢复TypeGuessRows=８，不知可行不可行？

xchjh

QUOTE:

以下是引用office2008在2008-10-19 1:14:00的发言：
增加一个代码过程,通过修改注册表的 TypeGuessRows=0,在数据提取后的程序结束之前，恢复TypeGuessRows=８，不知可行不可行？

我试了：通过修改注册表：[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Excel] 将TypeGuessRows修改为0，即TypeGuessRows=0，然后再加    字符imex=1

最后如   cn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;imex=1';data source=" & ThisWorkbook.FullName   保存后，重启电脑， 这样就可以了。修改注册表后，不重启电脑好像不行。 但用VBA操作修改注册表的过程不知怎写？

[此贴子已经被作者于2008-10-21 20:34:44编辑过]

figfig

QUOTE:

以下是引用xchjh在2008-10-21 20:32:00的发言：

我试了：通过修改注册表：[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Excel] 将TypeGuessRows修改为0，即TypeGuessRows=0，然后再加    字符imex=1

最后如   cn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;imex=1';data source=" & ThisWorkbook.FullName   保存后，重启电脑， 这样就可以了。修改注册表后，不重启电脑好像不行。 但用VBA操作修改注册表的过程不知怎写？

Sub fig()
Set x = CreateObject("wscript.shell")
 
x.RegWrite "HKLM\SOFTWARE\Microsoft\Jet\4.0\Engines\excel\typeguessrows", 0

End Sub

[此贴子已经被作者于2008-10-21 21:14:34编辑过]

xchjh

QUOTE:

以下是引用figfig在2008-10-21 21:14:00的发言：

Sub fig()
Set x = CreateObject("wscript.shell")
 
x.RegWrite "HKLM\SOFTWARE\Microsoft\Jet\4.0\Engines\excel\typeguessrows", 0

End Sub

太好啦，真的就这样很方便的改了注册表，让typeguessrows = 0了。以后，遇到用sql来拆分总表为几个分表时，就先加你写的过程 sub fig()，然后再在连接字符中加：imex=1 对于这类问题，这是一种满意的解决办法。谢谢figfig老师提供的办法。

xchjh

QUOTE:

以下是引用figfig在2008-10-21 21:14:00的发言：

Sub fig()
Set x = CreateObject("wscript.shell")
 
x.RegWrite "HKLM\SOFTWARE\Microsoft\Jet\4.0\Engines\excel\typeguessrows", 0

End Sub

进一步完善这个过程：

Sub fig()
Set x = CreateObject("wscript.shell")
 m = x.regread("HKLM\SOFTWARE\Microsoft\Jet\4.0\Engines\excel\typeguessrows")
 If m = "0" Then Exit Sub  '当typeguessrows为0时就退出，否则执行以下语句让typeguessrows为0
 x.RegWrite "HKLM\SOFTWARE\Microsoft\Jet\4.0\Engines\excel\typeguessrows", 0

End Sub

[此贴子已经被作者于2008-10-23 22:31:02编辑过]

xchjh

怪啦，我把刚才完善的过程，和加了连接字符imex=0的信息表拿到其它电脑上去试，结果又出问题啦：先运行sub fig()过程，再运行sheet1中的Private Sub CommandButton1_Click()拆分表宏，结果各独立的分表中只有数字能显示，文本则不能显示。请用附件帮忙测试一下，又是什么原因呢？原本以为对这一问题己经是解决了，可换了其它电脑又出问题啦。

  GlKhel2n.rar (18.14 KB, 下载次数: 14)

2008-10-24 22:28 上传

点击文件名下载附件

[此贴子已经被作者于2008-10-24 22:29:14编辑过]

figfig

代码里有个STOP

[em05]

xchjh

QUOTE:

以下是引用figfig在2008-10-24 22:04:00的发言：

代码里有个STOP

我删了stop 重发附件了，请测试，谢谢。

koma

绕了大半天，终于找到根源所在：
按照某楼高手的注册表代码（这里是excel2007）：
Set x = CreateObject("wscript.shell")
x.RegWrite "HKLM\SOFTWARE\Microsoft\Office\12.0\Access Connectivity Engine\Engines\Excel\TypeGuessRows", 0

结果是会出错的，因为按此代码会将此键值改为字符串样式，原本是DWORD值，从而导致excel不认，就相当于没改！
正确的注册表代码应该如下：
Set x = CreateObject("wscript.shell")
x.RegWrite "HKLM\SOFTWARE\Microsoft\Office\12.0\Access Connectivity Engine\Engines\Excel\TypeGuessRows", 0, "REG_DWORD"

测试结果正确！

雪魄梅魂

Excel 2016 .xlsx 文档 数据源一列混合数字和文本，用ExcelSQL 读取后丢失了文本的记录。
尝试:
Mode=Share Deny Write;Extended Properties="HDR=YES;IMEX=1;";Jet OLEDB:System
并更改HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Excel
和HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\16.0\Access Connectivity Engine\Engines\Excel
的 TypeGuessRows项值为0（也尝试过1048576）

结果均无效。