摘要：
功能：根据项目号和步骤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打开。 阅读全文
摘要：
1 向指定单元格区域内写入数据 Sub example1() Dim arr(1 To 3) arr(1) = Array("A", "B", "C", "D") arr(2) = Array("E", "F", "G", "H") arr(3) = Array("I", "J", "K", "L" 阅读全文
摘要：
每月月底要和人事要离职人员名单，并账号列表里删除已经离职人员的账号，如下代码通过将账号列表与人事发来的离职清单进行对比，高亮找出离职人员的账号，并进行删除。 阅读全文
摘要：
Public Sub GetIPT() gipt = Trim(InputBox("请输入所在组，只需输入前面的字母代码即可 A- groupA B-groupB C-groupC D-groupD E-groupD ")) strIPT = UCase(gipt) If strIPT = "A" Then GetInfo ("AirBus"): End If s... 阅读全文
摘要：
Sub clData() Dim ComputerCount As Object tms = Timer p = ThisWorkbook.Path & "\" f = Dir(p & "*.xls") Application.ScreenUpdating = False tms = Timer On Error Resume Next ... 阅读全文