2023年10月17日
摘要：
Private Sub Worksheet_Change(ByVal Target As Range) Dim Rng As Range Set Rng = Intersect(Target, [b2:c9]) If Not Rng Is Nothing Then Rng.Interior.Colo 阅读全文
2023年10月17日
2023年10月9日
摘要：
static string connection; public void TestConnection(string dataFile) { connection = "Provider = Microsoft.ACE.OLEDB.12.0;Data source=" + dataFile; Ol 阅读全文
摘要：
Function TranslationContent(Wat As String) As String On Error Resume Next Dim Http As Object Dim MyScript As Object, R As Object Dim Reg As Object Set 阅读全文
摘要：
Function GetHttpText(Url As String) With CreateObject("WinHttp.WinHttpRequest.5.1") .Open "Get", Url, False .Send GetHttpText = .ResponseText End With 阅读全文
2023年10月7日
摘要：
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName A 阅读全文
摘要：
Function ReadText(FileName As String) As String With CreateObject("ADODB.Stream") .Type = 2 .Mode = 3 .Open .LoadFromFile FileName .Charset = "UTF-8" 阅读全文
摘要：
Function GetIP() As String Dim OpSysSet As Object, Op As Object, Ip Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate}//localhost").E 阅读全文
摘要：
Function GetDesktop() As String With CreateObject("wscript.shell") GetDesktop = .Regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ 阅读全文
摘要：
Sub CreateFile(FileText As String, Fil As String) With CreateObject("ADODB.Stream") .Type = 2 .Charset = "Unicode" .Open .WriteText FileText .SavetoFi 阅读全文
2023年10月6日
摘要：
需引用Microsoft Scripting Runtime Option Explicit Function GetAllFolderName(FistFolder As String) '取所有文件夹名 If FistFolder = "" Then End Dim Fso As New Fil 阅读全文