2019年03月_ben9518chen

原创 VBA-ThisWorkbook.Path

Workbooks.Open ("C:\对账单\对帐单.xlsx")这里你可以把“C:\对账单\”换成你的绝对路径，你可以用：a = ThisWorkbook.Patha = ThisWorkbook.PathWorkbooks.Open ("" & a & "&" \ "&对帐单.xlsx")...

2019-03-28 09:16:12 11094

转载 VB Lutesscript直接跳过错误继续下一句执行

在vb中，可以在程序产生错误时，直接跳过错误继续下一句执行，其代码是：on error resume next当然，我们也可以在报错时，直接跳转到指定的地方：on error goto aaa....aaa:msgbox “ERROR”...

2019-03-28 08:35:14 1418

原创 Domino出现的安全异常：java.lang.SecurityException:禁止创建

在用Java调用一个webservice引用时，出现的安全异常：java.lang.SecurityException:禁止创建此问题是因为Domino服务器上的java代理的运行权限太低，服务器不允许执行该操作，修改代理运行时安全级别就行...

2019-03-28 08:34:41 850

转载 C#执行cmd并返加结果

using System;using System.Collections;using System.Collections.Generic;using System.Diagnostics;using System.Linq;using System.Text;namespace server{ class Cmd { /// <summa...

2019-03-27 11:27:14 271

原创一个简单的c#基于TCP通讯的服务器

using System;using System.Collections;using System.Collections.Generic;using System.Diagnostics;using System.Linq;using System.Net;using System.Net.Sockets;using System.Text;using System.Thre...

2019-03-27 11:25:43 3443

原创 C语言读CMD结果方法

#include <stdio.h>#include <stdlib.h>#include<string.h>// 描述:execmd函数执行命令，并将结果存储到result字符串数组中// 参数:cmd表示要执行的命令// result是执行的结果存储的字符串数组// 函数执行成功返回1，失败返回0 int execmd(char* cmd...

2019-03-22 17:01:26 573

原创 EXCEL 电子位号补全如（R83-85）

Sub 按钮1_Click() Dim strD As String Dim globalIndex As Integer globalIndex = 2 Set mysheet1 = ThisWorkbook.Worksheets("Sheet3") While mysheet1.Cells(globalIndex, 4) <> "" ...

2019-03-22 09:07:18 395

原创域控电脑判断有没有安装某个软件

Dim Process '进程名Dim path '安装包位置 Dim pakgeName '安装包名Dim temp '临时存放路径Dim oShell Dim fsoSet fso = CreateObject("Scripting.FileSystemObject")Set oShell= CreateObject("WScript.Shell")Process = ...

2019-03-13 14:19:33 2603

转载如何让批处理命令在后台执行

Set ws = CreateObject("Wscript.Shell") ws.run "cmd /c test",vbhide

2019-03-11 09:05:36 1454

ben9518chen的博客