在当前excel文件中运行宏，使它打开另一个excel文件并且指定文件名和位置，且直接打印它。
我有个名字为A的excel文件，它是关联一个名字为B的excel文件，我在A里面进行改动，然后B文件里也会对应的改动。我想问下大神，有没有什么宏啊代码啊之类的，把它放在A...
我有个名字为A的excel文件，它是关联一个名字为B的excel文件，我在A里面进行改动，然后B文件里也会对应的改动。我想问下大神，有没有什么宏啊代码啊之类的，把它放在A文件里，我每次改好后，然后按下那个宏，对应的B文件可以自动另存为指定的位置和名字，并且打印它。能实现吗？
展开
2个回答
2018-06-12 · 百度认证:云南新华电脑职业培训学校官方账号
云南新华电脑学校
云南新华电脑学校是经云南省教育厅批准成立的省（部）级重点计算机专业学校，采用三元化管理模式，教学设备先进，师资雄厚学生毕业即就业，学院引进了电商企业入驻，创建心为电商创业园区，实现在校即创业
向TA提问
关注
![]()
展开全部
有这么几个问题：
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
