EXCEL高手你好，在EXCEL A列中给出文件名，在指定的文件夹下自动生产EXCEL文件，怎样实现？
答案:3 悬赏:50
解决时间 2021-03-12 18:38
- 提问者网友：放荡不羁
- 2021-03-12 12:39
生成的新文件内容为sheet2中的内容
最佳答案
- 二级知识专家网友：桃花别处起长歌
- 2021-03-12 12:49
代码如下：
Sub 生成工作簿()
t = "d:/" '保存路径
For i = 1 To [a65536].End(xlUp).Row
Set newbook = Workbooks.Add '建立一个新的工作簿
With newbook '设置属性
.SaveAs Filename:=t & Cells(i, 1) & ".xls"
.Close
End With
Next
End Sub
Sub 生成工作簿()
t = "d:/" '保存路径
For i = 1 To [a65536].End(xlUp).Row
Set newbook = Workbooks.Add '建立一个新的工作簿
With newbook '设置属性
.SaveAs Filename:=t & Cells(i, 1) & ".xls"
.Close
End With
Next
End Sub
全部回答
- 1楼网友：為→妳鎖鈊
- 2021-03-12 13:50
是要生成空白的excel文件吗
- 2楼网友：时光不老我们不分离
- 2021-03-12 13:08
如果是自动打开可以用超级链接
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯