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

有这么几个问题：
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

用宏代码肯定能实现的