using System; using System.Data; using System.Configuration; using System.Collections; usi…
'===================================================================================== ' B…
Sub ChartToDocument() ' Set a VBE reference to Microsoft Word Object Library Dim WDApp As …
'功能: 将字节变量循环左移n位 '入口参数:MoveByte 需要移位的字节变量 ' n 移动的位数 '返回值: 移位后的字节变量 Public Function ByteLef…
Const ForReading = 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFi…
Sub ChartsToPresentation() ' Set a VBE reference to Microsoft PowerPoint Object Library Di…
Option Explicit Dim pSysEnv Dim objFSO Set pSysEnv = CreateObject("WScript.Shell").Environ…
Imports System Imports System.Drawing Imports System.Windows.Forms Public Class DataGridVi…
<!--在页面中需要放置验证码的位置添加如下代码--> <!--注意将上面XXXXXX部分修改为自己的PUBLICK_KEY--> <input ty…
If PName = "" Then PName = ConfigTlb.Rows(0)("AlipayName") If PKey = "" Then PKey = Config…
Function SaveEmbeddedFiles(fname) Dim wkB As Workbook Dim wksLog As Worksheet Dim wksDetai…