vba如何将两个EXCEL工作簿 1工作簿单元格的内容写到2工作簿的指定单元格中

Sub 申请信息表()
Dim cunming, wenjian As String
Dim wb, wj As Workbook
'f = Dir(mPath & "\*", vbDirectory)
cunming = InputBox("输入村名")
wenjian = InputBox("输入文件名")
Set wb = Workbooks.open("E:\a申请信息表\" & cunming & "\申请信息表.xls")
Set wj = Workbooks.open("C:\Users\喵\Desktop\" & wenjian & ".xls")

工作簿1 wj 的 range("B5") 写到 工作簿2 wb 的 range("D4") 当中

工作簿 wb 另存为 xls文件 以D4单元格的内容命名工作簿

在循环将 工作簿1 wj 的 range("B6") 写到 工作簿2 wb 的 range("D4") 当中

工作簿 wb 另存为 xls文件 以D4单元格的内容命名工作簿

后边就是循环 B7 B8 B9 B10 ....存到 工作簿2中 分别另存为 已工作簿2的D4的单元格命名工作簿

ActiveWorkbook.SaveAs Filename:="E:\a申请信息表\北尚乐\" & [D4] & ".xls"

End Sub
路径就是这个样子

中间文字的那段怎么用代码写出来 求大神解答!

相关了解……