我有一个Excel表，里面有约300人名，现在想把每一个人名作为文件名，新
答案:3 悬赏:40 手机版
解决时间 2021-02-01 16:29
- 提问者网友：鐵馬踏冰河
- 2021-02-01 06:03
我有一个Excel表，里面有约300人名，现在想把每一个人名作为文件名，新建300Word。请大家为我指点。谢谢。
最佳答案
- 五星知识达人网友：风格不统一
- 2021-02-01 06:29
Sub 新建word()
Dim wordapp As Object, i
Set wordapp = CreateObject("word.application")
For i = 1 To Cells(Rows.Count, 1).End(3).Row
With wordapp
.documents.Add
.activedocument.SaveAs Filename:=ThisWorkbook.Path & "\" & Cells(i, 1) & ".docx"
.activedocument.Close
End With
Next
wordapp.Quit
Set wordapp = Nothing
End Sub
Dim wordapp As Object, i
Set wordapp = CreateObject("word.application")
For i = 1 To Cells(Rows.Count, 1).End(3).Row
With wordapp
.documents.Add
.activedocument.SaveAs Filename:=ThisWorkbook.Path & "\" & Cells(i, 1) & ".docx"
.activedocument.Close
End With
Next
wordapp.Quit
Set wordapp = Nothing
End Sub
全部回答
- 1楼网友：轻雾山林
- 2021-02-01 09:06
新建的内容需要是什么都不说的啊！！！！！！
再看看别人怎么说的。
- 2楼网友：鸽屿
- 2021-02-01 07:39
可以做， 1052974911@qq.com 说下具体要求
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯