Question

我需要从电子表格中创建多个文件。电子表格包含名字，姓氏和第三个单元格中的一些信息。我的问题是如何为文件名为First Name + Last Name的每一行创建文件。

提前非常感谢你！

Answer 1

如果名字在A栏中，而姓氏在B栏，您可以使用：

Sub test2()
Dim i&, lastRow&
lastRow = Cells(Rows.Count, 1).End(xlUp).Row

For i = 1 To lastRow
    Workbooks.Add
    ActiveWorkbook.SaveAs ("C:\Users\[user name]\Desktop\" & Cells(i, 1) & " " & Cells(i, 2) & ".xls")
    ActiveWorkbook.Close
Next i
End Sub

根据需要更改文件路径和扩展名。它会以我所拥有的名称FirstName LastName.xls保存。

根据以下评论进行编辑：

要制作新的文字文件，并填写C栏中的内容，请使用以下(thanks to @Ben)

Sub create_TXT()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim oFile As Object

Dim i&, lastRow&
lastRow = Cells(Rows.Count, 1).End(xlUp).Row

For i = 1 To lastRow
    Set oFile = fso.CreateTextFile("C:\Users\[user name]\Desktop\" & Cells(i, 1) & " " & Cells(i, 2) & ".txt")
    oFile.WriteLine Cells(i, 3).Value
    oFile.Close
Next i
Set fso = Nothing
Set oFile = Nothing
End Sub

如何从excel创建新文件，单元格中的每一行文件名是2个单元格

1 个答案: