VBAコードを開いてテキストファイルを開く

Question

私はVBAで一連のセルをコピーしようとしています。これは私が成功したが、次のステップに固執した。

Range("L1", Range("L1").End(xlDown)).Select 
Selection.Copy 

次に、私はエクセルタブから指定された名前を持つ新しいテキストファイル（.txt）を開き、コピーしたセルを挿入するマクロを希望：これは最初の部分です。

テキストファイルを開くにはどうすればよいですか？

はここ

Answer 1

は（グーグル経由で）多くの可能な参考文献の一つであるありがとう：ここhttp://www.homeandlearn.org/write_to_a_text_file.html

は、彼らが与える例です - あなたは、より良い記事を読んで、あなたのシナリオに適応している：

あなたのコラム Lデータ最初のタブ内で

Open FilePath For Output As #2 
For i = 1 To LastRow 
    For j = 1 To LastCol 
    If j = LastCol Then 

     CellData = CellData + Trim(ActiveCell(i, j).Value) 

    Else 

     CellData = CellData + Trim(ActiveCell(i, j).Value) + "," 

    End If 

    Next j  

Write #2, CellData 
CellData = "" 
Next i 

Answer 2

、試してみてください。

Sub dural() 
    Dim wb1 As Workbook, wb2 As Workbook 
    Set wb1 = ThisWorkbook 
    Set wb2 = Workbooks.Add 

    wb1.Activate 
    Sheets(1).Select 
    tabname = ActiveSheet.Name 

    Range("L1", Range("L1").End(xlDown)).Copy 

    wb2.Activate 
    ActiveSheet.Paste 
    wb2.SaveAs Filename:=tabname & ".txt", FileFormat:=xlTextWindows 
    wb2.Saved = True 
    wb2.Close 
End Sub