打开Excel文件，读取文件路径，在当前路径下新建一个文件夹，文件夹名称和Excel名一样。打开文

Question

打开Excel文件，读取文件路径，在当前路径下新建一个文件夹，文件夹名称和Excel名一样。打开文件夹，新建多个txt文件，txt文件分别用Excel文件的第一行单元格内容命名，让后写入对应这一列的数据。然后关闭txt--请帮助，代码。VBA代码，谢谢

Answer 1

If (ActiveWorkbook.Path & "\" & Replace(ActiveWorkbook.Name, ".xls", "")) = "" Then MkDir (ActiveWorkbook.Path & "\" & Replace(ActiveWorkbook.Name, ".xls", ""))
lieshu = Range("IV1").End(xlToLeft).Column
For i = 1 To lieshu
hangshu = Range(Cells(65536, i), Cells(65536, i)).End(xlUp).Row
  Open ThisWorkbook.Path & "\" & Replace(ActiveWorkbook.Name, ".xls", "") & "\" & CStr(Cells(1, i).Text) & ".txt" For Output As #1
   For k = 2 To hangshu
   Print #1, Cells(k, i)
   Next
   Close #1
  Next

excel、在附件里