学习笔记

摘要： 需要引用连个库，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指定单元格区域内的数据在数据库中是否存在如果存在将更新指定区域单元格内的数据到数据库中，如果有区域内有新增的数据那么将新增的数据添加到数据库。 如果指定区域内的数据在数据库中不存在将添加指定区域内单元格的数据到数据库中。 代码 阅读全文

摘要： 'Upload File to the specific folder Sub UploadImages(s$, c$) 's$ Buttom number 'c$ Specify a location to show image 'souf$ The local path of the image file 'des$ The dest path of the i... 阅读全文

摘要： 附上删除的图形类型见下表： 阅读全文

摘要： 效果：每次提交或刷新标段，表单案指定格式实现自动编号。如当天日期加数字编号的格式 即 2019年2月3日产生的第一张表单产生的编号格式为20190203-001 以此类推第二张表单编号为20190203-002 如果日期发生变化，那么日期后面的编号也从1开始。如2019年2月4日那么，他的编号201 阅读全文

摘要： Chrome默认关闭对SSL3.0的支持，无法访问一些Web应用。可以手动打开他。 启动chrome依次选择 设置->高级->系统->打开代理设置->安全 将使用SSL 3.0打开。 阅读全文