#APS/Basic

打印表格数据

Sub GenData() With Sheet1 .[A1].Value = "ssd" .[B1].Value = "sdfa" .[C1].Value = "sfa" .[A…

#APS/Basic

用VBScript进行Win32窗口编程

h=GetModuleHandle(0) hIcon=LoadIcon(h,129) hCursor=LoadCursor(0,35512) c=PStr("MyClass") p…

#APS/Basic

取得MSSQL数据库表指定条件行数的函数

'数据库表行数函数，这是取表的行数 Function GetTblRows(TblName) '如果TblName表名值为空，则 if TblName="" Then GetTbl…

#APS/Basic

excel模仿word邮件合并输出xls文件或打印

Sub print() for i= range("k6") to range("k7") range("m3")=i activeSheet.printout next i En…

#APS/Basic

一鍵修改hosts

#APS/Basic

ASP.NET 表单验证消息处理

using ValidationMessage.Controls; namespace ValidationMessage { public class BasePage : Sy…

#APS/Basic

Access 2007/2010解压一个目录下的zip文件为csv文件并上传

Option Explicit Private Const BIF_STATUSTEXT = &H4& Private Const BIF_RETURNONLYFS…

#APS/Basic

VB文件分割与合并

'VB 实现大文件的分割与合并,引用 ADODB.Stream 提供一个过程: '要引用 Microsoft ActiveX Data Objects 2.5 Libary '或 …

#APS/Basic

VBA粘贴选定Excel嵌入式图表到当前PowerPoint幻灯片中

Sub CopyChartsIntoPowerPoint() ''' COPY SELECTED EXCEL CHARTS INTO POWERPOINT ' Set a VBE …

#APS/Basic

ASP 运算时间的函数

'算天数小时函数 function diffuudate(logdate) if datediff("n",logdate,now())<60 then diffuudate…

#APS/Basic

权限管理MiniUI

using System; using System.Collections.Generic; using System.Linq; using System.Web; using…

#APS/Basic

VBScript自动配置Go语言的环境变量及LiteIDE的配置文件

Option Explicit Function IsMatch(Str, Patrn) Dim r Set r = new RegExp r.Pattern = Patrn Is…