append текстовый файл с 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 Output AS #FF
с
OPEN "C:\Temp files\summaryreport.txt" FOR Append AS #FF

С точки зрения цикла через файлы в папку, предлагаю начать с моего кода от Loop through files in a folder using VBA?

Изменить путь ниже для обоих файлов

• Excel C:\temp\
• Txt отчет C:\Temp\test.txt

в соответствии с

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