摘要:
SELECT DISTINCT 成绩表.分数 FROM 成绩表 WITH OWNERACCESS OPTION; 阅读全文
摘要:
function mainMenu { $mainMenu = 'X' while($mainMenu -ne ''){ Clear-Host Write-Host "`n`t`t My Script`n" Write-Host -ForegroundColor Cyan "Main Menu" W 阅读全文
摘要:
虽然IE已经过时,微软已经不再支持IE,已经全面切换到了Edge,尽管edge人有ie兼容模式但是一些老的web应用仍然状况频出,但是IE 已经不能直接打开了。 于是只能周曲线了,可以通过powershell脚本来运行IE,具体如下。 $Url = "https://127.0.0.1/defaul 阅读全文
摘要:
uname = "$env:USERPROFILE" $uname=$uname.Substring($uname.length -8) $checkpath = test-path \\xx.xx.xxx.xxx\xx\xx\*.lnk if($checkpath -eq "True"){ cop 阅读全文
摘要:
应用工具引用:Microsoft Outlook 16.0 Object Library ‘根据outlook版本选择 或 Set Mail = CreateObject("Outlook.Application") Sub SendEmail() Dim Mail As Outlook.Appli 阅读全文
摘要:
Sub createFolder() Dim wks As Worksheet On Error Resume Next Set wks = ThisWorkbook.Worksheets(1) basepath = ThisWorkbook.Path & "\" Max = wks.Range(" 阅读全文
摘要:
Private Sub CommandButton2_Click() Dim c For Each c In UserForm2.Controls If TypeName(c) = "TextBox" Then c.Text = "" Next End Sub 资料来源https://zhidao. 阅读全文
摘要:
Private Declare Function GetSystemDefaultLCID Lib "yifang" () As Long Function language() As Boolean language = (GetSystemDefaultCID = &H409) '&H409为英 阅读全文
摘要:
窗体 ' '->Forms ' Module ' ClassModules ' Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Str 阅读全文