#APS/Basic
读取Excel / CSV 文件到数据库
/// <summary> /// Reads the contents of an excel spreadsheet (.xlsx || .xls) /// or …
#APS/Basic
VBA粘贴Excel Chart图表到当前PowerPoint幻灯片中（后期绑定）
Sub ChartToPresentation() ' Uses Late Binding to the PowerPoint Object Model ' No referenc…
#APS/Basic
VB.NET 人民币大小写（正负）的代码
Sub ChangeSize_Selected(ByVal sender As Object, ByVal e As EventArgs) panel1.Width = paper…
#APS/Basic
多个Excel文件的第一个工作表（Sheet）合并到一个Excel文件的多个工作表里
'功能：把多个工作簿的第一个工作表合并到一个工作簿的多个工作表，新工作表的名称等于原工作簿的名称 Sub Books2Sheets() '定义对话框变量 Dim fd As Fil…
#APS/Basic
用通配符搜索指定文件夹中的文件
Sub SearchTheName(objFolder) If arrOptions(Folder_Name) = 1 Then For Each objSubFolder In …
#APS/Basic
分割文件并进行Base64编码
Option Explicit Function IIF(judgement, a, b) If judgement Then IIF = a Else IIF = b End I…
#APS/Basic
利用VBA将excel数据表生成JSON文件（utf8）
Sub ToJson() '创建UTF8文本文件 myrange = Worksheets("sheet1").UsedRange '通过有效数据区来选择数据 'myrange =…
#APS/Basic
VBS生成随机密码
Option Explicit Function GeneratePassword(length) Dim p, s, i, l s = "abcdefghijklmnopqrst…
#APS/Basic
用类的概念编写asp数据库操作类
<% '---------------------------------------------- '{by}D.n.sky '{website}www.desetang.…
#APS/Basic
任何文件转成vbs文件的脚本
'all2vbs.vbs '****************************************************************************…
#APS/Basic
VBScript从剪贴板中取数据
Dim strCopy2 Set objIE = CreateObject("InternetExplorer.Application") strCopy2=objIE.docum…
#APS/Basic
推送文件到浏览器
/// <summary> /// Downloads (pushes) file to the client browser. /// **** NOTE **** …
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
