- 博客(6)
- 收藏
- 关注
RSS订阅原创 字典用法的补充—index函数
很多前辈都谈过字典的用法，而我这里要说的是关于在字典中取key和item的值的方法。这个是我在回答http://club.excelhome.net/viewthread.php?tid=520400&pid=3429923&page=1&extra=page%3D1这个帖子时想到的。12345123 取上面数据其中出现只有一次的数据放到sheet2中
2010-01-01 14:18:00
1321
原创 用mciSendString函数播放mp3
部分借鉴了网上已有的代码。 Option ExplicitPublic Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength
2009-12-27 15:59:00
1879
原创 在VBA中用Jmail发邮件代码
在VBA中用Jmail发邮件其实很简单，下面以新浪邮箱为例。（需要下载注册jmail.dll） Sub SendMail(mail_from, mail_email, mail_subject, mail_body) Dim JMail Set JMail = CreateObject("JMail.Message") With JMail
2009-12-27 15:53:00
3250
原创 不用装飞信软件也发飞信
这个是没有技术含量的，只是提供一种方法。 Sub cc() With CreateObject("InternetExplorer.Application") .Visible = True .Navigate "http://sms.api.bz/fetion.php?username=您的移动飞信登录手机号&password=您的移动飞信登
2009-12-27 15:42:00
708
原创 下载任意网址图片（所谓任意，不是所有的）
在上篇用“VBA下载google图片”的前提下，想到了下载其它网址图片，经测试，大部分网址可以成功。 Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileNam
2009-12-27 15:35:00
604
原创 用VBA下载google图片
Sub cc() Dim s, ss(), r%, i&, j& IName = "***" 这里确定要下载谁的图片 Path = ThisWorkbook.Path & "/" MkDir Path & IName 建立文件夹以便存放图片 On Error Resume Next Set ie = C
2009-12-27 15:03:00
916
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人