目的:
1. 封装Excel 的 OCX太少! 好用的更是少之又少!(注意!!! iWebOffice2006.ocx涉及到版权! 这里iWebOffice2006.ocx仅做学习、研究、交流用! 如需使用请君购买正版! )
2. OCX嵌入到wxPython对话框例子太少.
3. 这个例子就是填补1-2空白
4. 最好的利用了:
1. excel高普及率、
2. VBA操作的灵活强大
3. Python高效开发、不用编译直...
分类:
编程语言 时间:
2015-02-06 16:44:11
阅读次数:
905
前一篇尝试Office 2003 VSTO的开发、部署有提到用VS开发一个简单的VSTO程序。打包C/S程序,我首先想到的是VS里自带的Setup Project。很遗憾,VS2012及后面的版本都剔除了Setup Project,改用InstallShield Limited Edition。Se...
分类:
其他好文 时间:
2015-01-31 00:06:50
阅读次数:
192
接着昨天,为了用户的需求,写好了VBA代码,但问题又来了,如果用户禁用宏怎么办,就达不到想要的效果了。那么怎么才能强制启动宏文件呢?
测试了在关天,代码如下:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.IsAdd...
分类:
其他好文 时间:
2015-01-30 17:24:09
阅读次数:
136
Public Function getFiles(folderPath As String) As Variant Dim tempFileName As String Dim fileNames() As Variant '记录fileNames的总长度 Dim fileNameLe...
分类:
编程语言 时间:
2015-01-29 15:54:02
阅读次数:
143
因为某些功能的原因,一部份VBA的用户最终选择了NET,又因为某些功能的原因,一部份NET的用户最终选择了C++。最终这部份业余用户走上了专业的二次开发之路,而脱离了原来的专业。 来自 一个CAD群叫 “arx-阿华”的 作为新手,作为业余,基础一般,精力有限,其实语言的选择是个不容忽视的问题。
分类:
编程语言 时间:
2015-01-29 14:33:47
阅读次数:
300
昨日同事有需求,想知道每个商品第一次销售的月份,以及最后一次销售的月份. 本想通过什么excel函数来解决,但是找了半天也没找到合适的,最后还是通过VBA来解决吧.使用方法:Excel工具-宏-Visual Basic编辑器 在左侧栏中点右键,插入-模块然后输入: 1 Function Last0(...
分类:
编程语言 时间:
2015-01-29 10:23:14
阅读次数:
718
作者:iamlaosong
先看一个简单的循环程序,VBA从数据库中读取数据后,需要在最后一个单元格输入求和公式:
lineno = [A65536].End(xlUp).Row
For i = 3 To lineno
Cells(i, 9).FormulaR1C1 = "=RC[-3]+RC[-2]+RC[-1]"
Next i
公式的意思相当于Cells(i, 9)...
分类:
编程语言 时间:
2015-01-29 09:21:21
阅读次数:
204
工作中很多地方需要同时处理多个数据表,而且用数据透视表进行排版,排序,计算字段,一个一个的做非常累,这里给出批量处理的方法。学习VBA之前最好懂一点点VB的基础知识,因为里面的很多语法问题都是由VB来的。Sub 出库数据一键生成数据透视表()'先判定sheet表名称是否正确 If ActiveShe...
分类:
编程语言 时间:
2015-01-27 21:29:33
阅读次数:
313
最近遇到一个数据处理自动化的问题,于是打算开发一个基于excel的小工具。在业余时间一边自学一边实践,最近终于完成了雏形。抽空把一些知识写下来以备今后参考,因为走的是盲人摸象的野路子,幼稚与错误请多包涵。开发环境基于VSTO,具体配置:visual studio 2010,VB .Net,excel...
分类:
Web程序 时间:
2015-01-25 23:51:14
阅读次数:
250
例:VBA获取shape positionPublic Sub LocationTable() 'This routine will create a text file of the location and size of all 2-d shapes ' on the curr...
分类:
编程语言 时间:
2015-01-25 19:38:35
阅读次数:
239