Excel vba 用于将单元格内容导出到 TXT 文件

Question

I have an Excel file ( https://www.dropbox.com/s/hv9u68s136es190/Example2.xlsx?dl=0 ) with in column A all the persons and in the cell next to there name text (column B). I want to save for every person a text file containing the text in the cell next to there name. The filename should be called like the persons name. So in this case i would have three text files. I do not know how to manage this using VBA in Excel. Can someone help me with this?

Answer 1

Try this code, please. But, you must initially try something on your own. We usually help people correct their code and learn...

The text files will be named like the people names in column A. The folder where they will be saved will be the one of the workbook which keeps the active sheet. You can define it as you need, of course.

Option Explicit

Sub SaveTxtNamePlusTekst()
  Dim sh As Worksheet, lastR As Long, i As Long, strPath As String
  Set sh = ActiveSheet     ' use here the sheet you need
  strPath = sh.Parent.path 'you can define here the path you wish...
  If Dir(strpath, vbDirectory) = "" Then MsgBox "The folder path is not valid...": Exit Sub
  lastR = sh.Range("A" & Cells.Rows.Count).End(xlUp).row 'Last row in A:A
  For i = 2 To lastR
    'calling a Sub able to create a text file in a folder and put text in it
    WriteText sh.Range("A" & i).value, strPath, sh.Range("B" & i).value
  Next i
End Sub

Private Sub WriteText(strName As String, strPath As String, strText As String)
  Dim filePath As String
  filePath = strPath & "\" & strName & ".txt" 'building the txt file path
  FreeFile 1

    Open filePath For Output As #1
      Print #1, strText 'write the text
    Close #1
End Sub