[分享]在VBA中使用Find方法

随心_201320085 · 发表于 2016-1-21 14:17

DJ = Left(Workbooks("铁塔在线商务平台供应商送货清单(20160114152243497).xls").Worksheets(1).Cells(6, "C"), Application.Find(" ", Workbooks("铁塔在线商务平台供应商送货清单(20160114152243497).xls").Worksheets(1).Cells(6, "C"), 1))

复制代码

随心_201320085 · 发表于 2016-1-21 14:18

lifelm 发表于 2016-1-21 13:40
附件已上传，”表格调整-另存名.xlsm“中有两个宏，主要是”调整“这个宏一直有问题。请大侠指教！

要 ...

看81楼！！

lifelm · 发表于 2016-1-21 14:38

本帖最后由 lifelm 于 2016-1-21 14:57 编辑

随心_201320085 发表于 2016-1-21 14:18
看81楼！！

非常感谢您的指教。
我需要一次处理上百个同样的文件（所以才有一个批处理的宏），但是文件名和内容不一样，格式是一样的。所以不能指定一个文件名。还请大侠指教了。谢谢！我现在是用批处理的宏，里面调用含这段语句的宏来实现的。
Dim DJ As String
DJ = Left([c6], Application.Find(" ", Sheet1.Cells(6, "c"), 1))

老师，我现在改成了：

DJ = Left(Worksheets(发货单).Cells(6, "C"), Application.Find(" ", Worksheets(发货单).Cells(6, "C"), 1))

执行了以后提示：”下标越界“，郁闷啊

随心_201320085 · 发表于 2016-1-21 14:56

lifelm 发表于 2016-1-21 14:38
非常感谢您的指教。
我需要一次处理上百个同样的文件（所以才有一个批处理的宏），但是文件名和内容不一 ...

用DIR函数把路径下的文件名都遍历一次就形成一个动态变量名了！！具体可以找找论坛里面有DIR的教程！

lifelm · 发表于 2016-1-26 08:47

随心_201320085 发表于 2016-1-21 14:56
用DIR函数把路径下的文件名都遍历一次就形成一个动态变量名了！！具体可以找找论坛里面有DIR的教程！

非常感谢你的指点。已经搞定了。
我上一个宏里面有文件变量，我把两个宏改为一个宏，直接引用那个文件变量，就可以了。还是给你写你在方向上的指引。

ni57 · 发表于 2016-1-26 11:44

谢谢分享，学习

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