批量生成数组_使用VBA自动生成文件目录制作文件管理系统

最新推荐文章于 2024-07-17 15:53:22 发布

五个橘核

最新推荐文章于 2024-07-17 15:53:22 发布

阅读量729

点赞数

文章标签：批量生成数组

本文链接：https://blog.csdn.net/weixin_28432777/article/details/112693085

版权

本文介绍了一种轻量级的文件管理系统，利用Excel和VBA实现。通过建立界面表格，插入ActiveX按钮，编写VBA代码，当点击按钮时，系统能够读取文件夹路径，列出文件名、类型等信息，点击链接可直接打开文件。该系统可扩展以包含更多文件夹和额外的文件属性信息。

摘要由CSDN通过智能技术生成

对于文件的管理，目前市面上也有很多成熟的商业方案可以使用。在此，仅提供一种轻量级的使用EXCEL管理文件的思路。毕竟EXCEL使用起来要更为简单一些。

以下是详细步骤：

一、建立界面表格

1、创建工作表，将自己所需的项目添加进去，如下图。

2、在该工作表中插入一个Active X按钮控件，然后在该控件click事件下写入如下代码：

Private Sub CommandButton1_Click()    Dim i As Integer    Dim path As String    Dim ext() As String    If [A2] = "" Then   '判断一下表内容是否为空，主要目的是防止End(xldown)溢出错误        i = 2    Else        i = [A1].End(xlDown).Row + 1    End If    With Application.FileDialog(msoFileDialogFolderPicker)        .AllowMultiSelect = False     If .Show Then path = .SelectedItems(1) Else Exit Sub    End With    If Right(path, 1) <> "" Then   '给获取的