不会编程的财务不是老司机-CSDN博客

原创 vba 多列listbox取某行某列值得正确姿势。解决属性索引值无效错误。

vba里的listbox是一个既需要有恶心的控件。如果你是将二维数组赋值给Listbox.rowsource的话，当需要取得listbox中某行某列的值时，会报属性索引值无效等错误。看官方文档，文档，文档。得到并记住以下一点，就不在茫然了。如果listbox是多列的情况下，将listbox.column属性看作一个二维数组使用，比如获取第一行第一列的值 list

2017-10-25 08:17:14 12495 2

原创 vba通过ado连接oracle执行SQL语句，报非法字符错误。（超级恶心）

在oracle端调试好的sql语句，拿到vba里进行执行，报非法字符错误，检查了快半个小时，最后发现问题了。那么最恶心的问题说三遍：“sql语句最后不要带分号”，“sql语句最后不要带分号”，“sql语句最后不要带分号”

2017-10-24 14:06:48 2172

原创 ACCESS2010 如何批量自动运行“已保存的导入”或“已保存的导出”

ACCESS2010的导入导出更加便捷，更加人性化。比如可以把需要重复进行的导入导出操作进行保存，方便调用。在“外部数据”选项卡中的第一项就是“已保存的导入”，里面可以存N项导入过程，想运行哪一个，则需选中后，点击“运行”按钮即可。有的时候我们想运行多个导入，只能一个一个点击运行，有些繁琐，能不能一下运行多个过程呢？请参看下记方法：首先建立一个模块。里面写一些简单的代码。

2015-04-16 09:19:16 8598 1

原创安装SQL SERVER2008 R2时遇到安装检测提示“重启计算机”项不成功的问题解决。

重新装系统后安装SQL SERVER2008 R2，当进行安装检测时，说重启计算机项不通过，如果你百度d

2014-10-21 13:52:28 8974 1

原创 Outlook2010利用规则运行脚本，将附件保存在固定位置，并在邮件类别中标注类别。

首先要确认触发邮件脚本的规则，比如标题所含字符、固定发件人

2014-07-30 09:59:31 12306

原创用excel vba，将EXCEL数据追加到ACCESS数据库的某张表中的实例（学习备注）

Sub test_excelToAccess() Dim strFile As String Dim dbData As DAO.Database Dim appNew As Access.Application '需要引用access lib,也可通过createobject创建access application Dim strSql As String

2013-09-27 09:15:01 10996 1

原创 MySQL Workbench “Error Code: 1175” 的解决方法（正确记录）

这个错误一般是在批量更新或批量删除时发生。是Mysql的安全机制在起作用。版本：Mysql worbench 5.2.4CE在这个版本下网上的解决方法中所提到的选项位置已经不对了。正确方法如下：1、打开workbench2、打开菜单[Edit]->[Preferences...]3、切换到[SQL Queries]选项卡（网上一般都说是SQL Editor）

2013-07-05 15:15:00 10757

原创看论坛上的问题联想到的JAVA知识点。

http://bbs.csdn.net/topics/390420249public class TestCodeSeg{ static { System.out.println("1"); } { System.out.println("2"); } public TestCodeSeg() { System.err.println("3"); } publi

2013-04-17 09:15:30 3112

转载获取文件属性中详细信息里的各项目（vb 学习备注）

Sub ts() Dim oDLG Dim pth As String Dim Flname As String Dim shl As Shell32.Shell Dim shfd As Shell32.Folder Dim s As String Dim i As Integer Set oDLG = Crea

2013-01-15 13:08:15 7483

原创取类别区分的TOP10 by Access（学习备注）

感谢论坛ACCESS版两位版主的指导。帖子链接：http://bbs.csdn.net/topics/390316494做一下学习记录：select InvNo,Model,Amount from dbo_InvoiceDetail awhere 10>(select count(*) from dbo_invoiceDetail b where b.invNo=a.in

2012-12-18 14:14:05 3297 1

原创取类别区分的TOP10（学习备注）

SELECT [InvNo],[Model],[Amount] FROM (SELECT [InvNo],[Model],[Amount],ROW_NUMBER() OVER(partition by [InvNo] ORDER BY [Amount] DESC) AS [Row Number] FROM [InvoiceDetail]) AWHERE [Row Number]

2012-12-14 11:16:56 2894 1

原创两种去掉字符串中数字的方法（VB学习备注）

1、遍历每一个字符进行判断Public Function DelNumber(ByVal s As String) As String Dim strL As Long Dim i As Long Dim strTemp As String On Error GoTo err strL = Len(s) Del

2012-11-02 11:00:23 9191

原创一个简单前端所用的知识及注意点（自动建立数据源、判断数据源是否正常连接、隐藏表等）

用ACCESS2010给别人做个简单的前端界面，其中碰到一些问题，都解决了，总结一下解决方法。一、自动建立ODBC数据源。用户不会建立数据源，那么程序实现自动创建。自动创建有很多方法，不过不外乎是修改注册表，我觉得最好的方法是以下方法。调用winapi函数Option Compare DatabaseOption ExplicitPrivate Const REG_SZ

2012-10-30 18:12:54 4106

转载 excel公式(备忘)

第一个数字：=MIN(IF(ISNUMBER(FIND({0;1;2;3;4;5;6;7;8;9},A2)),FIND({0;1;2;3;4;5;6;7;8;9},A2)))第一个字母{=MIN(IF(ISERR(FIND(MID(UPPER(A2),ROW(INDIRECT("1:"&LEN(A2))),1),LOWER(A2))),ROW(INDIRECT("1:"&LEN(A2)))))

2011-10-21 17:03:58 2999

原创 python for windows 获取进程列表 part2 (自学备注)

import win32pdhaa=win32pdh.EnumObjectItems(None,None,'process',win32pdh.PERF_DETAIL_WIZARD)aa的返回值：(['% Processor Time', '% User Ti

2011-10-11 10:01:13 6644

原创 python ado connect sql server part1（自学备注）

正在学python。在博里备注一下学习内容，呵呵。有兴趣可以一起学习啊。from win32com.client import Dispatch #如果再windows下需要先装个pywin32conn=Dispatch('ADODB.Connection')c

2011-10-11 08:40:27 3759

原创 access.application.syscmd方法的应用（备忘）

今天在做access模块时，想对access系统的statusbar进行修改，参看帮助文件后找到了application的syscmd方法。通过次方法实现了自定义状态栏文字以及自定义状态栏进度条。语法可以自行查看access vba帮助文件。我用到的几句如下：appl

2011-09-30 15:01:55 5040

原创解决access中round函数不能正确四舍五入的问题（备忘）

Function round(x As Double, Y As Integer) As Double'四舍五入函数'将数字转化为字符串，判断是否大于4，截掉多余部分Dim douShuZhi As DoubleDim strShuZhi As StringDim b

2011-09-01 09:11:03 10785 2

原创判断字段类型的函数（备忘）

Public Function sFldType(iType As Integer) Select Case iType Case 20 sFldType = "BigInt" Case 128

2011-09-01 09:05:51 2785

原创一段多个access表汇总的简单样例（备忘根据情况修改相应代码可实现excel多表入access汇总）

Sub AccessTableTotal() Dim Conn As New ADODB.Connection Dim Rec As New ADODB.Recordset Dim rsTemp As New ADODB.Recordset D

2011-09-01 09:01:39 3420

原创一个通过VBA建立某文件快捷方式的例子（备注）

Sub CreatShortCut() '设定引用项目 Windows Script Host Object Model Dim myWsh As IWshRuntimeLibrary.WshShell Dim myShtCut As IW

2011-09-01 08:56:50 3175

原创查找单元格字符串中数字部分，并标注红色（原创）

Sub ChangeColor()'======================================='查找单元格字符串中数字部分，并标注颜色'型号中一般缸径、行程均为数字表示，有助于观看。'作者：xiaohe'=======================

2011-09-01 08:50:48 3554 1

原创去掉字母A-Z以及数字0-9以外的其他字符函数（原创）

Function SubstituteEx(Strtemp As String) As String'************************************************************'一个字符串中剥离品番部分，去掉A-Z,0-9，-'

2011-09-01 08:46:57 4059

原创两个字符串比较，取出重复字符个数。（原创）

Function TwoStrComp(strOne As String, strTwo As String) As Integer'================================'取出两个字符串中的重复字符个数'短字符串中无重复字符的情况下'=====

2011-09-01 08:42:45 6102 6

原创 outlook2010 自动收发邮件时间设置（正确版）

outlook2010的功能变的更加强大，但是很多设置已经不像以前那样熟悉了。比如，设置自动收发邮件的时间。网上很多答案都是苏答非所问，在这里写一个绝对正确的。outlook2010默认选项开“发送/接收"中，点击“发送/接收组"的下拉选项，选择其中的”定义发送/接收组",就

2011-08-25 12:00:47 44144 6

原创网页自动下载文件并汇总（VBA）

背景：公司是中石化钻石用户，一个ID下有近百张加油卡（销售人员遍布全国），每月要求对所有卡的消费记录进行统计。但是中石化网站查询只能选择一张卡进行查询或下载，并不提供批量下载（这种企业根本不考虑用户的感受，强烈鄙视一下）。每月需要花费1个人16个工时进行手工下载，

2011-07-13 13:10:40 15007 1

原创 “白骨精”学习法一书中的经典句子（自用摘抄）

1.对于在职者来说，如果没有具备可持续性的切实可行的学习计划，任何学习都难以为继。2.学习就是RPG3.那种依靠个人意志能够实现一切的说法，显然过于乐观。4.学习的5个窍门 A 打好学习基础 B 虚心请教，努力掌握学习方法 C 透彻理解所需科目的主要内容 D 努力尝试将所需的东西用自己的语言整理出来 E 对学习始终乐在其中 5.INPUT:OUTPUT=1:1是最理想的状况

2011-06-23 15:37:00 1325

原创 EXCEL按单元格颜色进行筛选 VBA代码 FOR EXCEL2003 （原创）

原创代码： 1 自定义工具栏Sub MeNu_自定义模块()On Error GoTo ERR Dim M(1) As String MeNa = "自定义的模块" M(1) = "颜色筛选列表" For Each Menu In CommandBars If Menu.Name = M

2011-06-22 15:20:00 7353

1.正负整数和0统称整数(integer ['intidʒə]) 2.正负分数统称为分数（fraction [ˈfrækʃən]） 3.整数和分数统称有理数（rational number） 4.数轴（number axis [ˈæksis]） 5.在直线上取一个点表示0，这个点叫原点（origin [ˈɔridʒin]） 6.只有符号不同的两个数叫做互为相反数（opposite [ˈɔpəzit] number） <b

2011-06-01 15:29:00 874

原创多表汇总模块（自己看，备份）

Option ExplicitPublic MyPath As StringPublic InputPath As StringPublic OutputPath As StringPublic shList As WorksheetPublic shConstruct As WorksheetPublic shGather As WorksheetPublic shTotal As WorksheetType Zhipin

2011-05-31 16:42:00 1001

原创遍历数据表追加到汇总表（ACCESS 自写代码备忘)

Attribute VB_Name = "模块2"Sub Total() Dim Conn As New ADODB.Connection Dim Rec As New ADODB.Recordset Dim rsTemp As New ADODB.Recordset Dim strSQL As String With Conn .ConnectionString = "Provider=Mi

2011-05-31 15:42:00 2463

原创 SQL小白，今天俺又OUT了

今天上班，在SQL SERVER里建了一个视图，便于给别人查询用。本人常用ACCESS，对于SQL SERVER里的视图纯粹是小白。凭借ACCESS做查询的经验，想想不会太难。结果悲剧了。 其中有四个字段 “银行收入”，“银行支出”，“交易类型”，“交易金额”。根据“交易类型”的内容“来账”和“往账”，将“交易金额”分别填入“银行收入”，“银行支出”里。 如果是在ACCESS里直接用银行收入:IIF（[交易类型]='来账',[交易金额],0),银

2011-05-26 15:29:00 841

原创 Python访问excel

python是一个很有意思的东西。作为我VBA之后第二个又兴趣学习的方向，哈哈from win32com import clientexcel=client.Dispatch("Excel.Application")excel.Visible=Truebook=excel.Workbooks.Open("c://1.xls", False, True)sheet=book.Worksheets(1)for i in range(1,100): print sheet.c

2011-05-25 08:41:00 1884

原创昨天工作中编写VBA模块时遇到的一些小问题

做成本会计的都知道，这个行当经常与数据打交道。昨天同事拿了300个工作簿（一个型号一个报告书）来找我，让我帮忙把里面链接都断开。让我帮他分担150个。我勒个去，我只能运用一下VBA的小知识了，直接将300个承包了下来。不过在编写VBA的过程中也遇到了一些问题还没有解决。我的代码如下：'Links是个数组，用来接收所有链接的名字Links = wbNew.LinkSources(xlExcelLinks) On Error

2011-05-25 07:56:00 1155

原创创建一个目录列表进行每张sheet表的链接

Sub CreateList()'====================================='创建一个目录列表进行每张sheet表的链接'作者：WH'===================================== On Error GoTo Tuichu Dim i As Integer Dim ShtCount As Integer Dim SelectionCell As Range Dim lin

2011-05-17 16:00:00 772

原创避免ADO连接字符串错误，请用udl文件

ADO的连接字符串弄不好就写错一点点，无法运行。为避免尴尬，还是通过建立一个.udl文件，配置好后，文本方式打开，里面就是正确的字符串。呵呵！

2011-04-20 13:44:00 878

原创在ACCESS里查询带“*”号的记录的方法

在ACCESS里查询带“*”号的记录的方法。老忘，这里做个记录。 SELECT 查询型号.型号FROM 查询型号WHERE 查询型号.型号 Like '*[*]*'; 再忘自己抽自己。

2011-04-15 14:00:00 1975

原创进我自己的空间竟然报这个错。

MySQL Error Message: MySQL Query Error SQL: SELECT o.id,o.title FROM os_user_applications u join os_applications o on o.id = u.application_id where username='choasrules' and approved != -2 and allowsidenav=1 order by displayorder asc lim

2011-04-14 11:55:00 678

原创使用perl Win32::ODBC模块,让我蛋疼的经历。

尝试装了一下win32::ODBC模块。蛋疼从此开始了。 按网上“泛滥”的方法，安装win32::ODBC模块，要先装gcc编译器，一水儿的说装dev c++，结果我安装完了，让我装dmake.exe。就这个文件我下载了n次，才下了个能用的。结果用dmake/dmake install安装就是报错。一气之下将dev c删了，将以前用的MinGW装上了，竟然奇迹般的编译成功。perl makefile.pl/dmake/dmake install/ppm list。用下面的代码测试了一下

2011-04-14 11:39:00 2572

原创两字符串相同字符个数统计问题

坛子里的一个问题，我新手拿来练习练习。测试数据：A B C2437 345 8750 654 0673 736 0557 012575786 4328778 28796 8537 888 Function TwoStrComp(strOne As String, strTwo As String) As Integer'================================'取出两个字符串中的重复字符个数'短字符串中无重复字符的情况下'=========

2011-03-23 13:01:00 6060

xc2008破解补丁

超酷VBA工程加锁解锁器 By ldhyob

批量添加数据源的小工具

空空如也