本月博客排行
-
第1名
龙儿筝 -
第2名
lerf -
第3名
fantaxy025025 - johnsmith9th
- xiangjie88
- zysnba
年度博客排行
-
第1名
青否云后端云 -
第2名
宏天软件 -
第3名
gashero - wy_19921005
- vipbooks
- benladeng5225
- e_e
- wallimn
- javashop
- ranbuijj
- fantaxy025025
- jickcai
- gengyun12
- zw7534313
- qepwqnp
- 解宜然
- ssydxa219
- zysnba
- sam123456gz
- sichunli_030
- arpenker
- tanling8334
- gaojingsong
- kaizi1992
- xpenxpen
- 龙儿筝
- jh108020
- wiseboyloves
- ganxueyun
- xyuma
- xiangjie88
- wangchen.ily
- Jameslyy
- luxurioust
- lemonhandsome
- mengjichen
- jbosscn
- zxq_2017
- lzyfn123
- nychen2000
- forestqqqq
- wjianwei666
- ajinn
- zhanjia
- Xeden
- hanbaohong
- java-007
- 喧嚣求静
- mwhgJava
- kingwell.leng
最新文章列表
VBA根据某列值分割多Sheet
Sub 分割()
Dim arr, sht As Worksheet, temp As String, i As Long, k, t, rng1 As Range
Dim x, xx As String
Dim x1, x2, y As Integer
x = UCase(InputBox("", "请输入标题列" ...
6.2.2 在Excel VBA数据库中引用ADO对象
要在VBA编程中调用ADO对象,实现Excel与数据库的沟通,.需要在VB编辑器中设置【引用】。通常需要设置的几个选项为:Microsoft ADO Ext 2.x for DDL and Security ·Microsoft ActiveX Data Objects (Multi-dimensional) 2.x Library .Microsoft ActiveX Data Objects ...
Excel Vba 函数的一些简单使用
1.复制文件到指定文件夹
FileCopy path & Range("D" & j) & ".msg", newPath & Range("D" & j) & ".msg"
2.复制文件夹到指定文件夹
Dim fso As Object
Se ...
Excle Vba 一些调试相关
单步调试:F8
在中断模式下(ctrl+Break键),可以做:
1.执行 工具----选项----编辑器----勾选“自动显示数据提示”
则当用鼠标悬停在变量或表达式上时,会出现提示窗口,显示其名称和值!
2.在监视窗口查看某些表达式的值,方法是:先用鼠标拖黑以选中表达式,再执行 调试----添加监视,出现“添加监视”对话框。
3.在代码窗口中选中表达式----按shift ...
jacob操作office分享
现在的项目中操作word文件比较多,word文件的加密解密,转换为各种格式,插入图片,添加水印、html转word等等各种东西,大家也都知道,java语言是不能直接操作word或者excel的,不像C#,可以调用VBA的类来直接操作office。
目前java也有一些操作office的开源框架,比如poi,这个没怎么研究过,我估摸着它是通过解析office的xml文档模型来操作off ...
VBA 如何计算一段代码运行需要的时间?
VBA 如何计算一段代码运行需要的时间?
Private Sub Form_Load()
Dim sngStart As Single
sngStart = Timer
'循环代码
Debug.Print "耗费时间: " & Timer - sngStart
更精准
Private Declare Function Get ...
自己写的用VBA进行两个sheet页中的数据对比
两个sheet页分别命名“Sheet700”,“Sheet800”。
判断"Sheet700”sheet中的数据是否在“Sheet800”中存在,不存在标蓝色。
存在的场合,“Sheet800”sheet中的数据和“Sheet700”的2~41行比较,不一样标注青色,并在最前面标注黄色。
Sub Macro3()
Dim tem, tem1 As String
Dim tex ...
Run SSIS in Access Macro
Make sure you select 'Microsoft DTS Runtime 1.0' in Tools --> Refereces...
'Sub to run a DTEXEC cmd to kick off an SSIS Package
Dim strCmd As String
strCmd = "dtexec /f "" ...
【Excel2013教程】如何破解vba工程密码
人经常从网上下载别人的一些Excel学习vba编码,不过有些人为了避免别人盗用所以给代码加了密码,其实这个密码破解起来很假单,下面我就跟大家分享一下如何破解vba工程代码:
将你要破解的Excel文件关闭,切记一定要关闭呀!然后新建一个Excel文件
打开新建的这个Excel,按下alt+F11,打开vb界面,新建一个模块,如图所示
将代码复制到这个模块中,代码如下:
Private Su ...
来吧!带你玩转 Excel VBA
来吧!带你玩转 Excel VBA(含CD光盘1张)(双色)(附带近500个VBA思考练习题,Exceltip.net出品)
罗刚君 杨嘉恺编著
ISBN 978-7-121-20627-6
2013
VBA遍历文件夹及子文件夹中所有文件
VBA中遍历文件方法很多,但很多方法又有局限,DIR的方法很难遍历子文件夹文件.FileSearch方法在office 2007中MS把Application对象FileSearch方法删除了.所有我们来用FileSystemObject对象实现遍历文件夹及子文件夹中所有文件.
代码如下:
Dim arrFiles() Dim countFiles% Public Sub ListAllF ...
用VBA得到EXCEL表格中的行数和列数
每种方法中上面的是Excel的行数,下面的是Excel的列数。
方法1: ActiveSheet.UsedRange.Rows.Count ActiveSheet.UsedRange.Columns.Count 缺点:有时可能会比实际数大一些,原因是如果你把最后几行(列)数据清除后(非整行或整列删除),用这个命令仍返回未清除前的值。就是说现在虽然是空的,但是你曾经用过也算 ...
用WORD中的vba批量转换为PDF
转载自:licanli2082@126网易博客
对于只是简单运行的方法,步骤如下:
1. 让WORD2007、2010调出开发选项卡。调出的办法是,点击WORD左上角的圆圈形按钮,从下拉菜单中选择”选项“,然后点击左侧的常规选项卡,再从右边窗口中选中”显示开发工具“
2. 回到WORD主界面,选择”开发工具“面板栏,从这个面板的左边选择”宏“按钮
3. 在宏窗口中输入一个宏名字(任意 ...
用VBA批量转换Excel工作簿为PDF
本文转自www.excel123.cn 原文作者 Excel123
Excel 2010和Excel 2007可以将Excel工作簿另存为PDF格式文件,但手工的方法每次只能转换一个工作簿,要转换多个工作簿就显得有些繁琐。如果没有批量转换软件,在Excel 2010和Excel 2007中,利用VBA代码也可以轻松实现将Excel工作簿批量转换为PDF,方法如下:
1. ...
在OUTLOOK里实现记时器
前些日子工作的需要,要在outlook里写VBA实现定时检查邮件然后报警这样的功能。搞了好段时间才搞定,其中遇到的一个问题就是outlook里不支持VBA中ontime等函数的使用,用等待等函数又使得outlook一直被VBA宏占用,不能正常收发邮件了。
最后我还是通过借助Windows API 函数SetTimer和KillTimer实现了我要完成的功能。
代码如下: ...
Excel vba 读取上证指数
Public Sub 抓上海指数全部()
'删除上次结果sheet
delectsh
Dim ie, dmt, an, selectONE
Set ie = CreateObject("InternetExplorer.Application") '创建一个IE对象
With ie
.Vis ...