如何用 VBS 来计算文本行数?

set fso=createobject("scripting.filesystemobject")

set file=fso.opentextfile("a.txt"宏竖弊)

n=file.readall

a=file.line

file.close

msgbox "共有纤脊" &a &"行蔽族",4096,"结果"

楼主,无论你指定不指定列念槐培,所有列的usedrange的范围是一样仔唯的,行数,取决于最长的列的行数

Sheet1.usedRange.Columns.Count 等于列数

Sheet1.usedRange.Rows.Count 等于行数

指不指定无所谓,你是要得到列数,没列的都是一样,如果我明枣理解错了,请你继续追问

---