随笔分类 - .net / VBA
摘要：休息日，无聊的上Excel Home看看有啥东东可学习，有啥问题能帮帮忙。看到很多帖子都是求助遍历特定文件夹下文件的实现方法。有朋友说03版Excel有FileSearch对象可以遍历文件夹下文件，07版中没有了FileSearch对象，不知如何遍历文件。我想03版能做的事，07版肯定能做啊，要不然不是倒退？于是搜寻一番，还真是取消了FileSearch对象啊！不过还有Scripting.FileSystemObject可以用，实现如下：Sub main() Dim fs, fold, fls, fl Set fs = CreateObject("Scripting.FileSyst
阅读全文
摘要：1. VBA命名规则一个好的命名规则可以提高程序的可读性，减少错误发生的概率，命名规则不是一定的，不同的人有不同的规则和习惯，但在编程过程中，对于个人或工作组，一定要遵守相同的命名规则。1.1. 变量、常量、自定义类型和枚举表 1‑1概括了变量、常量的基本命名规则。表 1‑1 变量、常量和枚举类型的命名规则元素命名规则变量<范围><数组><数据类型>描述（首字母大写）常量<范围><数据类型>描述（全部大写）用户自定义类型Type 描述名称 <数据类型>描述End Type枚举类型Enum <工程前缀>一般描述
阅读全文
摘要：这两天很无奈的又用到了Access数据库，结果被bool数据类型摆了一道。bool在access中的帮助信息："是”和“否”值，以及只包含两者之一的字段（Yes/No、True/False 或 On/Off）。而在MsSql,MySql 中都是bit 表示为1 或 0 的整数数据。MsSql 中的查询语句：select * from user where valid=1 可以直接在MySql中用，但要在Access中用必须写成：select * from user where valid=true|false 或者 valid=yes|no 或者 valid=on|off
阅读全文
摘要：Sub CreateAfile Dim fso,MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile("C:\111.tmx",True,True) MyFile.WriteLine("这只是个测试") MyFile.CloseEnd Subcall CreateAfileSet Stream = CreateObject("adodb.stream") ‘定义常量 Const adTy
阅读全文
摘要：俺们有两个邮箱，1个外部的邮箱1（outlook），1个内部邮箱0（lotus notes）。想要outlook邮箱收到新邮件之后判断一下subject的内容，如果是"kkk:"开头，则将"kkk:"后面的内容作为to发到lotus notes的邮箱里面去。测试环境（xp＋msft outlook），按alt+F11进入VBA编辑。注意要在工具 -> 宏 -> 安全性中设置为低。部分代码如下（手抄的，可能有错哦～～）：option explicitpublic WithEvents outApp as Outlook.ApplicationS
阅读全文
摘要：我每天所收到的e-mail中，订阅的电子杂志占了很大的比例。其中既有新闻也有电脑技术或娱乐性文章，加在一起竟有上百封。后来我知道单位里许多人同我一样也喜欢看，而且有的人还订了同样的杂志，所以我就每天收到邮件后把它们整理到局域网上去。只是这么多的邮件，整理起来工作量可不小，怎么解决一下呢？ 这些邮件通常都是HTML格式的，用Outlook通常的方法不能正确的导出，而且分布在许多下层子夹中，导出很麻烦。我在OUTLOOK中，用VBA实现了HTML邮件导出并自动发布到网络上。 要对邮件箱里的邮件进行操作，首先要取得Outlook MAPI名字空间。可以使用下面的语句： Dim mobjO...
阅读全文
摘要：Dim Conn1 As ADODB.Connection Dim Cmd1 As ADODB.Command Dim Rs1 As ADODB.Recordset Dim strTmp As String Dim Connect As String Dim Drop As String Dim Create As String Dim sp as string Dim i As Integer Dim l As Long sConnect= "driver={sql server};" & _ "server=server_name;"
阅读全文
摘要：Sub Mail_Text_in_Body()Dim msg As String, cell As RangeDim Recipient As String, Subj As String, HLink As StringDim Recipientcc As String, Recipientbcc As StringRecipient = "someone@21cn.com"Recipientc...
阅读全文
摘要：如果只是关闭当前工作簿，可以用：ThisWorkBook.Close False如果要关闭所有工作簿并退出程序，可以试试：Sub aa()Application.QuitIf Workbooks.Count > 1 ThenFor i = 1 To Workbooks.CountSendKeys "{right}"SendKeys "{right}"SendKeys "{enter}"Nex...
阅读全文
摘要：[代码]thisworkbookPrivate Sub Workbook_Open() Call CreateEPOBarEnd Sub
阅读全文
摘要：昨天被人问到这样一个问题：他们的SQL Server服务器经常会出现这样的情况，某个时间点的进程数能一下子到达几百个。排除了被人攻击的可能性，我帮他们分析下来可能是应用程序里面不恰当地使用了连接池导致的。他们的程序是jsp的，通过tomcat服务器运行。关于连接池技术，我之前也有专门的文档介绍过。这里再截几个图来说明一下【备注】使用连接池技术的主要考虑是对于某些访问数据库很频繁的应用，该技术可以提...
阅读全文
摘要：很多朋友都知道在Web Service中支持Windows验证。但其实能用好的朋友并不是特别多，因为有几个特殊之处需要注意1. 在服务端如何配置 这里要注意的是，authentication的mode默认就是windows，但光是设置这个模式则毫无用处。必须同时设置有关的authorization规则。并且不要光是allow，最后一定要deny掉所有没有被allow的用户或者组服务必须发布到IIS...
阅读全文
摘要：有几个关键点1. Web Service必须启动http Get这个协议的支持2. VBA程序中是要用到SOAP Toolkit这个COM组件库的，目前的版本为3.0下载地址http://www.microsoft.com/downloads/details.aspx?FamilyId=C943C0DD-CEEC-4088-9753-86F052EC8450&displaylang=en ...
阅读全文
摘要：1.添加引用MicrosoftOutlook 11.0 Object Library。（这里用的是Microsoft Outlook 2003）2.定义发送邮件过程。Public Sub SendEmail(Receiver As String, SubjectText As String, BodyText As String, AttachedObject As String) Dim Out...
阅读全文
摘要：1．进入Visual Basic编辑器，选择 插入-用户窗体，即生成一个userform1，从右下方的属性栏中（右键单击可以选择弹出属性栏），将caption设置为“正在进行模拟运算……”（这是一个标题，你自己可以随便取名字），width设置为350，Height设置为50。 2．紧接着需要插入四个Label标签（即控件工具栏中的大写字母A，如下图1）。 3．Label1放置在UserForm1...
阅读全文
浙公网安备 33010602011771号