我正在尝试实现一个简单的目标,将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
关于遍历文件夹中的文件,建议您从我的代码 Loop through files in a folder using VBA? 开始
更改以下两者的路径
C:\temp\
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
关于excel - 用 vba 附加文本文件,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/21347318/