VBS
widlisyx
这个作者很懒,什么都没留下…
展开
-
VBS访问、操作oracle数据库
Sub FetchDataCount() Dim sheetName As String sheetName = "test" Dim dbServiceName As String dbServiceName = Sheets(sheet原创 2011-09-23 07:19:41 · 6712 阅读 · 0 评论 -
VBS常量定义
// MSWORD常量定义// 对做MSWORD的朋友有帮助了,不用做个宏,打个MsgBox看是什么了。//*************************************************************// WdAlertLevel原创 2011-09-23 07:20:45 · 3652 阅读 · 0 评论 -
VBS计算汉字笔画
dim word,keyword=inputbox("请输入文字")if word="" thenWscript.Quitend ifkey=char_wordnum(word)msgbox keyFunction char_wordnum(my_char_word)dim char_wordtable(26),wordnum_i,wordnum_j,wordnum_k,temp_转载 2013-12-12 09:21:41 · 3982 阅读 · 0 评论 -
VBS操作Excel常见方法
dim oExcel,oWb,oSheet Set oExcel= CreateObject("Excel.Application") Set oWb = oExcel.Workbooks.Open("E:\其他\新装电话表.xls") Set oSheet = oWb.Sheets("Sheet1") MsgBox oSheet.Range("B2").Value '#提取单元格转载 2014-03-28 16:51:45 · 5722 阅读 · 0 评论