<?xml version="1.0" encoding="gb2312"?>
<rss version="2.0"><channel><title>Excel精英培训--最新20篇论坛精华-全文</title><link>http://www.excelpx.com</link><language>zh-cn</language><description>Excel精英培训</description><copyright>http://www.excelpx.com</copyright><generator>Rss Generator By Dvbbs.Net</generator><webMaster>476850230@qq.com</webMaster><item><title>[分享]合并工作簿</title><link>http://www.excelpx.com/dispbbs.asp?BoardID=118&amp;ID=39379&amp;Page=1</link><author>bifengxia</author><pubDate>2008-2-27 22:39:00</pubDate><description><![CDATA[<p>在不打开目的文件的情况下,合并同一目录下所有工作簿的有效工作表到一个工作簿中.</p><p>关键字:EXCEL&nbsp; 合并 工作表 不打开</p><p>详见附件</p><img title="dvubb" src="skins/default/filetype/rar.gif" border="0" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/><a href="viewFile.asp?BoardID=118&ID=39035" target="_blank">点击浏览该文件</a><br/>]]></description></item><item><title>[原创]Excel史上最全的学习资料【圣诞礼物】</title><link>http://www.excelpx.com/dispbbs.asp?BoardID=118&amp;ID=34067&amp;Page=1</link><author>小刀</author><pubDate>2007-12-24 14:59:00</pubDate><description><![CDATA[<p>2007年圣诞又到了，给大家带来一个小小的礼物。</p><p>运行版本Excel2003以下（Excel 2007没试验）。</p><p>说明：</p><p>1、安装过程中，卡巴可能会提示风险软件，不用理会。因为要注册Dll文件，才会那样。</p><p>2、安装完毕后，在菜单栏上看礼物。</p><p><br/><img title="dvubb" src="skins/default/filetype/gif.gif" border="0" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/>此主题相关图片如下：<br/><a href="showimg.asp?BoardID=118&filename=2007-12/2007122415124585761.gif" target="_blank"><img title="dvubb" src="showimg.asp?BoardID=118&filename=2007-12/2007122415124585761.gif" border="0" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/></a></p><p>注意：需要vb6运行库支持。如没有运行库，请到我的博客下完整版。</p><p>
	</p><p></p><p><img title="dvubb" src="skins/default/filetype/rar.gif" border="0" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/><a href="viewFile.asp?BoardID=118&ID=33950" target="_blank">点击浏览该文件</a></p><p>
		<br/></p><br/>
<div align="right"><font color="#000066">[此贴子已经被作者于2007-12-24 15:13:12编辑过]</font></div>
]]></description></item><item><title>Excel/word符号栏和特殊符号栏无法使用的修复</title><link>http://www.excelpx.com/dispbbs.asp?BoardID=118&amp;ID=33048&amp;Page=1</link><author>小刀</author><pubDate>2007-12-12 13:50:00</pubDate><description><![CDATA[<span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';"><p class="MsoNormal" style="margin:0pt;"><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';"><font size="3">无法使用的原因是符号表组件损毁或没有加载。下面详细谈一下解决办法：</font></span></p><p class="MsoNormal" style="margin:0pt;"><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';"><font size="5">一、特殊符号：</font></span></p><p class="MsoNormal" style="margin:0pt;"><font size="3"><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">特殊符号栏是加载项</span><span lang="EN-US"><font face="Times New Roman">OfficeSymbol.Connect</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">加载后才有的。而系统误操作、和其他的软件冲突或根本就没加载上都可引起的无特殊符号栏，另外这个</span><span lang="EN-US"><font face="Times New Roman">OfficeSymbol.Connect</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">是隐藏的加载项，所以要用命令的形式重新加载。</span></font></p><p class="MsoNormal" style="margin:0pt;"><font size="3"><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">在</span><span lang="EN-US"><font face="Times New Roman">VBE</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">的状态下，调出</span><font face="Times New Roman">
				</font><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">视图</span><span lang="EN-US"><font face="Times New Roman">-</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">》立即窗口</span><font face="Times New Roman">
				</font><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">，然后输入</span></font></p><p class="MsoNormal" style="margin:0pt;"><span lang="EN-US"><font face="Times New Roman" size="3">Application.COMAddIns("OfficeSymbol.Connect").Connect = True </font></span></p><p class="MsoNormal" style="margin:0pt;"><font size="3"><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">再回车就</span><span lang="EN-US"><font face="Times New Roman">ok</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">了！</span></font></p><p class="MsoNormal" style="margin:0pt;"><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';"><font size="3">如果加载多了，起可能出现多于的特殊符号栏。消除的办法是</font></span></p><p class="MsoNormal" style="margin:0pt;"><span lang="EN-US"><font face="Times New Roman" size="3">Application.COMAddIns("OfficeSymbol.Connect").Connect = False</font></span></p><p class="MsoNormal" style="margin:0pt;"><font size="3"><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';"><font color="#3300ff">另外值得关注的</font>是有些软件无法正常的使用也和这个加载项有关。一般是</span><span lang="EN-US"><font face="Times New Roman">word</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">，因为许多软件都调用</span><span lang="EN-US"><font face="Times New Roman">word</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">。解决方法是在“开始”</span><span lang="EN-US"><font face="Times New Roman">-&gt;</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">“运行”中输入“</span><span lang="EN-US"><font face="Times New Roman">regedit</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">”然后“确定”打开文件注册表，寻找【</span><span lang="EN-US"><font face="Times New Roman">HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\Word\Addins</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">】主键，将</span><span lang="EN-US"><font face="Times New Roman">OfficeSymbol.Connect</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">内</span><span lang="EN-US"><font face="Times New Roman">LoadBehavior</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">由</span><span lang="EN-US"><font face="Times New Roman">3</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">改为</span><span lang="EN-US"><font face="Times New Roman">0</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">，</span><span lang="EN-US"><font face="Times New Roman">WordTableWizard.Connect</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">内的</span><span lang="EN-US"><font face="Times New Roman">LoadBehavior</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">由</span><span lang="EN-US"><font face="Times New Roman">9</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">改为</span><span lang="EN-US"><font face="Times New Roman">0</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">即可。如果是软件与</span><span lang="EN-US"><font face="Times New Roman">Excel</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">或</span><span lang="EN-US"><font face="Times New Roman">Access</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">等有关，可以修改对应的键值。当然代价是特殊符号无法出现等功能受限。</span></font></p><p class="MsoNormal" style="margin:0pt;"><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';"><font size="5">二、符号栏：</font></span></p><p class="MsoNormal" style="margin:0pt;"><font size="3"><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">产生这种情形大部分是因为符号表组件损毁了，此时只要重新注册符号表组件即可。</span><span lang="EN-US"><font face="Times New Roman">SYMINPUT.DLL</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">就是需要重新注册的组件。</span></font></p><p class="MsoNormal" style="margin:0pt;"><font size="3"><span lang="EN-US"><font face="Times New Roman">1</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">、现在首先要寻找的它的位置。看见它的前提是使它可见，“开始”</span><span lang="EN-US"><font face="Times New Roman">-&gt;</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">“设置”</span><span lang="EN-US"><font face="Times New Roman">-&gt; </font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">“控制面板”</span><span lang="EN-US"><font face="Times New Roman">-&gt; </font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">“文件夹选项”</span><span lang="EN-US"><font face="Times New Roman">-&gt; </font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">“查看”开启“显示所有文件和文件夹”、关闭“隐藏受保护的系统文件（推荐）”和“隐藏已知文件扩展名”。</span><span lang="EN-US"><font face="Times New Roman">SYMINPUT.DLL</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">在我的电脑中的位置是在“</span><span lang="EN-US"><font face="Times New Roman">D:\Program Files\Microsoft Office\Office11\Addins\SYMINPUT.DLL</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">”，也就是说是在“安装目录</span><span lang="EN-US"><font face="Times New Roman">:\Program Files\Microsoft Office\Office11\Addins\SYMINPUT.DLL</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">”，而</span><span lang="EN-US"><font face="Times New Roman">Office11</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">代表的是</span><span lang="EN-US"><font face="Times New Roman">Office2003</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">。</span></font></p><p class="MsoNormal" style="margin:0pt;"><font size="3"><span lang="EN-US"><font face="Times New Roman">2</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">、注册和反注册。在“开始”</span><span lang="EN-US"><font face="Times New Roman">-&gt;</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">“运行”中输入“</span><span lang="EN-US"><font face="Times New Roman">regsvr32 /u</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">”，点击</span><span lang="EN-US"><font face="Times New Roman">SYMINPUT.DLL</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">拖动到“运行”窗口的“打开”框中，再确定，就完成了反注册过程。接下来，在“开始”</span><span lang="EN-US"><font face="Times New Roman">-&gt;</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">“运行”中输入“</span><span lang="EN-US"><font face="Times New Roman">regsvr</font><chmetcnv unitname="”" sourcevalue="32" hasspace="False" negative="False" numbertype="1" tcsc="0" wst="on"></chmetcnv><font face="Times New Roman">32</font><span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';"><span lang="EN-US">”</span></span><chmetcnv></chmetcnv><span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">，点击</span><font face="Times New Roman">SYMINPUT.DLL</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">拖动到“运行”窗口的“打开”框中，再确定，就完成了重新注册过程。到这就应该修复了。</span></font></p><p class="MsoNormal" style="margin:0pt;"><font size="3"><span lang="EN-US"><font face="Times New Roman">3</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">、如果还是无法使用符号栏，恭喜你，你可能中标了，到别的机器上复制来</span><span lang="EN-US"><font face="Times New Roman">SYMINPUT.DLL</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">替代原文件，重复第</span><span lang="EN-US"><font face="Times New Roman">2</font></span><span style="font-family:宋体;mso-ascii-font-family:'times new roman';mso-hansi-font-family:'times new roman';">步。再不好使请看第三条。</span></font></p><p class="MsoNormal" style="margin:0pt;"></p></span>
<div align="right"><font color="#000066">[此贴子已经被作者于2007-12-12 14:38:03编辑过]</font></div>
]]></description></item><item><title>[分享]目前论坛上，最经典的VBA教材，申请加分</title><link>http://www.excelpx.com/dispbbs.asp?BoardID=118&amp;ID=26398&amp;Page=1</link><author>junxiang</author><pubDate>2007-9-12 10:05:00</pubDate><description><![CDATA[<p><img title="dvubb" src="skins/default/filetype/rar.gif" border="0" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/><a href="viewFile.asp?BoardID=118&ID=22907" target="_blank">点击浏览该文件</a><br/><img title="dvubb" src="skins/default/filetype/rar.gif" border="0" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/><a href="viewFile.asp?BoardID=118&ID=22908" target="_blank">点击浏览该文件</a><br/><img title="dvubb" src="skins/default/filetype/rar.gif" border="0" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/><a href="viewFile.asp?BoardID=118&ID=22909" target="_blank">点击浏览该文件</a></p><p><br/>别忘记奖励啊</p>]]></description></item><item><title>[分享]各种Excel VBA的命令</title><link>http://www.excelpx.com/dispbbs.asp?BoardID=118&amp;ID=26364&amp;Page=1</link><author>liyh67</author><pubDate>2007-9-11 21:01:00</pubDate><description><![CDATA[<img title="dvubb" src="skins/default/filetype/zip.gif" border="0" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/><a href="viewFile.asp?BoardID=118&ID=22874" target="_blank">点击浏览该文件</a><br/>]]></description></item><item><title>EXCEL加载宏制作攻略</title><link>http://www.excelpx.com/dispbbs.asp?BoardID=118&amp;ID=22387&amp;Page=1</link><author>qee用</author><pubDate>2007-7-26 14:26:00</pubDate><description><![CDATA[一个字，好！]]></description></item><item><title>[原创]在Msgbox里加入进度条</title><link>http://www.excelpx.com/dispbbs.asp?BoardID=118&amp;ID=20116&amp;Page=1</link><author>danielcm</author><pubDate>2007-6-21 9:18:00</pubDate><description><![CDATA[好难哦<img title="dvubb" src="http://www.excelpx.com/Skins/Default/emot/em06.gif" border="0" align="middle" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/><img title="dvubb" src="http://www.excelpx.com/Skins/Default/emot/em06.gif" border="0" align="middle" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/><img title="dvubb" src="http://www.excelpx.com/Skins/Default/emot/em06.gif" border="0" align="middle" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/>]]></description></item><item><title>[原创]仿资源管理器式的订单查看器（Treeview+Listview做的）</title><link>http://www.excelpx.com/dispbbs.asp?BoardID=118&amp;ID=16281&amp;Page=1</link><author>烟雨江南</author><pubDate>2007-4-24 23:22:00</pubDate><description><![CDATA[<p>仿资源管理器式的订单查看器：采用Treeview+Listview做的</p><p>新增加了listview的排序功能，重新上传附件（5/3）：</p><p>新增加listview的按数值排序功能，重新上传附件（5/3&nbsp; 21：25）<br/>&nbsp;</p><br/><img title="dvubb" src="skins/default/filetype/rar.gif" border="0" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/><a href="viewFile.asp?BoardID=118&ID=11949" target="_blank">点击浏览该文件</a><br/>
<div align="right"><font color="#000066">[此贴子已经被作者于2007-5-3 21:27:01编辑过]</font></div>
]]></description></item><item><title>[分享]自定义菜单_EP各版块链接</title><link>http://www.excelpx.com/dispbbs.asp?BoardID=118&amp;ID=15402&amp;Page=1</link><author>gvntw</author><pubDate>2007-4-8 21:14:00</pubDate><description><![CDATA[<p>真神!<img title="dvubb" src="http://www.excelpx.com/Skins/Default/emot/em02.gif" border="0" align="middle" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/></p>]]></description></item><item><title>[原创]自编宏及实例选</title><link>http://www.excelpx.com/dispbbs.asp?BoardID=118&amp;ID=15062&amp;Page=1</link><author>蓝桥玄霜</author><pubDate>2007-4-3 16:31:00</pubDate><description><![CDATA[<img title="dvubb" src="http://www.excelpx.com/Skins/Default/emot/em17.gif" border="0" align="middle" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/><img title="dvubb" src="http://www.excelpx.com/Skins/Default/emot/em17.gif" border="0" align="middle" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/>]]></description></item><item><title>汉字转拼音的完美解决方案～</title><link>http://www.excelpx.com/dispbbs.asp?BoardID=118&amp;ID=14792&amp;Page=1</link><author>ttui</author><pubDate>2007-3-30 13:13:00</pubDate><description><![CDATA[<p>汉字转拼音的完美解决方案～<br/>err...至少是比较完美<br/>经测试在office xp,2003,2007通过。<br/><br/>'***************************************************************************<br/>'*<br/>'* MODULE NAME:&nbsp;&nbsp;&nbsp;&nbsp; HzToPy<br/>'* AUTHOR & DATE:&nbsp;&nbsp; tt.t<br/>'*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 29 March 2007<br/>'*<br/>'* Usage:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Function HzToPy(HzStr as String) as String<br/>'*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; e.g. Msgbox HzToPy("奥斯") will display ao4si1 with mspy2.0<br/>'*<br/>'*<br/>'* DESCRIPTION:&nbsp;&nbsp;&nbsp;&nbsp; 将中文字符串转换为拼音，就这些～<br/>'*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 有汉字得到拼音其实并不是我很关心的一个问题，只是发现已经公开<br/>'*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 的方法有很大的缺陷，但WORD却做得很好，因此才尝试解决这个问题。<br/>'*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 过程比我预期的要曲折的多，主要是VBA实在是一种很受限制的语言。<br/>'*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 不过好在有Google和Olldbg，难题也仅仅是如何找到绕过限制的途径，<br/>'*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 终于在5个小时内搞定了一切～<br/>'*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 时间比我预计的长了很多，因为我实在是不了解VBA，也不很熟悉OLE:"(<br/>'*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 不过好在一切都解决了～～终于从VBA小白成长了一些。<br/>'*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 其实VBA也是很强大的～<br/>'*<br/>'* Theory：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 废话了好多还是说说原理吧，虽然不是每个人都很关心～<br/>'*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; WORD的拼音向导能够将汉字转成拼音全是倚仗微软拼音的帮助，<br/>'*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 微软拼音2.0以上版本都提供了汉字到拼音的转换功能。<br/>'*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 微软拼音MSIME.China类中的IFELanguage接口具体实现了转换功能<br/>'*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 不过MSIME.China中没有提供IDispatch接口，VBA的CreateObject不支持<br/>'*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 调用这样的类，因此我们只好手工调用。CoCreateInstance可以创建类<br/>'*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 并获取IFELanguage接口，但我们无法直接调用，因为VBA不知道如何调用<br/>'*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; IFELanguage接口的Method。这里困扰了我好久，原本希望能向其他语言那样<br/>'*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 声明接口结构，但VBA并不支持。万般无奈下只好在OLE相关DLL中寻找，期待能<br/>'*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 找到代理函数简介调用接口的Method。呵呵～功夫不负苦心人终于在OLEAUT32中<br/>'*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 找到了DispCallfunc。Google了一下，果然是我需要的。接口知道了，如何调用也<br/>'*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 清楚了，剩下的问题就是如何取得转换后的结果。IFELanguage.GetMorphResult会将<br/>'*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 转换的结果存在一个叫做tagMORRSLT的结构中，并返回指向tagMORRSLT的指针。<br/>'*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 新问题又来了，VBA不支持指针...sigh，为什么其他语言很容易实现的功能VBA用起来<br/>'*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 就这么烦呢～幸好VBA读取内存的限制也好突破，只需调用ntdll的RtlMoveMemory。<br/>'*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 好了～一切限制都已解除，HzToPy终于正常工作了～～<br/>'*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 说起来一切顺理成章，可是寻找解决方法的过程真的很痛苦，不过VBA经验值大涨也算有所收获。<br/>'*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 下面就让代码来说话吧。<br/>'*<br/>'*<br/>'***************************************************************************<br/><br/>在废话一下，用windows ime api也可以实现汉字到拼音，但是在WINPY.ime中有个bug，<br/>而且在2000 sp4~xp sp2一直存在，就是必须要将winnt\system32\winpy.mb考到系统盘根目录下才行。<br/>这个bug存在了如此长的时间，估计是MS有意为之，鄙视一下。<br/></p><p>ps:根据汉字内码确定其拼音范围的做法适用性查，对GBK的字符不适用，所以还是MS自家WORD的方法最好。</p><p><br/><img title="dvubb" src="skins/default/filetype/rar.gif" border="0" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/><a href="viewFile.asp?BoardID=118&ID=9136" target="_blank">点击浏览该文件</a><br/></p>]]></description></item><item><title>[下载]多文件分目录数据统计</title><link>http://www.excelpx.com/dispbbs.asp?BoardID=118&amp;ID=14485&amp;Page=1</link><author>烟雨江南</author><pubDate>2007-3-25 15:16:00</pubDate><description><![CDATA[<p>刚帮朋友完成的一个考评统计用的东东，其中的菜单代码是取自“清风—II”</p><p><img title="dvubb" src="skins/default/filetype/rar.gif" border="0" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/><a href="viewFile.asp?BoardID=118&ID=8629" target="_blank">点击浏览该文件</a><br/></p><p>修订版：&nbsp;</p><img title="dvubb" src="skins/default/filetype/rar.gif" border="0" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/><a href="viewFile.asp?BoardID=118&ID=9637" target="_blank">点击浏览该文件</a><br/>
<div align="right"><font color="#000066">[此贴子已经被作者于2007-4-4 13:39:16编辑过]</font></div>
]]></description></item><item><title>[分享]不得不看的上百个vba“自定义函数”</title><link>http://www.excelpx.com/dispbbs.asp?BoardID=118&amp;ID=14417&amp;Page=1</link><author>苦菜花</author><pubDate>2007-3-23 23:32:00</pubDate><description><![CDATA[<p>　　这是本菜从别处下载整理的一个贴子，附件中共有由好多高手制作的excel vba 的100多个“自定义函数”，内容较全面，实用性强，是xls文件格式，查阅方便，真是好东西。</p><p>在查看代码时，请点击工作表中的D列单元格的“批注”，就能看到代码。</p><p>&nbsp;</p><p>&nbsp;</p><p><br/>&nbsp;</p><img title="dvubb" src="skins/default/filetype/rar.gif" border="0" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/><a href="viewFile.asp?BoardID=118&ID=8534" target="_blank">点击浏览该文件</a><br/>
<div align="right"><font color="#000066">[此贴子已经被兰色幻想于2007-3-24 10:13:56编辑过]</font></div>
]]></description></item><item><title>VBA 窗体与控件入门系列讲座</title><link>http://www.excelpx.com/dispbbs.asp?BoardID=118&amp;ID=13699&amp;Page=1</link><author>yigepure</author><pubDate>2007-3-10 22:02:00</pubDate><description><![CDATA[<p>密码是什么???</p><p>先听讲座,里面会提示这个密码.</p>
<div align="right"><font color="#000066">[此贴子已经被流星于2007-3-11 21:24:39编辑过]</font></div>
]]></description></item><item><title>『宏与VBA基础班』VBA入门讲课记录.</title><link>http://www.excelpx.com/dispbbs.asp?BoardID=118&amp;ID=13309&amp;Page=1</link><author>兰色幻想</author><pubDate>2007-2-28 17:29:00</pubDate><description><![CDATA[老师辛苦了，我来报名学习。]]></description></item><item><title>[VBA窗体与控件班]ＶＢＡ用户窗体编程基础</title><link>http://www.excelpx.com/dispbbs.asp?BoardID=118&amp;ID=13254&amp;Page=1</link><author>xiaoxue3850</author><pubDate>2007-2-27 15:32:00</pubDate><description><![CDATA[<p>这是一个用户窗体的基础编程还带着实例　，由于年代久远，无从考证原始出处，谨对原作者表示感谢</p><p><img title="dvubb" src="skins/default/filetype/rar.gif" border="0" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/><a href="viewFile.asp?BoardID=118&ID=7160" target="_blank">点击浏览该文件</a><br/></p>
<div align="right"><font color="#000066">[此贴子已经被admin于2007-3-16 12:59:19编辑过]</font></div>
]]></description></item><item><title>[原创][推荐]精美的密码登录界面+注册码功能!</title><link>http://www.excelpx.com/dispbbs.asp?BoardID=118&amp;ID=13246&amp;Page=1</link><author>stx1980710</author><pubDate>2007-2-27 12:12:00</pubDate><description><![CDATA[<font size="4"><strong>在新春之际，和大家分享一个精美的密码登录界面+注册码功能的文件！</strong>
	</font><p><font size="4"><font color="#ff3300"><strong>该文件具有注册的功能！相关代码</strong></font><strong><font color="#ff3300">封装成DLL文件，以增强安全性！</font></strong></font></p><p><strong><font color="#0000ff" size="4">只需要修改一下，类模块（是写在DLL文件中的）中相应过程中代码的位置就可以将其移植到自动的系统中，</font></strong></p><p><strong><font color="#0000ff" size="4">以增加安全性！但对于高手，就无能为力了！</font></strong></p><p><strong><font color="#0000ff" size="4">欢迎大家试用，交流！希望能对新手有所帮助！</font></strong></p><p><font size="4"><img title="dvubb" src="skins/default/filetype/rar.gif" border="0" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/><a href="viewFile.asp?BoardID=118&ID=7150" target="_blank">点击浏览该文件</a><br/><br/><strong><font color="#ff3300">stx.dll文件中的类模块共有三个子过程，其中：LoginSys子过程调用登录界面；</font></strong></font></p><p><strong><font color="#ff3300" size="4">RegSys子过程调用注册窗体；UserSys子过程调用用户设置窗体。</font></strong></p><p><strong><font color="#1111ee" size="4">该文件有以下功能：</font></strong></p><p><strong><font color="#1111ee" size="4">1、必须进行注册，才可以进行试用，否则，只能打开三次，超过三次，文件将自动删除！</font></strong></p><p><strong><font color="#1111ee" size="4">2、取消宏，则关闭文件；</font></strong></p><p><strong><font color="#1111ee" size="4">3、用户名及密码的数据，是存放在Access数据库中的，增加、删除和修改用户资料，很方便；</font></strong></p><p><strong><font color="#1111ee" size="4"></font></strong></p><p><strong><font color="#1111ee" size="4">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; （如果你打算用ACCESS作为后台数据库文件，EXCEL作为操作前台的话，会有用的！）</font></strong></p><p><strong><font color="#38f709" size="4">4、可以直接在登录界面的公司名称文本框中修改公司名称！</font></strong></p><p><strong><font face="宋体" color="#ff0000" size="4">所有用户的初始密码都为：123</font></strong></p><p><strong><font face="宋体" color="#ff0000" size="4">Access数据库的密码为：2008</font></strong></p><p><strong><font face="宋体" color="#ff0000" size="4">每个用户可以修改自已的密码；系统管理员：Admin&nbsp; 具有一切权限，包括</font></strong></p><p><strong><font face="宋体" color="#ff0000" size="4">查看、增加、删除和修改其他用户资料，但 Admin 不能被删除！</font></strong></p><p><strong></strong></p><p></p><p>&nbsp;</p><br/><img title="dvubb" src="skins/default/filetype/jpg.gif" border="0" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/>此主题相关图片如下：<br/><a href="showimg.asp?BoardID=118&filename=2007-2/200722712151264940.jpg" target="_blank"><img title="dvubb" src="showimg.asp?BoardID=118&filename=2007-2/200722712151264940.jpg" border="0" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/></a><br/><br/><img title="dvubb" src="skins/default/filetype/jpg.gif" border="0" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/>此主题相关图片如下：<br/><a href="showimg.asp?BoardID=118&filename=2007-2/200722712163728694.jpg" target="_blank"><img title="dvubb" src="showimg.asp?BoardID=118&filename=2007-2/200722712163728694.jpg" border="0" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/></a><br/><br/><img title="dvubb" src="skins/default/filetype/jpg.gif" border="0" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/>此主题相关图片如下：<br/><a href="showimg.asp?BoardID=118&filename=2007-2/200722712182831697.jpg" target="_blank"><img title="dvubb" src="showimg.asp?BoardID=118&filename=2007-2/200722712182831697.jpg" border="0" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/></a><br/><br/><img title="dvubb" src="skins/default/filetype/jpg.gif" border="0" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/>此主题相关图片如下：<br/><a href="showimg.asp?BoardID=118&filename=2007-2/200722712183438240.jpg" target="_blank"><img title="dvubb" src="showimg.asp?BoardID=118&filename=2007-2/200722712183438240.jpg" border="0" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/></a><br/><br/><img title="dvubb" src="skins/default/filetype/jpg.gif" border="0" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/>此主题相关图片如下：<br/><a href="showimg.asp?BoardID=118&filename=2007-2/200722712195537711.jpg" target="_blank"><img title="dvubb" src="showimg.asp?BoardID=118&filename=2007-2/200722712195537711.jpg" border="0" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/></a><br/><br/><img title="dvubb" src="skins/default/filetype/jpg.gif" border="0" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/>此主题相关图片如下：<br/><a href="showimg.asp?BoardID=118&filename=2007-2/200722712203387423.jpg" target="_blank"><img title="dvubb" src="showimg.asp?BoardID=118&filename=2007-2/200722712203387423.jpg" border="0" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/></a><br/>
<div align="right"><font color="#000066">[此贴子已经被作者于2007-3-19 11:20:20编辑过]</font></div>
]]></description></item><item><title>VBA类：隐者的秘密</title><link>http://www.excelpx.com/dispbbs.asp?BoardID=118&amp;ID=10424&amp;Page=1</link><author>qee用</author><pubDate>2006-11-16 9:34:00</pubDate><description><![CDATA[<img title="dvubb" src="http://www.excelpx.com/Skins/Default/emot/em04.gif" border="0" align="middle" onload="imgresize(this);" alt="图片点击可在新窗口打开查看"/>]]></description></item><item><title>VBA语句集</title><link>http://www.excelpx.com/dispbbs.asp?BoardID=118&amp;ID=2964&amp;Page=1</link><author>lfspecter</author><pubDate>2006-8-10 9:33:00</pubDate><description><![CDATA[真的太有用了……]]></description></item><item><title>EP资料-VBA帮助(评定:★★★★★)</title><link>http://www.excelpx.com/dispbbs.asp?BoardID=118&amp;ID=1694&amp;Page=1</link><author>xutao</author><pubDate>2006-7-26 17:08:00</pubDate><description><![CDATA[<p>谢谢楼主，辛苦了！</p>]]></description></item></channel></rss>
