菜鸟谈VBA最最基础入门《原创》

oscar_jun123 · 发表于 2010-4-12 23:36

非常感谢楼主的良苦用心~

lironger8 · 发表于 2010-4-13 08:29

原帖由 ggsmart 于 2010-4-12 15:39 发表
“系统”工作表是自己创建的，就像你说的一样，是用来存放用户名和密码的工作表，你可以在工程资源管理器里找到它，修改它的visible属性，让其显示，查看里面的内容。如果你要把这段代码复制到你的文件中去，那就要修 ...

谢谢！明白了

nxzhb · 发表于 2010-4-13 09:48

迟到了，跟上学习

nxzhb · 发表于 2010-4-13 09:58

把我这几天的作业交了，希望各位指正！

lironger8 · 发表于 2010-4-13 11:47

如何对一个文件夹中的.xls文件重命名？
我每月都要对某些文件夹中的文件重命名，手工一个一个的改很麻烦，文件夹的文件名均含有表示月份的数字，如d:\武汉\whhz0430001.xls,d:\武汉\xnhz0430002.xls等等，如何能批量或者宏命令将文件夹中所有含有" *0430*.xls "的文件修改为d:\武汉\whhz0531001.xls,d:\武汉\xnhz0531002.xls"呢？也就是"*0430*.xls " 全改为" *0531*.xls" ,我只知道
Sub rename()
Name "<工作簿路径>\<旧名称>.xls" As "<工作簿路径>\<新名称>.xls"
End Sub
可以为某一个指定的文件命名，但批量改如改呀？文件夹要能变换，如武汉、宜昌、咸宁等，这些文件夹中的名字都含有 0430 如何批量将含有的 0430 改为 0531呢下个月将 0531又改为 0630呢？也就是变量要有两个，一个是文件夹名，另一个是文件名种所包含的时间"0430" 本人是新手刚接触VBA 请高手赐教万分谢谢传给你帮忙看一下附件我现在做个宏也能改但是是笨办法文件夹和附表传给你

lironger8 · 发表于 2010-4-13 11:58

如何在当前工作宏过程中运行其他工作薄中的宏呢？我现在在个人宏工作薄中有8个宏，其中有一个是给宜昌计提税金准备数据的，在个人（PERSONAL.XLS)宏工作薄的模块1，用如下的命令
Sub runOtherMacro()
MsgBox "本程序准备执行宜昌税金宏"

Application.Run "PERSONAL\宜昌zysj Macro"
End Sub

提示老是出错，应用程序或对象定义出错，怎么改呀？谢谢

noctmwangyibo · 发表于 2010-4-13 13:57

谢谢楼主无私奉献

huananke · 发表于 2010-4-13 15:28

太好了！LZ谢谢哦！
认真学子之！

raet · 发表于 2010-4-13 18:28

温故而知新，受教了！

zyh196712 · 发表于 2010-4-13 22:05

前辈：
我的水平实在太差，最近功课又多，好久没有研究VBA了，现在连以前做过的基础也忘了，因为自己的功课又多，心里一急，什么也做不出来。
科领导外出普查，弄了一大堆数据要统计，我现在实在弄不出来，请帮我看看吧！
同薄多表汇总：
我写了一些代码，却运行不下去，请看看哪出错了，帮我修改一下，数组我还不会，当然能用数组做最好了，拜托了。
异薄多表汇总：
因为不同工作薄没做过，实在不会做。需汇总同一文件夹中不同工作薄中的所有工作表。
谢谢了！

同薄多表汇总.rar (29.38 KB, 下载次数: 36)

异薄多表汇总.rar (68.58 KB, 下载次数: 31)

		自动登录	找回密码
密码			免费注册

菜鸟谈VBA最最基础入门《原创》

if语句判断

作业

请教叶老师

还有个问题，叶老师

回复 1楼 ggsmart 的帖子