学习笔记

摘要： 下载安装nodejs后进行如下配置： 修改模块安装位置和缓存位置在要存放的位置手动新建全局目录node_global在要存放的位置手动新建缓存目录node_cache执行如下命令：npm config set prefix D:\nodejs\node_globalnpm config set ca 阅读全文

摘要： 'Write XML file Sub WriteXML(fpa$, fn$) Dim xmlfile As String xmlfile = ThisWorkbook.Path & ".\Export.xml" CreateXml xmlfile, fpa, fn End Sub Function CreateXml(xmlfile$, fpa$, fn$) ... 阅读全文

摘要： Sub pjCount() Dim r As Long r = Sheets("Inquery").[A65536].End(xlUp).Row ActiveSheet.PivotTables("A3").PivotCache.SourceData = _ "Inquery!R2C2:R" & r & "C4" ActiveSheet.Pivot... 阅读全文

摘要： 转自EXCELHOME论坛，很实用的事件触发器，在此记下备忘。 阅读全文

摘要： 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 阅读全文