ben9518chen的博客

CStr 函数示例本示例使用 CStr 函数将一数值转换为 String。Dim MyDouble, MyStringMyDouble = 437.324   ' MyDouble 为 Double 类型。MyString = CStr(MyDouble)   ' MyString 的内容为“437.324”。CInt 函数示例本示例使用 CInt 函数将一数值转换为 Integer。...

一、（1）左部截取left$(字符串,n）：n是要截取的字符个数（2）中部截取Mid$(字符串,p,n):表示从第p个字符开始截取n个字符（3）右部截取Right$(字符串,n):表示截取字符串的后n个字符如：left$("abcdefg",3)的结果是："abc"mid$("abcdefg",2,3)的结果是:"bcd"right$("abcdefg",3)的结果是："efg&quo

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

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

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

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