2023年10月7日
VBA读取ini配置相对应的内容
摘要： Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName A 阅读全文
posted @ 2023-10-07 17:25 sonycat 阅读(122) 评论(0) 推荐(0)
VBA读取文本文件内容
摘要： Function ReadText(FileName As String) As String With CreateObject("ADODB.Stream") .Type = 2 .Mode = 3 .Open .LoadFromFile FileName .Charset = "UTF-8" 阅读全文
posted @ 2023-10-07 16:41 sonycat 阅读(357) 评论(0) 推荐(0)
VBA 获取本机IP
摘要： Function GetIP() As String Dim OpSysSet As Object, Op As Object, Ip Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate}//localhost").E 阅读全文
posted @ 2023-10-07 16:15 sonycat 阅读(626) 评论(1) 推荐(1)
VBA获取桌面路径
摘要： Function GetDesktop() As String With CreateObject("wscript.shell") GetDesktop = .Regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ 阅读全文
posted @ 2023-10-07 16:12 sonycat 阅读(545) 评论(0) 推荐(0)
VBA 生成文本文件
摘要： Sub CreateFile(FileText As String, Fil As String) With CreateObject("ADODB.Stream") .Type = 2 .Charset = "Unicode" .Open .WriteText FileText .SavetoFi 阅读全文
posted @ 2023-10-07 15:34 sonycat 阅读(157) 评论(0) 推荐(0)