-
VBA在活动的Word文档光标处粘贴选中的Excel Chart图表
所属栏目：[百科] 日期：2020-12-17 热度：137
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Sub ChartToDocument()' Set a VBE reference to Microsoft Word Object LibraryDim WDApp As Word.ApplicationDim WDDoc As Word.Document' Make sur[详细]
-
VB6弹出目录选择对话框
所属栏目：[百科] 日期：2020-12-17 热度：156
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 '=====================================================================================' Browse for a Folder using SHBrowseForFolder API func[详细]
-
GridView实现分页功能
所属栏目：[百科] 日期：2020-12-17 热度：178
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 using System; using System.Data; using System.Configuration; using System.Collections; using System.Web; using System.Web.Security; using Sy[详细]
-
VBScript自动配置Go语言的环境变量及LiteIDE的配置文件
所属栏目：[百科] 日期：2020-12-17 热度：175
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Option ExplicitFunction IsMatch(Str,Patrn) Dim r Set r = new RegExp r.Pattern = Patrn IsMatch = r.test(Str) Set r = Nothing End Function Sub[详细]
-
权限管理MiniUI
所属栏目：[百科] 日期：2020-12-17 热度：148
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 using System;using System.Collections.Generic;using System.Linq;using System.Web;using System.Web.SessionState; //注意使用session时引入命名[详细]
-
ASP 运算时间的函数
所属栏目：[百科] 日期：2020-12-17 热度：115
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 '算天数小时函数function diffuudate(logdate)if datediff("n",logdate,now())60 thendiffuudate = "font color=red"datediff("n",now())"分钟前/font[详细]
-
VBA粘贴选定Excel嵌入式图表到当前PowerPoint幻灯片中
所属栏目：[百科] 日期：2020-12-17 热度：138
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Sub CopyChartsIntoPowerPoint()''' COPY SELECTED EXCEL CHARTS INTO POWERPOINT' Set a VBE reference to Microsoft PowerPoint Object LibraryDim[详细]
-
VB文件分割与合并
所属栏目：[百科] 日期：2020-12-17 热度：183
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 'VB 实现大文件的分割与合并,引用 ADODB.Stream 提供一个过程:'要引用 Microsoft ActiveX Data Objects 2.5 Libary'或 Microsoft ActiveX Data Object[详细]
-
Access 2007/2010解压一个目录下的zip文件为csv文件并上传
所属栏目：[百科] 日期：2020-12-17 热度：136
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Option ExplicitPrivate Const BIF_STATUSTEXT = H4Private Const BIF_RETURNONLYFSDIRS = 1Private Const BIF_DONTGOBELOWDOMAIN = 2Private Const M[详细]
-
ASP.NET 表单验证消息处理
所属栏目：[百科] 日期：2020-12-17 热度：103
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 using ValidationMessage.Controls;namespace ValidationMessage{ public class BasePage : System.Web.UI.Page { public void ShowErrorMessage(stri[详细]
-
取得MSSQL数据库表指定条件行数的函数
所属栏目：[百科] 日期：2020-12-17 热度：134
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 '数据库表行数函数，这是取表的行数Function GetTblRows(TblName) '如果TblName表名值为空，则 if TblName="" Then GetTblRows="未知TblName" exit Fu[详细]
-
一鍵修改hosts
所属栏目：[百科] 日期：2020-12-17 热度：120
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 以上是编程之家(jb51.cc)为你收集整理的全部代码内容，希望文章能够帮你解决所遇到的程序开发问题。 如果觉得编程之家网站内容还不错，欢迎将编程之家[详细]
-
excel模仿word邮件合并输出xls文件或打印
所属栏目：[百科] 日期：2020-12-17 热度：186
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Sub print()for i= range("k6") to range("k7")range("m3")=iactiveSheet.printoutnext iEnd SubSub copybook()Dim cb As StringFor ii = 1 To 100 cb[详细]
-
用VBScript进行Win32窗口编程
所属栏目：[百科] 日期：2020-12-17 热度：56
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 h=GetModuleHandle(0)hIcon=LoadIcon(h,129)hCursor=LoadCursor(0,35512)c=PStr("MyClass")pWndClass=StructPtr(48,11,GetWndProc,h,hIcon,hCursor,16[详细]
-
打印表格数据
所属栏目：[百科] 日期：2020-12-17 热度：122
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Sub GenData()With Sheet1 .[A1].Value = "ssd" .[B1].Value = "sdfa" .[C1].Value = "sfa" .[A2].Value = "sdfas" .[B2].Value = "gdf" .[C2].Value[详细]
-
推送文件到浏览器
所属栏目：[百科] 日期：2020-12-17 热度：199
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 /// summary/// Downloads (pushes) file to the client browser. /// **** NOTE **** Cannot be done from inside an AJAX UpdatePanel control.///[详细]
-
VBScript从剪贴板中取数据
所属栏目：[百科] 日期：2020-12-17 热度：188
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Dim strCopy2Set objIE = CreateObject("InternetExplorer.Application")strCopy2=objIE.document.parentwindow.clipboardData.GetData("text")objIE.[详细]
-
任何文件转成vbs文件的脚本
所属栏目：[百科] 日期：2020-12-17 热度：79
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 'all2vbs.vbs'***********************************************************************************'恢复exe文件的代码'*************************[详细]
-
用类的概念编写asp数据库操作类
所属栏目：[百科] 日期：2020-12-17 热度：153
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 %'----------------------------------------------'{by}D.n.sky '{website}www.desetang.com'{public function}' query(sql) 执行sql' selectRecord([详细]
-
VBS生成随机密码
所属栏目：[百科] 日期：2020-12-17 热度：174
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Option ExplicitFunction GeneratePassword(length) Dim p,s,i,l s = "abcdefghijklmnopqrstuvwxyz" _ "ABCDEFGHIJKLMNOPQRSTUVWXYZ" _ "0123456789"[详细]
-
用通配符搜索指定文件夹中的文件
所属栏目：[百科] 日期：2020-12-17 热度：185
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Sub SearchTheName(objFolder) If arrOptions(Folder_Name) = 1 Then For Each objSubFolder In objFolder.SubFolders strName = objSubFolder.Name I[详细]
-
利用VBA将excel数据表生成JSON文件（utf8）
所属栏目：[百科] 日期：2020-12-17 热度：178
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Sub ToJson() '创建UTF8文本文件 myrange = Worksheets("sheet1").UsedRange '通过有效数据区来选择数据 'myrange = ActiveWorkbook.Names("schoolinf[详细]
-
分割文件并进行Base64编码
所属栏目：[百科] 日期：2020-12-17 热度：55
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Option ExplicitFunction IIF(judgement,a,b) If judgement Then IIF = a Else IIF = b End IfEnd FunctionFunction Base64Bytes() Dim xmldom,nodeSe[详细]
-
多个Excel文件的第一个工作表（Sheet）合并到一个Excel文件的多
所属栏目：[百科] 日期：2020-12-17 热度：115
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 '功能：把多个工作簿的第一个工作表合并到一个工作簿的多个工作表，新工作表的名称等于原工作簿的名称Sub Books2Sheets() '定义对话框变量 Dim fd As[详细]
-
VB.NET 人民币大小写（正负）的代码
所属栏目：[百科] 日期：2020-12-17 热度：61
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Sub ChangeSize_Selected(ByVal sender As Object,ByVal e As EventArgs) panel1.Width = papersize.SelectedValue End Sub Function ConvertToRMB(By[详细]
