UC知道急需实现一个EXCEL VBA编程实现文件管理问题
来源：百度知道 编辑：UC知道 时间：2024/07/04 02:17:28
由于公司文件管理需要，需要对某些OFFICE文档进行这样的管理：在一个excel表格中，有下列表列：
序号 文件路径 文件名 描述 创建者 创建日期 最后访问日期 最后修改日期，最后保存者
其中序号、文件路径、文件名和描述是固定的，希望通过在excel中通过宏调用或者按一个按钮，随时更新创建者、创建日期、最后访问日期，最后修改日期和最后保存者等office文档属性信息。
本人对EXCEL VBA编程及编辑一窍不通，哪位好心人可以提供下EXCEL VBA代码，本人不甚感激，奉上所有积分。
谢谢！
具体思路我想这样：根据Excel中的文件路径和文件名称列确定硬盘上的具体office文件，然后读取相关的属性，填写或更新后面几列。
我在网上找了一段程序（见下面），可以实现读取硬盘文件相关属性，只是我不知道怎么循环读取文件，同时将固定文件名换成取excel中的列），还有就是它的结果时一个弹出的MsgBox，希望能够把属性分开，填到相应的excel列中：
Function getit(ByVal filename As String) As String
Dim f, shell, s As String, i As Long
With CreateObject("scripting.filesystemobject")
Set f = .GetFile(filename)
Set shell = CreateObject("Shell.Application").Namespace(f.ParentFolder.Path)
For i = 0 To 30
If Len(shell.GetDetailsOf(shell.Items.Item(f.Name), i)) > 0 Then s = s & shell.GetDetailsOf(0, i) & vbTab & shell.GetDetailsOf(shell.Items.Item(f.Name), i) & v
序号 文件路径 文件名 描述 创建者 创建日期 最后访问日期 最后修改日期，最后保存者
其中序号、文件路径、文件名和描述是固定的，希望通过在excel中通过宏调用或者按一个按钮，随时更新创建者、创建日期、最后访问日期，最后修改日期和最后保存者等office文档属性信息。
本人对EXCEL VBA编程及编辑一窍不通，哪位好心人可以提供下EXCEL VBA代码，本人不甚感激，奉上所有积分。
谢谢！
具体思路我想这样：根据Excel中的文件路径和文件名称列确定硬盘上的具体office文件，然后读取相关的属性，填写或更新后面几列。
我在网上找了一段程序（见下面），可以实现读取硬盘文件相关属性，只是我不知道怎么循环读取文件，同时将固定文件名换成取excel中的列），还有就是它的结果时一个弹出的MsgBox，希望能够把属性分开，填到相应的excel列中：
Function getit(ByVal filename As String) As String
Dim f, shell, s As String, i As Long
With CreateObject("scripting.filesystemobject")
Set f = .GetFile(filename)
Set shell = CreateObject("Shell.Application").Namespace(f.ParentFolder.Path)
For i = 0 To 30
If Len(shell.GetDetailsOf(shell.Items.Item(f.Name), i)) > 0 Then s = s & shell.GetDetailsOf(0, i) & vbTab & shell.GetDetailsOf(shell.Items.Item(f.Name), i) & v
“然后读取相关的属性”，不易实现
呵呵，整理一下这行就可以了，s终究是字符串，每一次if 成立都添加一个属性项
在此基础上整理应该不太远了
s = s & shell.GetDetailsOf(0, i) & vbTab & shell.GetDetailsOf(shell.Items.Item(f.Name), i) & vbLf
除了读取相关属性做不到之外，这个管理程序在Excel中的VBA编程量也不小，高手也至少要做一天到两天才能真正做得漂亮，我估计你拿200分出来看对别人有吸引力没有？
到我的主页上下载一下就好了,不过那是用VB编的,你去看看吧
不是一两行代码能实现的,你可以下载一个文档管理系统来用就好了,www.tosinsoft.com