#APS/Basic

API方式读写文本文件

Option Explicit Private Const OFS_MAXPATHNAME = 128 Private Type OFSTRUCT cBytes As Byte f…

#APS/Basic

VBA粘贴Excel活动工作表中的每一嵌入式图表到一个新的幻灯片中并使用图表标题作为幻灯片标题

Sub ChartsAndTitlesToPresentation() ' Set a VBE reference to Microsoft PowerPoint Object L…

#APS/Basic

execl vb统计租户水电费的打印单按钮代码

Sub update() ' =IF(ABS(E10)<0.005,"",IF(E10<0,"负",)&IF(INT(ABS(E10)),TEXT(INT(AB…

#APS/Basic

dw&ASP开发网站前后台

<%=不好意思这只是一个教程哦%>

#APS/Basic

VBA将Excel数据表格直接导入SQL Server数据库

Option Explicit Public Sub CreateAllSheetsInsertScript() On Error GoTo ErrorHandler 'recor…

#APS/Basic

餐饮管理系统

#APS/Basic

用VBS分割二进制文件

Option Explicit Function IIF(judgement, a, b) If judgement Then IIF = a Else IIF = b End I…

#APS/Basic

批量编码转换包括gb2312,utf-8,unicode,支持拖动

'/*========================================================================= ' * Intro 把要转…

#APS/Basic

VBScript文件版本压缩管理

On Error Resume Next Dim fso,fp,oApp,targetfile,c,zipfile c=2 Set fso=CreateObject("Script…

#APS/Basic

execl vba一个统计数据的报表模块

Attribute VB_Name = "reportcreate20130804" 'All Rights Reserved Deserved by 蓝宝石的傻话 Dim daq…

#APS/Basic

asp短信接口源码，比较简单，但也挺实用用的（两个写法）

写法一： <% Sub sendsms(mobile,msg) '如需要发送多个手机号，请自动循环，多个手机号之间用“,”分隔，最后手机号码后不加,号 '或调用我们 Http…

#APS/Basic

用TreeView显示满二叉树

'此代码目的是用Treeview显示满二叉树 '用for循环从上到下从左到右依次填充 '开发环境:.net '新手学习，请多指教！ 'QQ 675686066 'email lei…