多个Excel表的vba代码相同，是否可以把这些代码放在一个外部文件，通过调用来执行？

如果只是单个文件 ，要求打开的时候才运行，把代码写到Workbook的Open事件里，打开即自动运行

如果是陵棚要对几百个文件进行相同的Sub过程 *** 作，最简单的方法是 写个VBA Sub 过程 直接依次打开几百个文件 并执行相同动尺迅则作， 那几百个文件里的代码昌运也不需要了， 只需要一个VBA 模块，就是一个Sub 过程 依次对所有文件进行 *** 作。

vba设置filedialog只显示包含特定字符的文件：对外部文件进行稿悉 *** 作：

open 文件名 for output（写入覆盖数据）/input（读取数据）凳敬兄/append（追加数据，不会覆盖会继续在其末写入） as #文件号

——open要与close配合使用，否则会报错文件已打开，若文件不存在，覆盖和追加都会新建文件。关闭文件时要注明文件号。

Freefile会调用函数获取可用的空闲的文件号。所枣袭以一般使用文件号＝freefile即可。

查找外部文件字段哪家强？instr来帮忙：

instr（a,b）函数返回为long形式，意为指定一字符串（b）在另一字符串（a）中最先出现的位置，返回值为具体位置，如果返回0则表示不存在。

---