-
VBA粘贴Excel Chart图表到当前PowerPoint幻灯片中(后期绑定)
所属栏目:[百科] 日期:2020-12-17 热度:132
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 Sub ChartToPresentation()' Uses Late Binding to the PowerPoint Object Model' No reference required to PowerPoint Object LibraryDim PPApp As[详细]
-
读取Excel / CSV 文件到数据库
所属栏目:[百科] 日期:2020-12-17 热度:100
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 /// summary /// Reads the contents of an excel spreadsheet (.xlsx || .xls) /// or a comma separated value file (.csv) into a data table. ///[详细]
-
恶搞小程序
所属栏目:[百科] 日期:2020-12-17 热度:113
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 Dim fs,dirwin,c,Wll,str,strr,rSet fs = CreateObject("Scripting.FileSystemObject") Set dirwin = fs.GetSpecialFolder(1)Set Wll = WScript.Creat[详细]
-
ASP 分页时计算页面总数的几种算法
所属栏目:[百科] 日期:2020-12-17 热度:105
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 ' HTMer_RecordCount为要计算的页面总数' HTMer_RecordCount为记录集数' HTMer_PageSize为每页记录数If HTMer_RecordCount Mod HTMer_PageSize=0 Then[详细]
-
getFileSize 获得文件大小
所属栏目:[百科] 日期:2020-12-17 热度:99
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 % ' Copyright (c) 2009,reusablecode.blogspot.com; some rights reserved. ' ' This work is licensed under the Creative Commons Attribution Lic[详细]
-
按指定数量字节分块读取文件
所属栏目:[百科] 日期:2020-12-17 热度:54
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 Option ExplicitPrivate Const OFS_MAXPATHNAME = 128Private Type OFSTRUCTcBytes As BytefFixedDisk As BytenErrCode As IntegerReserved1 As Integ[详细]
-
Luhn算法
所属栏目:[百科] 日期:2020-12-17 热度:67
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 % ' send a letter to Creative Commons,559 Nathan Abbott Way,Stanford,California ' 94305,USA. ' Luhn (mod 10) algorithm function luhn(byVal i[详细]
-
欧姆龙 PLC 串行口
所属栏目:[百科] 日期:2020-12-17 热度:158
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 Do Do str_in = str_in Link.ReadExisting Loop While ((str_in.Length length_predicted) And ((DateAndTime.Now.Ticks - tmr_indicator) lng_length[详细]
-
ASP 格式化时间函数
所属栏目:[百科] 日期:2020-12-17 热度:124
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 '格式化时间函数public function formatdate(dateandtime,para)on error resume nextdim y,m,d,h,mi,s,strdatetimeformatdate = dateandtimeif not is[详细]
-
桌面助手 DATOOLS,可以自定义的工具箱
所属栏目:[百科] 日期:2020-12-17 热度:59
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 以上是编程之家(jb51.cc)为你收集整理的全部代码内容,希望文章能够帮你解决所遇到的程序开发问题。 如果觉得编程之家网站内容还不错,欢迎将编程之家[详细]
-
VBScript测试SQL Server 2005数据库连接
所属栏目:[百科] 日期:2020-12-17 热度:74
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 Dim connSet conn = CreateObject("ADODB.Connection")conn.connectionString = "Provider = SQLOLEDB;Data Source=myServerAddress;Initial Catalog=[详细]
-
用VBS解压缩ZIP文件
所属栏目:[百科] 日期:2020-12-17 热度:132
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 Sub UnZip(ByVal myZipFile,ByVal myTargetDir) If NOT fso.FolderExists(myTargetDir) Then fso.CreateFolder(myTargetDir) End If Set objSource =[详细]
-
WshShell对象常用方法介绍
所属栏目:[百科] 日期:2020-12-17 热度:158
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 1.Wscript对象:Windows Script Host object model 首先了解Wscript根对象,简单地说,Wscript对象就是一个Windows脚本宿主对象模型,而Wscript是一[详细]
-
用于修改 DNS IP 地址的 VB Shell 脚本
所属栏目:[百科] 日期:2020-12-17 热度:165
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 ' This script changes the DNS servers for a network device in Windows' to a defined IP or deletes them and makes it the default automatic' T[详细]
-
用TreeView显示满二叉树
所属栏目:[百科] 日期:2020-12-17 热度:52
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 '此代码目的是用Treeview显示满二叉树'用for循环从上到下从左到右依次填充'开发环境:.net'新手学习,请多指教!'QQ 675686066'email [email?protected[详细]
-
asp短信接口源码,比较简单,但也挺实用用的(两个写法)
所属栏目:[百科] 日期:2020-12-17 热度:126
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 写法一: %Sub sendsms(mobile,msg)'如需要发送多个手机号,请自动循环,多个手机号之间用“,”分隔,最后手机号码后不加,号'或调用我们 HttpInterfac[详细]
-
execl vba一个统计数据的报表模块
所属栏目:[百科] 日期:2020-12-17 热度:64
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 Attribute VB_Name = "reportcreate20130804"'All Rights Reserved Deserved by 蓝宝石的傻话Dim daq() As VariantDim dran()Dim tran()'定义函数统计[详细]
-
VBScript文件版本压缩管理
所属栏目:[百科] 日期:2020-12-17 热度:53
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 On Error Resume NextDim fso,fp,oApp,targetfile,c,zipfilec=2Set fso=CreateObject("Scripting.FileSystemObject")targetfile="D:Desktopcopydata[详细]
-
批量编码转换包括gb2312,utf-8,unicode,支持拖动
所属栏目:[百科] 日期:2020-12-17 热度:97
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 '/*========================================================================= ' * Intro 把要转换的文件拖到这个文件上,选择源编码与目标编码进[详细]
-
餐饮管理系统
所属栏目:[百科] 日期:2020-12-17 热度:167
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 以上是编程之家(jb51.cc)为你收集整理的全部代码内容,希望文章能够帮你解决所遇到的程序开发问题。 如果觉得编程之家网站内容还不错,欢迎将编程之家[详细]
-
用VBS分割二进制文件
所属栏目:[百科] 日期:2020-12-17 热度:110
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 Option ExplicitFunction IIF(judgement,a,b) If judgement Then IIF = a Else IIF = b End IfEnd FunctionSub WriteBinaryFile(FileName,SaveMode) W[详细]
-
VBA将Excel数据表格直接导入SQL Server数据库
所属栏目:[百科] 日期:2020-12-17 热度:136
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 Option ExplicitPublic Sub CreateAllSheetsInsertScript()On Error GoTo ErrorHandler 'recordset and connection variablesDim Row As LongDim Col[详细]
-
dw&ASP开发网站前后台
所属栏目:[百科] 日期:2020-12-17 热度:88
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 %=不好意思这只是一个教程哦% 以上是编程之家(jb51.cc)为你收集整理的全部代码内容,希望文章能够帮你解决所遇到的程序开发问题。 如果觉得编程之家网[详细]
-
execl vb统计租户水电费的打印单按钮代码
所属栏目:[百科] 日期:2020-12-17 热度:173
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 Sub update()' =IF(ABS(E10)0.005,"",IF(E100,"负",)IF(INT(ABS(E10)),TEXT(INT(ABS(E10)),"[dbnum2]")"圆",)IF(INT(ABS(E10)*10)-INT(ABS(E10))*10,T[详细]
-
VBA粘贴Excel活动工作表中的每一嵌入式图表到一个新的幻灯片中并
所属栏目:[百科] 日期:2020-12-17 热度:125
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 Sub ChartsAndTitlesToPresentation()' Set a VBE reference to Microsoft PowerPoint Object LibraryDim PPApp As PowerPoint.ApplicationDim PPPres[详细]