我通过ArrayString记录了一串的日期,需要输出到文本,但由于DebugFile每次调用一定是写一行,但我需要将结果放在同一行。我就用字符串将数组的各个元素全部记录后再写到文件,但似乎字符串有长度限制,无法全部写出。具体如下:
Set dateArray = CreateObject("Stock.ArrayString")
'dateArray通过Addback函数添加了数组元素,然后通过下面输出:
outputStr=""
for m=0 to dateArray.count-1
outputStr=outputStr & "," & .GetAt(m)
next
Call Document.DebugFile("d:\1.csv",outputStr,1)
输出结果是:
2016-01-18 10:35:18.659 2005/12/12,2006/1/16,2006/3/13,2006/3/20,.......(省略中间的日期部分),2006/8/17,2006/8/18,2006/8/21,2006{?S
最后会有一个奇怪的字符,不能全部输出完。这个问题有没有其他方式解决?
DebugFile 是主要做调试输出使用的,每行不能文字太多,如果你要处理写文件的操作,建议你使用VBA中自带的文件系统对象,参考
论坛已经有很多讨论了,建议你遇到问题时首先要想到搜索已有的讨论
http://www.weistock.com/bbs/dispbbs.asp?BoardID=5&ID=10903&skin=0