ACMAIN_CHM 提供 Public Function getFilesInFolder(sFullFileNamePattern As String) As String() Dim a() As String Dim i As Integer Dim sFileName As String i = 0 sFileName = Dir(sFullFileNamePattern) ...
Public Function PinYin(Tstr As String) As String Dim I As String I = Asc(Tstr) If I = Asc("啊") And I Asc("芭") Then PinYin = "a" If I = Asc("芭") And I Asc("擦") Then PinYin = "b" If I = Asc("擦") And I Asc("搭") Then PinYin = "c" If I = Asc("搭") And I Asc("蛾") T ...
Function GetFolder() As String Dim dlgOpen As FileDialog Dim i As Long, j As Long Set dlgOpen = Application.FileDialog(msoFileDialogOpen) With dlgOpen .AllowMultiSelect = True &nbs ...
Function myMax(ParamArray FieldArray() As Variant) Dim i As Integer Dim currentVal As Variant currentVal = FieldArray(0) For i = 0 To UBound(FieldArray) If FieldArray(i) curren ...
|站长邮箱|小黑屋|手机版|Office中国/Access中国
( 粤ICP备10043721号-1 ) 
日志
相册
分享
记录