2015-10-06 143 views

回答

0

如果第一個名字是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 
+0

HI,TNX這樣一個快速的答案,我能再問你一個問題?如果我想將單元格C中的信息放入文件中,那麼它將是單元格A,單元格B將是該文件的名稱,單元格C將是該文件的內容。那可能嗎?非常感謝! – VladimirB

+0

@VladimirB - 這絕對有可能,但它會變得更技術化一點。如果有信息。在單元格C中,你想在哪裏去新文件?單元格A1?單元格C1? etc ... – BruceWayne

+0

嗨,對不起,我的問題沒有說清楚,有可能該文件是.doc或.txt,以便單元格C的內容可以作爲內容。我明白這是技術性的和困難的。非常感謝你的幫助!! – VladimirB

相關問題