这里有个亲身案例:
一直用的好好的win7搜索,突然搜索不到excel文件的内容。百思不得其解,拟搜索的文件是由vba自动生成的,里面包含我想要的内容,但文件太多一个个打开搜索不现实。
偶然发现,某个文件被保存过后,可以正常被win搜索了,于是我把所有vba生成的excel文件打开一个个地手动保存了一遍,ok了。
于是有了经验:如果不是本地生成的excel文件,或者wps生成的文件,请用excel打开后把这个文件重新保存一下,win7就可以搜索到它的内容了。
其实在做vba的时候通过查资料发现,excel文件本身的属性,远多于excel程序给用户接触到的那么多,估计是有关于搜索的文件信息未被vba或 wps或网络程序所正确生成,只有用excel程序手动保存的时候才会生成完成的文件信息。
你的VBA是什么环境,下面的VBA在EXCEL里面执行,执行后A:C两列存放进程情况:
Option ExplicitSub a()
Dim objs, obj, i
Columns("a:c").Clear
Set objs = GetObject("WinMgmts:").InstancesOf("Win32_Process")
For Each obj In objs
i = i + 1
Cells(i, 1) = obj.Name
Cells(i, 2) = obj.Description
Cells(i, 3) = obj.ExecutablePath
Next
End Sub
#1这个是一个有效的文件号,范围在1到511之间。一般的用法是给一个变量
fnum=FreeFile
open "c:\text.txt" for input as #fnum
EOF(1)
是End Of File的意思,表示到达文件的结尾处。一般使用Do...Loop循环加上EOF函数来循环获得文本文件的每一行数据
Chr(13)已经有解释了
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)