在当前excel文件中运行宏，使它打开另一个excel文件并且指定文件名和位置，且直接打印它。

Question

我有个名字为A的excel文件，它是关联一个名字为B的excel文件，我在A里面进行改动，然后B文件里也会对应的改动。我想问下大神，有没有什么宏啊代码啊之类的，把它放在A文件里，我每次改好后，然后按下那个宏，对应的B文件可以自动另存为指定的位置和名字，并且打印它。能实现吗？

Answer 1

有这么几个问题：
1 MkDir语句中的括号里应为 ("E:\" & fname) '创建文件夹。
——注意引号和&的配合。
2 打开文件夹语句不对。那个open是打开指定文件的语句
3 对象创建后注意关闭（清理后再离场）
测试后的完整代码为：

Sub 创建文件夹()
Dim fname '定义变量
fname = ActiveSheet.Range("a1") '指定表格内容
MkDir ("E:\" & fname) ' '创建文件夹
'Workbooks.Open ("E:\" & fname) '打开文件夹
Set Fs = CreateObject("Scripting.FileSystemObject") '复制指定文件到指定文件夹
Fs.copyfile "d:\scan\aa.xlsx", "e:\" & fname & "\aa.xlsx", True '
Set Fs = Nothing
End Sub

Answer 2

用宏代码肯定能实现的