- 博客(6)
- 收藏
- 关注
RSS订阅原创 VBA操作Excel代码收集
<br /><br />1、Application.CommandBars("Worksheet Menu Bar").Enabled = false <br />2、cells(activecell.row,"b").value '活动单元格所在行B列单元格中的值 <br />3、Sub CheckSheet()'如果当前工作薄中没有名为kk的工作表的话，就增加一张名为kk的工作表，并将其排在工作表从左至右顺序排列的最左边的位置，即排在第一的位置 <br />Dim shtSheet As Workshe
2010-11-29 23:17:00
2333
原创 临时记录
<br />$question = $oIE.document.frames.inner.document.all.questionTitle.outerText$oFrame = _IEFrameGetCollection ($oFrae, 0) ；0填自己需要的框架索引
2010-11-26 23:26:00
493
原创 vbs操作已存在的ie
<br /><br />Dim oShellApp, oShellAppWindows, WebBrowser<br /> Set oShellApp = CreateObject("Shell.Application")<br /> Set oShellAppWindows = oShellApp.Windows<br /> For Each WebBrowser In oShellAppWindows<br /> MsgBox LCase(TypeName(WebBrowser.
2010-11-25 22:43:00
1116
1
原创 VBS通过SMTP发送邮件
<br /> <br />mfrom="abcd@abcd.com"rcpt="abcd@abcd.com, abcd@abcd.com"attachfile=nullserverip="smtp.abcd.com"sbj="Subject"tbody="Hello World"Call SendMail(mfrom,rcpt,sbj,tbody,attachfile,serverIP)<br /> Sub SendMail (mfrom,rcpt,sbj,tbody,attac
2010-11-24 23:10:00
1198
原创 BeyondCompare命令行操作输出文件比对报告
新建一个文本文件，假设命名为BCbatch.txt，只有一行内容如下： file-report layout:side-by-side options:display-all,line-numbers output-to:"report.htm" output-options:wrap-word,html-color "比较文件1的全路径" "比较文件2的全路径"然后在命令行下执行：BC.exe @BCbatch.txt
2010-11-10 22:32:00
9128
3
转载 【AutoIt】文件夹遍历
<br /><br />$Drive= DriveGetDrive( "FIXED" )<br />For $i = 1 to $Drive[0]<br /> MsgBox(1,"开始搜索", $Drive[$i])<br /> _filelist($Drive[$i])<br /> Next<br /> <br />Func _filelist($searchdir) <br />$search = FileFindFirs
2010-11-02 23:16:00
3796
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人