77家的会客2010

Lotus Notes C/S模式下导出当前VIEW的数据到EXCEL

 

 

前提:机器上当然要状有EXCEL了

将下面的代码直接放到VIEW的一个ACTION按钮上就行了

这个还包含了前一篇的进度条的功能

Lotus Notes中C/S模式下进度条的使用

 

实现有两种方法,第一种比较简单,就是在status栏里print出文本,不过这个方法比较笨,但是很保险,基本上不会出什么问题。代码如下:

REM "From Erden Eruc @ NGSINC"

Dim i As Integer
Dim s As String
     
'Is this 100 meter dash? no it is a meter with 100 dashes :)
     
s = "--------------------------------------------"&_
"--------------------------------------------------------"
For i = 1 To 100
  s = Left( Chr(1) & s, 100 )
  If i<10 Then
    Print "Percent Done:    "& Str(i)&"% - " & s 
  Elseif i = 100 Then
    Print "Percent Done:"& Str(i)&"% - " & s
  Else
    Print "Percent Done:  "& Str(i)&"% - " & s
  End If
Next
Print "Percent Done: 100% - Job complete..."

 

另一种就是NOTES本身带的那种图形界面的,这个当然对用户比较友好,但由于NOTES并没有公开这个API,我们就不得不自己来调用了,如下面代码,使用下面的代码有一定风险,如果是在DEBUG模式,或是使用过程中出错了,那么整个NOTES客户端会被lock住,所以使用下面代码的时候,一定要加异常处理,确保代码最后一句一定要被执行。

 
VBProject:代码操作代码之常用语句 (转)

 

 

一、增加模块 
1.增加一个模块,命名为“我的模块”  
  ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "我的模块" 
  系统常量vbext_ct_StdModule=1 
2.增加一个类模块,命名为“我的类”  
  ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_ClassModule).Name = "我的类"  
  vbext_ct_ClassModule=2  
3.增加一个窗体,命名为“我的窗体” 
  ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm).Name = "我的窗体" 
  vbext_ct_MSForm=3  
二、删除模块  。。。
Excel中VBA使用的一些总结

 

最近用VBA写了不少工作 上用的工具,一些常用或是容易出错的拿出来分享一下

1、检查一个XLS里是否存在指定SHEET页

Function SheetExists(ByVal wb As Workbook, ByVal SheetName As String) As Boolean
' returns TRUE if the sheet exists in the active workbook
    SheetExists = False
    On Error GoTo NoSuchSheet
    If Len(wb.Sheets(SheetName).Name) > 0 Then
        SheetExists = True
        Exit Function
    End If
NoSuchSheet:
    SheetExists = False
End Function
 
批处理for命令详解(转)

 

FOR这条命令基本上都被用来处理文本,但还有其他一些好用的功能!
看看他的基本格式(这里我引用的是批处理中的格式,直接在命令行只需要一个%号)
FOR 参数 %%变量名 IN (相关文件或命令) DO 执行的命令
参数:FOR有4个参数 /d   /l   /r   /f   他们的作用我在下面用例子解释 
%%变量名 :这个变量名可以是小写a-z或者大写A-Z,他们区分大小写,FOR会把每个读取到的值给他; 
IN:命令的格式,照写就是了; 
(相关文件或命令) :FOR要把什么东西读取然后赋值给变量,看下面的例子 
do:命令的格式,照写就是了! 
执行的命令:对每个变量的值要执行什么操作就写在这.
可以在CMD输入for /?看系统提供的帮助!对照一下