2024年2月23日
powershell 制作工具菜单
摘要： function mainMenu { $mainMenu = 'X' while($mainMenu -ne ''){ Clear-Host Write-Host "`n`t`t My Script`n" Write-Host -ForegroundColor Cyan "Main Menu" W 阅读全文
posted @ 2024-02-23 15:49 tec2019 阅读(3) 评论(0) 推荐(0) 编辑
用IE打开指定网址
摘要： 虽然IE已经过时，微软已经不再支持IE，已经全面切换到了Edge,尽管edge人有ie兼容模式但是一些老的web应用仍然状况频出，但是IE 已经不能直接打开了。 于是只能周曲线了，可以通过powershell脚本来运行IE，具体如下。 $Url = "https://127.0.0.1/defaul 阅读全文
posted @ 2024-02-23 15:05 tec2019 阅读(14) 评论(0) 推荐(0) 编辑
文件自动拷贝到桌面及设置桌面显示此电脑
摘要： uname = "$env:USERPROFILE" $uname=$uname.Substring($uname.length -8) $checkpath = test-path \\xx.xx.xxx.xxx\xx\xx\*.lnk if($checkpath -eq "True"){ cop 阅读全文
posted @ 2024-02-23 14:13 tec2019 阅读(4) 评论(0) 推荐(0) 编辑
2023年10月10日
vba发送电子邮件利用outlook
摘要： 应用工具引用：Microsoft Outlook 16.0 Object Library ‘根据outlook版本选择 或 Set Mail = CreateObject("Outlook.Application") Sub SendEmail() Dim Mail As Outlook.Appli 阅读全文
posted @ 2023-10-10 11:11 tec2019 阅读(199) 评论(0) 推荐(0) 编辑
2023年9月11日
VBA批量创建文件夹
摘要： Sub createFolder() Dim wks As Worksheet On Error Resume Next Set wks = ThisWorkbook.Worksheets(1) basepath = ThisWorkbook.Path & "\" Max = wks.Range(" 阅读全文
posted @ 2023-09-11 16:08 tec2019 阅读(80) 评论(0) 推荐(0) 编辑
2023年8月18日
VBA清除所有Textbox
摘要： Private Sub CommandButton2_Click() Dim c For Each c In UserForm2.Controls If TypeName(c) = "TextBox" Then c.Text = "" Next End Sub 资料来源https://zhidao. 阅读全文
posted @ 2023-08-18 14:41 tec2019 阅读(94) 评论(0) 推荐(0) 编辑
2023年8月9日
VBA判断系统系统语言
摘要： Private Declare Function GetSystemDefaultLCID Lib "yifang" () As Long Function language() As Boolean language = (GetSystemDefaultCID = &H409) '&H409为英 阅读全文
posted @ 2023-08-09 10:40 tec2019 阅读(40) 评论(0) 推荐(0) 编辑
2023年8月1日
Excel VBA 窗体UserForm制作菜单栏与添加窗体最大化最小化功能(转载)
摘要： 窗体 ' '->Forms ' Module ' ClassModules ' Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Str 阅读全文
posted @ 2023-08-01 13:27 tec2019 阅读(723) 评论(0) 推荐(0) 编辑
2023年2月6日
批量通过模板打印
摘要： 模版表名Template sheet25 数据列表名sheet1 打印程序 Sub PrintLabel() With ThisWorkbook.Sheets("Sheet1") limitmax = .Range("B10000").End(xlUp).Row For i = 2 To limit 阅读全文
posted @ 2023-02-06 16:12 tec2019 阅读(56) 评论(0) 推荐(0) 编辑
2022年11月1日
导出ACCESS表到EXCEL工作表
摘要： import pandas as pd import pyodbc import time # 文件路径及文件名 mdb_file = r"X:\xxx.accdb" driver = '{Microsoft Access Driver (*.mdb, *.accdb)}' cnxn = pyodb 阅读全文
posted @ 2022-11-01 11:11 tec2019 阅读(123) 评论(0) 推荐(0) 编辑
下一页