雄关漫道真如铁 而今迈步从头越
(1 人投票, 平均: 5.00 out of 5)
Loading ...网站经过一个多星期断断续续的调整后，今天终于以全新的面貌重新上线了，仍然使用原来简洁流畅的fluid-blue主题。但，这是一个新的起点！
自从2009年2月16日网站遭受重创以后（数据全部被空间提供商误删除，且事后没有任何说法），我沉寂了一段时间。当然，这段时间工作繁忙，事务颇多也是重要原因。因此，很长时间没有顾得上打理网站了。
这段时间，很多朋友通过在网站上留言和邮件鼓励我，给我支持。在此，我深表感谢！我想，我和大家共同交流和分享的心态是不会变的，这种热情也会一直保持，尤其在Excel的学习、研究和应用方面。
自网站于2007年9月创建以来，一晃将近一年半了。在网站上，我将自已在Excel方面学习的技术和应用知识与大家分享，也不断提升着自已的Excel技能。我一直努力的保持着站点的纯洁，尽最大的能力为自已提供一个与大家分享和交流的平台。现在，我换了一个空间服务提供商，希望能为网站提供更好的稳定性和更快访问速度。
但深感遗憾的是，原来网站积累起来的所有评论、留言和用户注册信息都丢失了，在此表示歉意并请大家谅解！我会将原来的文章尽力归类整理并恢复的，也请大家关注。
“赛翁失马，焉知祸福”，生活中任何事情的好坏都是两方面的，就看你怎么看待了。虽然积累一年多的网站数据失去了，但经过这一年多的积累，我对Excel技术的理解和认识更加深入了，思路也更加清晰了。因而，对Excel知识的分享也会更加完美。
今后，我会在网站上发表更多更好的实用文章，尽力帮助大家解决在Excel应用方面遇到的难题。同时，也希望能得到大家一如既往的支持和鼓励。
I really like your post. Does it copyright protected?
I was just now googling around about this when I found your blog post. I’m only dropping by to say that I very much enjoyed reading this post, it is very clear and well written. Are you going to post more about this? It looks like there’s more fodder here for later posts.
飘过！~~~
踩踩
又来转转
如果不介意，是否可以发一个sql文件给我，我看看自己的服务器是否可以导入。
找回过一个sql备份，但是导入时老时报错，空间的网管也无法解决。花了不少时间，最后想想，不如就放弃了。
谢谢您的热心和支持。
以前wp的sql备份还在吗？可以导入到现在的新blog中啊。以前的内容没有了，真的很可惜。
一开始没有注意到你所有的资料都已经没有了，幸好上你你恢复的时候我订阅在google reader中了，如果你还有需要，我可以慢慢整理一下，否则可惜了。
支持！谢谢！
对不起！由于以前在网站上已公布的原因，原网站遭受重创（数据被服务商的管理员误删），不得已我更换了空间服务商，原来的数据全部丢失了，所以您以前收藏的链接无效是正常的。我会尽量恢复原来的知识并尽量归纳整理得更全面。毕竟，经过以前这段时间的学习，水平也有所精进，呵呵……
强烈建议将你的blog继续放在根目录下，否则以前收藏的链接都失效了。
excelperfect 说：
2009年03月15日于3:35 下午
To 粉丝:
将单元格B4中的内容赋给一个变量,然后在SendKeys中使用该变量来发送文本.先试试看行不行
谢谢回复 已经放弃了原来的想法 单元格的换行也很麻烦 现在有了老大的 复制文本框的代码 已经解决问题了
To 粉丝:
将单元格B4中的内容赋给一个变量,然后在SendKeys中使用该变量来发送文本.先试试看行不行.
自从2009年2月16日网站遭受重创以后（数据全部被空间提供商误删除，且事后没有任何说法）….
很郁闷 ，前几天拜读的资料，还没有消化 再来拜读就没有数据了 …
老师看到我留言 请帮我我一段 VBA复制文本框内容 储存到 鼠标右键 （是不是叫剪贴板呢 嘿嘿
另外 一段可以执行的EXCLE发送[B4]单元格内容到QQ好友 其中有点点小问题 就是单元格内容换行了就只能发一行了 ，我需要一次性发送单元格所有的内容 无论换行不换行的就只发一个QQ消息 谢谢先 ！
Option Explicit
Private Declare Function ShellExecute Lib “shell32.dll” Alias “ShellExecuteA” (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Sub yvhf()
On Error Resume Next
ShellExecute 0, “open”, “http://wpa.qq.com/msgrd?V=1&Uin=” & [b2] & “&Site=LG&Menu=yes”, “”, “”, 1
Application.Wait (Now() + TimeSerial(0, 0, 3))
SendKeys [b4]
SendKeys “+(%s)”
End Sub