附加文本文件与vba

我试图实现一个简单的目标，插入一个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

在循环浏览文件夹中的文件方面，build议您使用VBA开始使用Loop中的代码通过文件夹中的文件？

更改下面的path

• 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