VBA Kod dosyasını açmak için kod

Question

VBA'da bir dizi hücre kopyalayacak kod yazmayı deniyorum. Bu başarılı bir şekilde yaptım ama bir sonraki adımda sıkışıp kaldım.

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

Sonra, ben excel sekmesinden belirtilen adla yeni bir metin dosyası (.txt) açın ve kopyalanan hücreleri eklemek makro istiyorum: Bu ilk bölümüdür.

Metin dosyasını nasıl açarım? İşte

http://www.homeandlearn.org/write_to_a_text_file.html verdikleri örnektir - daha iyi makaleyi okuduktan sonra da senaryoya adapte ediyoruz:

size Burada

Answer 1

(Google üzerinden) birçok olası referanslar biridir ederiz

sütununuzdaki L verileri ilk sekmede ile

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

, deneyin:

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