摘要: Public Sub GetCellPhone() Dim CellPhone As String Dim Arr As Variant Dim Brr As Variant Dim n As Long Dim FolderPath As String Dim FileName As String Dim FilePath As Strin... 阅读全文
posted @ 2017-08-22 16:30 wangway 阅读(184) 评论(0) 推荐(0) 编辑
摘要: Const ADDIN_NAME As String = "AddInFunction" Const SETTING_ITEM As String = "AddInSetting" Const KEY_NAME As String = "RegisterCpu" Sub TestRegister() Debug.Print IsRegistered End Sub Public Func... 阅读全文
posted @ 2017-08-22 14:36 wangway 阅读(112) 评论(0) 推荐(0) 编辑