作者：乔山办公网日期：
返回目录：excel表格制作
有这么几个问题：
1 MkDir语句中的括号里应为 ("E:\" & fname) '创建文件夹。
——注意引号和&的配合。
2 打开文件夹语句不对。那个open是打开指定文件的语句
3 对象创建后注意关闭（清理后再离场）
测试后的完整e68a84e8a2ade79fa5e98193334代码为：
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
这个用vba不难时间。但是得看到您的表才行。
加裙 叄贰伍肆零叄扒叄零
关键百是你没有说复制哪些行到度哪些位置问，下面的代码复答制A1到B1，请自行适回当修改：
sub 宏1()
dim st as worksheet, wb as workbook
set st=activesheet '当前答表
set wb=workbooks.add
st.range("a1").copy wb.sheets(1).range("b1") '复制内容
wb.saveas thisworkbook.path & "\" & "123.xlsx"
end sub