vba를 사용하여 텍스트 파일을 추가하십시오.

Question

저는 간단한 목표를 달성하기 위해 기존 메모장에 Excel 파일의 행 수 및 열 수 요약을 삽입하려고합니다.

폴더에 여러 파일이 있으며 각 파일에 대해이 작업을 실행하고 메모장에 세부 정보를 보내려합니다.

문제 : 코드를 실행할 때마다 기존 내용이 삭제되고 메모장에 새 데이터가 삽입됩니다.

Sub Sndtotxt() 
    Dim FF 
    Dim rCnt AS INTEGER 
    Dim cCnt AS INTEGER 

    rCnt = ActiveSheet.UsedRange.Rows.Count 
    cCnt = ActiveSheet.UsedRange.Columns.Count 

    FF = FreeFile() 
    OPEN "C:\Temp files\summaryreport.txt" FOR Output AS #FF 
    Print #FF, rCnt 
    Print #FF, cCnt 

    CLOSE #FF 
    END Sub 

Answer 1

가있는 파일을 통해 반복의 관점에서
OPEN "C:\Temp files\summaryreport.txt" FOR Append AS #FF

와

OPEN "C:\Temp files\summaryreport.txt" FOR Output AS #FF
교체 : 나는

코드 기존 데이터를 유지하고 새로운 줄에서 추가 시작하고 싶습니다 폴더, 내 코드로 시작하는 것이 좋습니다 Loop through files in a folder using VBA?

변경

Sub GetEm() 
    Dim WB As Workbook 
    Dim StrFile As String 
    Dim FF 

    FF = FreeFile() 
    Open "C:\Temp\test.txt" For Append As #FF 

    StrFile = Dir("c:\temp\*.xls*") 
    Do While Len(StrFile) > 0 
    Set WB = Workbooks.Open("c:\temp\" & StrFile) 
     StrFile = Dir 
     Print #FF, WB.Name, WB.Sheets(1).UsedRange.Rows.Count, WB.Sheets(1).UsedRange.Columns.Count 
     WB.Close 
    Loop 
    Close #FF 
    End Sub