[已解决]一个SUB的参数传递倒另外一个sub中

釜底抽薪

批量获取文件夹名字及改名.rar (14.96 KB, 下载次数: 0)

2022-6-2 11:40 上传

点击文件名下载附件

问题一：这里面几个宏运行都要确定路径，怎么把SUB mpath这个宏的参数传递到另外3个当中。

问题二：另外3个宏，也就是 AddFole、CoprFile、FileName  都声明fs、fd 这个如何做全局声明?

小弟我也是野路子出身，用点百度点学点，但是关于这方面的没百度出来，感谢各位大哥指点下

最佳答案

月排行榜 / 总排行榜

hasyh2008

2022-6-2 12:01

直接在顶部
Public fs,fd或者Dim fs$, K%, Path$
然后每个Sub中的fs,fd可以共用,不过要先运行下t1。

Dim fs$, K%, Path$
Sub t1()
  K = 3
  fs = "1111"
  Path = ThisWorkbook.Path
End Sub
Sub t2()
  MsgBox K
  MsgBox fs
  MsgBox Path
End Sub

跳转到最佳答案楼层

hasyh2008

不是在顶部
Public fs,fd
吗？

如果都在同一个模块中也可以直接在顶部

Dim fs,fd

釜底抽薪

是在同一个模块中，  一个SUB的path 怎么传到另外一个SUB 中呢 大哥指点下

釜底抽薪

hasyh2008 发表于 2022-6-2 11:48
不是在顶部
Public fs,fd
吗？

是在同一个模块中，  一个SUB的path 怎么传到另外一个SUB 中呢 大哥指点下

hasyh2008

直接在顶部
Public fs,fd或者Dim fs$, K%, Path$
然后每个Sub中的fs,fd可以共用,不过要先运行下t1。

Dim fs$, K%, Path$
Sub t1()
  K = 3
  fs = "1111"
  Path = ThisWorkbook.Path
End Sub
Sub t2()
  MsgBox K
  MsgBox fs
  MsgBox Path
End Sub

釜底抽薪

hasyh2008 发表于 2022-6-2 12:01
直接在顶部
Public fs,fd或者Dim fs$, K%, Path$
然后每个Sub中的fs,fd可以共用,不过要先运行下t1。

感谢指点  我在学习下