爱莫能助

转载链接：http://blog.sina.com.cn/s/blog_54b09dc90100qbsp.html在VBA中经常要用到文件对话框来进行打开文件、选择文件或选择文件夹的操作。用Microsoft Office提供的文件对话框比较方便。用法如下Application.FileDialog(fileDialogType)fileDialogType      MsoF

If Dir(App.Path & "\Database", vbDirectory) = "" Then MkDir (App.Path & "\Database") End ifIf Dir(App.Path & "\Database\a", vbDirectory) = "" Then MkDir (App.Path & "\Database\a") End if

转自：http://blog.youkuaiyun.com/jyh_jack/article/details/2315345mid(字符串，从第几个开始，长度)  在[字符串]中[从第几个开始]取出[长度个字符串] 例如 mid("小欣无敌",1,3) 则返回 "小欣无"instr(从第几个开始,字符串1,字符串2) 从规定的位置开始查找，返回字符串2在字符串1中的位置 例如 instr(1,

Function LabelSelectedFeatures(pLayer As ILayer, pFeature As IFeature)    Dim pGeoFeatureLayer As IGeoFeatureLayer    Dim pLabelEngine As ILabelEngineLayerProperties    Dim pAnnoProperties As IA

Exit语句，可以用来跳出、退出各种循环。以下是几种ＶＢＡ循环及过程、函数等的退出语句代码。　　一、For循环的退出　　For Each myCell in Range("A1:H10")　　　If myCell.Value = "" Then　　　　myCell.Value = "empty"　　　Else　　　　Exit For　　　En

Private Sub CommandButton2_Click()    Dim pGxdial As IGxDialog    Set pGxdial = New GxDialog    pGxdial.ButtonCaption = "保存路径"    pGxdial.Title = "打开"    pGxdial.RememberLocation = True