VBA获取文件的创建、访问和最后修改时间

在论坛上帮人解决一个问题时,需要在Excel中使用vba提取指定文件的最后修改时间,参考文档写了一个函数,增加了“创建时间”、“最后访问时间”,记录在此备查:

Function FileInfo(fileDir)
    Dim ofile, myfile, info
    Set ofile = CreateObject("Scripting.FileSystemObject")
    Set myfile = ofile.GetFile(fileDir)
    info = "创建时间:" & myfile.DateCreated & vbCrLf
    info = info & "最后访问:" & myfile.DateLastAccessed & vbCrLf
    info = info & "最后修改:" & myfile.DateLastModified
    FileInfo = info
End Function

详解 WEBSERVICE 与 FILTERXML 函数提取 XML 数据

Office 2013版中,微软为Excel 增加了50个函数,不过由于大部分函数功能过于冷门,很少见到关于这些新增函数的讨论和用例。不过其中有两个函数还是比较引人注意的,就是WEBSERVICE和FILTERXML。近年来随着云计算、云应用的兴起,需要与web服务进行数据交互的情境也越来越多,微软也与时俱进地为Excel增加了相应的功能。那么这两个函数是做什么用的呢?

- 阅读剩余部分 -

Parker 51 真空墨囊维修笔记

昨天一支Parker 51突然吸不进墨了,拆开一瞧,发现墨囊居然裂开了。这支笔大约3年前才刚刚更换过新的墨囊,难道是配件质量太差的原因?要知道这支51虽是我的日常用笔之一,但从学校毕业后平时书写量很少,工作文档几乎都用电脑完成,况且还有几支笔分担日常书写,不应该这么快耗损掉。用手一摸破掉的墨囊,发现橡胶已经发粘,才想到或许是蓝黑墨水惹的祸,蓝黑墨水有比较强的酸性,而墨囊所用的橡胶不耐酸性腐蚀。看来以后使用蓝黑墨水要更加小心了。幸好手里还有备用的墨囊,今天赶紧找出来更换。想到当初自己刚刚尝试维修Parker 51的真空墨囊时,由于能找到的资料很少,又不懂注意事项,还拆毁过多支。所以特别整理一下手头的资料,结合自己的一点经验,写下来给别人做个参考。

- 阅读剩余部分 -

Cisco AnyConnect 保存常用服务器地址

客户端版本:4.2.01022
操作系统:Windows 8

首先关闭退出AnyConnect。
在C:\ProgramData\Cisco\Cisco AnyConnect Secure Mobility Client\Profile 路径下建立Profile.xml文件,写入以下内容,按自己的实际情况修改HostName和HostAddress并保存。

- 阅读剩余部分 -