用vba附加文本文件

Mysql_NUb_Sri 发表于 Dev

Mysql_NUb_Sri

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

布雷特杰

更换

OPEN "C:\Temp files\summaryreport.txt" FOR Output AS #FF
与
OPEN "C:\Temp files\summaryreport.txt" FOR Append AS #FF

关于循环浏览文件夹中的文件，建议您从使用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