学习笔记

摘要： If rs.RecordCount > 0 Then .Range("AF4").Value = pjno MsgBox "This project number does exists Please create a new one !", 16 .Range("A1:AH56").Locked =... 阅读全文

摘要： Private Const BITS_TO_A_BYTE = 8 Private Const BYTES_TO_A_WORD = 4 Private Const BITS_TO_A_WORD = 32 Private m_lOnBits(30) Private m_l2Power(30) Private Function LShift(lValue, iShiftBits) If iShif... 阅读全文

摘要： 功能:ListView控件实现连接数据库实现显示查询数据功能。 图片: 代码： Private Sub CommandButton1_Click() Dim res As String res = TextBox1.Text Call UserFormabc(res) End Sub 'ItemCl 阅读全文

摘要： Option Explicit Sub 读取XML节点() '后期绑定 'Dim xdoc As Object 'Set xdoc = CreateObject("MSXML2.DOMDocument") '前期绑定 Dim xdoc As New DOMDocument60 '声明的同时创建XML对象 Dim b As Boolean, root As IXMLDOMElement b = x... 阅读全文

摘要： 需要引用连个库，Microsoft ADO Ext. 6.0 for DDL and Security, Miscrosoft ActiveX Data Objects 2.7 Library . 阅读全文

摘要： Sub bluejson() 'ok Dim aa Set x = CreateObject("ScriptControl"): x.Language = "JScript" aa = "{""myname"":""Michael"",""myaddress"":{""city"":""Beijing"",""stree 阅读全文

摘要： 方法1. 用VBA自带的dir()判断，代码如下： 在 Microsoft Windows 中， Dir 支持多字符 (*)和单字符 (?) 的通配符来指定多重文件 方法2. 用Windows的文件系统函数进行判断，代码如下： 阅读全文

摘要： Option Explicit 'read Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _ (ByVal lpApplicationName As String, _ ... 阅读全文

摘要： 功能：根据项目号和步骤ID，更新指定步骤完成时间。这里里边要匹配两个条件一个是项目ID “”projectID“” 另一个是 “”StepID“” 步骤ID。 阅读全文

摘要： 功能：判断EXCEL指定单元格区域内的数据在数据库中是否存在如果存在将更新指定区域单元格内的数据到数据库中，如果有区域内有新增的数据那么将新增的数据添加到数据库。 如果指定区域内的数据在数据库中不存在将添加指定区域内单元格的数据到数据库中。 代码 阅读全文