vba中的ie对象操作

《vba中的ie对象操作》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VBA中的IE对象操作VBA获得光驱的盘符[日期：2011-09-21]来源：作者：admin[字体：大中小]OptionExplicitPrivateDeclareFunctionGetDriveTypeLib"kernel32"Alias"GetDriveTypeA"_(ByValnDriveAsString)AsLong'GetLogicalDriveStrings-->获取一个字串,其中包含了当前所有逻辑驱动器的根驱动器路径PrivateDeclareFunctionGetLogicalDriveStringsLib"kernel32"Alias"GetLogica

2、lDriveStringsA"_(ByValnBufferLengthAsLong,ByVallpBufferAsString)AsLongPrivateConstDRIVE_REMOVABLE=2PrivateConstDRIVE_FIXED=3PrivateConstDRIVE_REMOTE=4PrivateConstDRIVE_CDROM=5PrivateConstDRIVE_RAMDISK=6PrivateSubCommand1_Click()DimrtnAsStringDimAllDrivesAsStringDimJustOneDriveAsStringAllDr

3、ives=Space$(64)'设置缓冲rtn=GetLogicalDriveStrings(Len(AllDrives),AllDrives)'调用函数得到包含所有驱动器的字符串AllDrives=Left(AllDrives,rtn)Dortn=InStr(AllDrives,Chr(0))IfrtnThen'若有的话JustOneDrive=Left(AllDrives,rtn)AllDrives=Mid(AllDrives,rtn+1,Len(AllDrives))rtn=GetDriveType(JustOneDrive)'检查驱动器类型Ifrtn=DRIVE_C

4、DROMThen'是CD-ROMMsgBoxLeft(UCase(JustOneDrive),2)'给label1ExitDoEndIfEndIfLoopUntilAllDrives=""Orrtn=DRIVE_CDROMEndSub字符串中取中文的自定义函数[日期：2011-09-21]来源：作者：admin[字体：大中小]FunctionGetChinaO(rngAsRange)AsString'胡炜创建于2007-3-4取中文函数DimmyRegAsObjectDimmyMatchsAsObjectDimtempMAsObjectDimtempStringAsStri

5、ngDimtempRngAsRangeSetmyReg=CreateObject("Vbscript.RegExp")myReg.Global=True'myReg.Pattern="^[u4e00-u9fa5]+$"myReg.Pattern="[u4e00-u9fa5]+"Application.VolatileForEachtempRngInrngSetmyMatchs=myReg.Execute(tempRng.Text)ForEachtempMInmyMatchstempString=tempString&tempM.ValueNexttempMSetmy

6、Matchs=NothingNexttempRngSetmyReg=NothingSettempM=NothingSetmyMatchs=NothingSettempRng=NothingGetChinaO=tempString'MsgBoxmyReg.Test("我爱中国")EndFunction定义二维数组（VBA）[日期：2011-09-21]来源：作者：admin[字体：大中小]Sub输入2()'定义二维数组Dimt,xAsLong,arr(1To60000,0)t=TimerFory=1To10Forx=1To60000arr(x,0)=x*100NextxRan

7、ge("a1:a60000")=arrNextyMsgBoxTimer-tEndSub用VBA关闭计算机的代码[日期：2011-08-08]来源：作者：admin[字体：大中小]！请注意你WINDOWS的版本*API函数声明DeclareFunctionExitWindowsLib"User"(ByValdwReturnCodeAsLong,ByValwReservedAsInteger)AsInteger注释：执行DimDUMMYDUMMY=ExitWindows(0，0)强制关闭计算机：用API函数ExitWi