
VB + VBA
文章平均质量分 66
DJ2008
这个作者很懒,什么都没留下…
展开
-
转:VB/VBScript读取和保存UTF-8文件方案
转: http://www.cnblogs.com/waver/articles/1283842.html=============================== VB Code =============================== Public Function SaveFile(FileName As Variant, strFileBody As Varia转载 2009-07-29 09:53:00 · 1980 阅读 · 0 评论 -
Access 在VBA中实现数据导出到Excel
http://hi.baidu.com/ohmyidea/item/e2bf6819735b6a34b93180cc1.添加引用Microsoft Excel 11.0 Object Library。(这里用的是Microsoft Excel 2003)2.定义获取数据集通用函数。Public Function GetRS(ByVal strQuer转载 2014-02-26 22:55:54 · 9986 阅读 · 0 评论 -
Access VBA 学习笔记 技巧
1, 最关键的Object : DoCmdDoCmd.RunSQLDoCmd.OpenFormDoCmd.OpenQueryDoCmd.OpenTableDoCmd.Quit2, 数据的绑定:Me.frmChild.Form.RecordSource = strSQL 3,关键的查询:If DLookup("[comSale]", "tblSale原创 2014-02-15 15:30:26 · 7499 阅读 · 0 评论 -
Access 2007/2010 VBA查询结果导出为Excel 2007文件
01Private Sub Form_Load02 Data_Table.SourceObject = "Query.Data View"03 Data_Table.Visible = False04End Sub转载 2014-03-08 13:57:46 · 4327 阅读 · 0 评论 -
在VB和VB.NET程序中判断当前是否运行于开发环境中
'方法一:Private Function IsIDE() As Boolean Static bInIDE As Boolean bInIDE = Not bInIDE If bInIDE Then Debug.Assert IsIDE() Or True IsIDE = Not bInIDE End IfEnd Functi转载 2014-03-19 19:46:20 · 3939 阅读 · 0 评论 -
如何使用 CoCreateGUID API 生成与 VB 6 的 GUID
http://support.microsoft.com/kb/176790/zh-cn下面的代码可用于创建在 Visual Basic 中的 GUID。该代码调用 CoCreateGuid API OLE32.DLL 上 Windows 95、 Windows 98、 Windows Me、 Windows NT 和 Windows 2000 中找到。若要正确地调用了 API转载 2014-10-09 09:18:19 · 2239 阅读 · 0 评论 -
VBA中实现数组排序的多种方法
VBA里面没有现成的Sort方法可以使用,VBA里面要对数组进行排序,现有的通常做法: 1,通过单元格赋值以后利用工作表里的Sort方法进行排序, 2,通过SQL实现,也需要调用单元格区域存放数据, 3,直接写循环语句通过算法来实现。除了上述方法以外,借助一些其他语言工具与VBA相结合,也能利用现成的排序功能来实现数组排序,而不需要借助表格。 例如JavaScript:JavaScript里转载 2015-08-25 09:40:59 · 25777 阅读 · 2 评论 -
VB 中的BatchUpdate 使用
引子由于旧系统的维护,仍偶尔使用vb6, 发现要真正有效使用 Recordset 的 Batchupdate 方法,还必须配合别一个参数才可以,否则和正常的 Update 没有什么区别,无法发挥 Batch 的批量更新作用,及加快保存速度。示例代码' 设定批量更新时使用的缓冲记录数量,即代码一次性批量更新的记录数量rstImportDtl.CacheSize = 20000 ...原创 2017-05-25 11:35:52 · 2455 阅读 · 0 评论 -
用VB 代码读取 Excel 内容
常规的方法可能是循环读取每一行每一个格子的内容并存入 Recordset 并保存 此处使用Open Recordset 的方式,将 Excel Worksheet 作为一个数据源直接读取 速度将是数理级的差别,几万笔记录的情况下,将由几十秒,甚至几分钟,加快至几稍钟'导入Excel 文件内容'Excel 格式为 Excel 2007 之上的 .xlsx 格式,需使用 ACE 读取'原创 2017-05-25 11:16:20 · 14038 阅读 · 2 评论 -
利用VBA处理Excel 2007中的表
在Excel对象模型中,表(Table)由ListObjects对象代表。下面列举一些在Excel 2007中使用VBA处理表的示例代码。http://www.blue1000.com/bkhtml/c118/2008-11/59082.htm- - - - - - - - - - - - - - - - - - - -创建表下面的代码将某区域转换为表。Sub转载 2013-11-19 19:27:20 · 3372 阅读 · 0 评论 -
关于Visual Basic 6.0类开发
http://bbs.youkuaiyun.com/topics/30027629对程序员和编程爱好者来说,VB中类的技术是学习中的一个难点,在大型软件的开发过程中,模块(Moudle)、控件(Active ocx)、链接库(Active dll)和类(Class moudle)构成了系统化、高效化的软件工程,而类的技术是控件和链接库技术的基础,因此掌握类的理论和编程方法是非常有意义的。(转载 2013-11-19 16:12:06 · 1115 阅读 · 0 评论 -
VB6 中,输出 Excel 功能合集
相关功能为以前在 VB 中写的一个通用的 Model ,以方便调用Excel 功能,并进行输出和格式处理。原创 2010-06-01 15:52:00 · 1673 阅读 · 0 评论 -
VB6 中实现图标显示在系统右下角托盘的方法
VB6 中实现图标显示在系统右下角托盘的方法原创 2010-06-01 16:01:00 · 6653 阅读 · 1 评论 -
VB6 自动创建 ODBC
早期的一些VB6 程序,由于使用不同的方法,或使用Crystal Report, 需要用到ODBC,但却需要手工提前建立。而对大量用户使用时,需要维护人员到不同的电脑上建立ODBC, 其实上用代码的方法可以很简单的进行自动创建。原创 2010-06-02 17:24:00 · 1672 阅读 · 0 评论 -
VB6 中处理 INI 文件的方法
VB6 中处理 INI 文件的方法原创 2010-06-01 16:38:00 · 1186 阅读 · 0 评论 -
MD5 加密算法 VB 实现代码
虽然现在MD5 加密算法严格来讲已经不算安全,但一般小功能或公司内部使用应该足够了原创 2010-06-01 15:58:00 · 1349 阅读 · 0 评论 -
VB6 中常用自定义功能函数合集
VB 中常用功能函数合集原创 2010-06-01 16:03:00 · 4418 阅读 · 0 评论 -
Excel: How to run C# code behind with a click of a button on a Worksheet, without VBA code
转自:http://blogs.msdn.com/b/vsod/archive/2009/10/02/excel-how-to-run-c-code-behind-with-a-click-of-a-button-on-a-worksheet-without-vba-code.aspxExcel: How to run C# code behind with a click o转载 2013-01-24 19:17:09 · 1736 阅读 · 0 评论 -
Excel VBA密码破解工具(VBA实现)
http://www.oschina.net/code/snippet_54124_15443使用UltreEdit之类的十六进制编辑程序打开.XLS文件,在文本模式下查找“[Host Extender Info]”(也可只查Host),切换到十六进制模式,将前面的“DBP="XXXXXXX...”的DBP关键字改成CBP,将“GC= "XXXXXXX...”的GC关键字改转载 2013-10-29 09:17:59 · 16464 阅读 · 1 评论 -
VB6 - FileSystemObject Write Error : “invalid procedure call or argument”
VB6 中使用以下方式读取一个 UTF-8 文件后,另存为一个新文件时出错 “invalid procedure call or argument”‘ 读取 Dim adoS As Object Set adoS = CreateObject("adodb.stream") With adoS .Charset = "utf-8"原创 2017-12-26 14:16:46 · 4298 阅读 · 0 评论