摘要：
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. 阅读全文
摘要：
Option Explicit Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long Private Sub Form_Load() Dim LocaleID As Long LocaleID = GetSys 阅读全文
摘要：
窗体 ' '->Forms ' Module ' ClassModules ' Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Str 阅读全文
摘要：
模版表名Template sheet25 数据列表名sheet1 打印程序 Sub PrintLabel() With ThisWorkbook.Sheets("Sheet1") limitmax = .Range("B10000").End(xlUp).Row For i = 2 To limit 阅读全文
摘要：
import pandas as pd import pyodbc import time # 文件路径及文件名 mdb_file = r"X:\xxx.accdb" driver = '{Microsoft Access Driver (*.mdb, *.accdb)}' cnxn = pyodb 阅读全文
摘要：
Server: import socket # 创建socket tcp_server_socket = socket.socket(socket.AF_INET, socket.SOCK_STREAM) # 本地信息 address = ('服务器ip', 3000) # 绑定 tcp_serve 阅读全文
摘要：
Sub GetSheetName() Dim Path As String Dim File As String Dim WB As Workbook Dim sht As Worksheet Dim arr() As String Dim narr() As String Application. 阅读全文