精华内容
下载资源
问答
  • VBA文档管理系统

    2018-05-15 16:13:08
    本软件为EXCEL文件管理系统,基于VBA程序编写的小程序,方便文件管理,自动识别导入,打开链接
  • 对于文件管理,目前市面上也有很多成熟的商业方案可以使用。在此,仅提供一种轻量级的使用EXCEL管理文件的思路。毕竟EXCEL使用起来要更为简单一些。 以下是详细步骤:一、建立界面表格 1、创建工作表,将自己所需...

    39fa83c742966fdc02fad5180bab8aa5.png

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

    以下是详细步骤:

    一、建立界面表格

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

    27869c9e648982b57eeeff9a64ad5f46.png

    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   '给获取的路径添加尾部的斜杠“"
            path = path & ""
        End If
        file = Dir(path)     '获取路径下文件目录名称列表
        Do Until file = ""   '在工作表循环写入文件名
          Cells(i, 1).Value = file
          Cells(i, 2).Hyperlinks.Add Anchor:=Cells(i, 2), Address:=path & file, TextToDisplay:=file
          Cells(i, 3).Hyperlinks.Add Anchor:=Cells(i, 3), Address:=path, TextToDisplay:=path
          ext = Split(file, ".")  '把文件名和扩展名分割开来存入一维数组
          Cells(i, 4) = ext(1) '从数组中取出文件的扩展名
          i = i + 1
          file = Dir() ' 查找下一个文件
        Loop
    End Sub

    二、运行

    1、单击按钮,开始运行程序。选择需要导入文件目录的文件夹路径:

    115b69d8ac6b89ba4f70801002feacfa.png

    2、导入目录后的结果。

    这个列表包含了该文件夹下的文件名称、文件类型、同时生成了文件的连接、文件的连接。单击链接后即可直达文件或者文件夹。

    1231c2eda6876a3a892fe910d21e7acc.png

    以下就是单击文件链接,打开B2020001.jpg文件的效果:

    5e9c6899ae1fcfb4aa36ab7e252cf72a.png

    3、添加其它文件夹目录。

    如果还需把其它文件目录也添加进来,那么可以重复添加即可,添加的目录内容会自动增加到列表的底。

    c9f55c602e87e108aa2e845a1eb2673f.png

    三、总结

    完成以上操作,一个小型的文件管理系统就已经完成了。所有过程中,最关键的部分在于VBA代码,这部分代码基本能普遍适用。至于其它细节上的问题,比如加载内容前清空工作表、指定更新固定目录、批量处理目录等问题,可以自行修改,这个非常简单,在此不做过多说明。

    另外,如果有必要,还可以加入文件属性、文件大小、创建日期、最后修改日期等内容,这个只需要创建一个FileSystemObject对象,然后循环调用对应的属性值即可。


    创作不易,转载请注明来源!

    展开全文
  • 对于文件管理,目前市面上也有很多成熟的商业方案可以使用。在此,仅提供一种轻量级的使用EXCEL管理文件的思路。毕竟EXCEL使用起来要更为简单一些。以下是详细步骤:一、建立界面表格1、创建工作表,将自己所需的...

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

    以下是详细步骤:

    一、建立界面表格

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

    25ecf4b59bf8d48e7ec0ff6be4db9017.png

    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   '给获取的路径添加尾部的斜杠“"        path = path & ""    End If    file = Dir(path)     '获取路径下文件目录名称列表    Do Until file = ""   '在工作表循环写入文件名      Cells(i, 1).Value = file      Cells(i, 2).Hyperlinks.Add Anchor:=Cells(i, 2), Address:=path & file, TextToDisplay:=file      Cells(i, 3).Hyperlinks.Add Anchor:=Cells(i, 3), Address:=path, TextToDisplay:=path      ext = Split(file, ".")  '把文件名和扩展名分割开来存入一维数组      Cells(i, 4) = ext(1) '从数组中取出文件的扩展名      i = i + 1      file = Dir() ' 查找下一个文件    LoopEnd Sub

    二、运行

    1、单击按钮,开始运行程序。选择需要导入文件目录的文件夹路径:

    9e6c405031a22c2702042bb0489fa278.png

    2、导入目录后的结果。

    这个列表包含了该文件夹下的文件名称、文件类型、同时生成了文件的连接、文件的连接。单击链接后即可直达文件或者文件夹。

    4ef68235e5c932437503fbd5a253bc7e.png

    以下就是单击文件链接,打开B2020001.jpg文件的效果:

    72ada29da5468a59366050ad4e101876.png

    3、添加其它文件夹目录。

    如果还需把其它文件目录也添加进来,那么可以重复添加即可,添加的目录内容会自动增加到列表的底。

    c6375c93e2c93e5f2a3772b2f94f941b.png

    三、总结

    完成以上操作,一个小型的文件管理系统就已经完成了。所有过程中,最关键的部分在于VBA代码,这部分代码基本能普遍适用。至于其它细节上的问题,比如加载内容前清空工作表、指定更新固定目录、批量处理目录等问题,可以自行修改,这个非常简单,在此不做过多说明。

    另外,如果有必要,还可以加入文件属性、文件大小、创建日期、最后修改日期等内容,这个只需要创建一个FileSystemObject对象,然后循环调用对应的属性值即可。


    创作不易,转载请注明来源!

    展开全文
  •  本试题库管理系统包含四个Word文档文件(其中带有VBA程序),只要将这些文件拷贝到任何装有Word系统的计算机中就可以直接使用,不需额外安装,不用时可直接删除,无需卸载,属于绿色软件。  (三)可以管理多媒体...
  • 销售管理系统是以一个Access数据库【销售管理.mdb】为基础,以Excel VBA为开发平台,利用ADO数据库查询技术和SQL语言,实现产品资料、客户资料、销售数据等的录入、修改、删除、导出、统计分析以及汇总编制各种报表...
  • 对于文件管理,目前市面上也有很多成熟的商业方案可以使用。在此,仅提供一种轻量级的使用EXCEL管理文件的思路。毕竟EXCEL使用起来要更为简单一些。 以下是详细步骤:一、建立界面表格 1、创建工作表,将自己所需...

    d5daf97fe9ddb9a3dcc6d424a03f0ca1.png

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

    以下是详细步骤:

    一、建立界面表格

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

    569395bf6d651a0a3e65606eca490fd4.png

    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   '给获取的路径添加尾部的斜杠“"
            path = path & ""
        End If
        file = Dir(path)     '获取路径下文件目录名称列表
        Do Until file = ""   '在工作表循环写入文件名
          Cells(i, 1).Value = file
          Cells(i, 2).Hyperlinks.Add Anchor:=Cells(i, 2), Address:=path & file, TextToDisplay:=file
          Cells(i, 3).Hyperlinks.Add Anchor:=Cells(i, 3), Address:=path, TextToDisplay:=path
          ext = Split(file, ".")  '把文件名和扩展名分割开来存入一维数组
          Cells(i, 4) = ext(1) '从数组中取出文件的扩展名
          i = i + 1
          file = Dir() ' 查找下一个文件
        Loop
    End Sub

    二、运行

    1、单击按钮,开始运行程序。选择需要导入文件目录的文件夹路径:

    5e23d506fc3a1623fd4e079026d28089.png

    2、导入目录后的结果。

    这个列表包含了该文件夹下的文件名称、文件类型、同时生成了文件的连接、文件的连接。单击链接后即可直达文件或者文件夹。

    66f6c3db82fdea198f7acb1e2db9a02f.png

    以下就是单击文件链接,打开B2020001.jpg文件的效果:

    5fa51c2b3daa7566ace2a18a67ca9ba0.png

    3、添加其它文件夹目录。

    如果还需把其它文件目录也添加进来,那么可以重复添加即可,添加的目录内容会自动增加到列表的底。

    fd755ef76993f2b339c94fe43faf679a.png

    三、总结

    完成以上操作,一个小型的文件管理系统就已经完成了。所有过程中,最关键的部分在于VBA代码,这部分代码基本能普遍适用。至于其它细节上的问题,比如加载内容前清空工作表、指定更新固定目录、批量处理目录等问题,可以自行修改,这个非常简单,在此不做过多说明。

    另外,如果有必要,还可以加入文件属性、文件大小、创建日期、最后修改日期等内容,这个只需要创建一个FileSystemObject对象,然后循环调用对应的属性值即可。


    创作不易,转载请注明来源!

    展开全文
  • EXCEL文件管理系统

    热门讨论 2012-06-04 14:19:32
    该文件是一个基于EXCEL-VBA实现的简单的文件管理程序,可以以一个tree的形式显示多级文件夹的文件以及详细信息包括创建时间、最后修改时间、文件大小等等,并提供超链接定位。适用于项目管理的文件管理
  • 文件为Excel为基础的VBA开发应用和实例额,方便希望使用Excel进行相应的数据开发和存储及连接的使用,参考,需要用到Excel的Visual basic Application
  • 基于WEB的图纸管理系统下的AutoCAD VBA二次开发,张树森,张颖,分析了目前AutoCAD的dwg文件提取数据的技术现状,针对B/S模式的图纸管理系统,采用AutoCAD的VBA进行定制二次开发,将标题栏和明细表做成�
  • Excel下VBA的财务系统

    2012-12-27 23:29:53
    系统是基于office excel下VBA编写的一个财务管理程序,大部分功能实现!文件名字上已说明登陆方法!
  • 公司宿舍管理台帐,都是EXCEL,做起来麻烦,容易弄错数据,统计费劲,闲来无事情,给公司用VBA编写了一个宿舍管理系统,现在分享给大家。 1、压缩内包含:帐号信息、VBA代码调试代码,2007版本文件(用07版excel...
  • vba+sql+Excel学生信息管理系统

    热门讨论 2008-06-03 17:24:34
    自己做的一个很简单的vba程序,功能不多,但基本的查找,删除,添加都有,实现了与sql相连,有简单的登陆功能,打开Eecel改:工具-宏-安全性-低,再改工具-选项-安全性-保存时从文件属性中删除个人信息的钩去掉,再...
  • 1、需求:将某个文件夹下,所有Excel文件及子...糟糕的是这么大的公司没有用系统管理,必须让各个子公司报Excel表格。还好的是以前干这活的同事已经把表格规范了,每个子公司都会严格按照规范报,子公司也会收集...

      2d4476a351797083dfd01fab1b775b9d.png

    1、需求:

    将某个文件夹下,所有Excel文件及子文件夹下的Excel文件内容,复制到一张汇总表。

    2、举例:

    假如你在1个大型集团公司人力部门工作,公司每年都要收集下属上百个子公司、及子公司的子公司的人员信息,这个工作落到你手上了。

    • 糟糕的是这么大的公司没有用系统来管理,必须让各个子公司报Excel表格。

    • 还好的是以前干这活的同事已经把表格规范了,每个子公司都会严格按照规范报,子公司也会收集好子公司的表,并且把自己的子公司的表都单独放在1个文件夹。

    你看了看以前年度的数据,大概是这个样子:

    ef85c155559c5e42f3f8bcf8ce908fbf.gif

    你估计上千个文件夹,弄个3、4天应该也可以了。5660d8b4e2f7cf085e49c7d33dbcc7b6.png

    3、代码实现

    让我们看看如何用VBA代码1分钟内搞定。

    这个需求的核心是如何能够得到所有的Excel文件路径,只要文件格式一致,打开Excel,复制需要的数据是很简单的。

    VBA遍历获取所有文件方法:

    • 调用Dir函数

    • 使用FileSystemObject

    • 使用cmd命令

    Dir函数个人觉得不好用,用下面的2种方法。

    FileSystemObject方法是对象形式的,好理解,只要能理解递归调用子文件夹:

    Function GetFilesFSO(path As String, RetFiles() As String, k As Long) As Long    Dim fso As Object    Dim file As Object    Dim folder As Object, subDir As Object    Set fso = CreateObject("Scripting.FileSystemObject")    Set folder = fso.Getfolder(path)    '遍历文件    For Each file In folder.Files        ReDim Preserve RetFiles(k) As String        RetFiles(k) = file.path        k = k + 1    Next file    '遍历子文件夹    For Each subDir In folder.Subfolders        GetFilesFSO subDir.path, RetFiles, k    Next    Set file = Nothing    Set folder = Nothing    Set subDir = Nothing    Set fso = NothingEnd Function

    cmd命令最简单,随便baidu一下dir命令就可以,运行的时候会有个黑窗跳出一下:

    Function GetFilesCmd(path As String) As Variant    Dim ws As Object    Dim ws_exec As Object    Dim str As String    Dim ret As Variant        Set ws = CreateObject("Wscript.Shell")       Set ws_exec = ws.Exec("cmd.exe /c dir """ & path & """ /b /s /a-d")    str = ws_exec.StdOut.ReadAll    '这个最后会有个空白的    ret = Split(str, vbNewLine)        GetFilesCmd = ret        Set ws_exec = Nothing    Set ws = NothingEnd Function

    得到了所有文件,打开Excel,复制数据就容易了:

    Function DoCopy(des As Range, srcfile As String)    Const COLS As Long = 10 '需要复制的数据列数        Dim wk As Workbook        Set wk = Workbooks.Open(srcfile, False)    Dim i_row As Long    ActiveSheet.AutoFilterMode = False    '找到需要复制的单元格范围    i_row = Cells(Cells.Rows.Count, 1).End(xlUp).Row    '记录一下文件的名称    des.Offset(0, COLS).Resize(i_row, 1).Value = srcfile    '复制    Range("A1").Resize(i_row, COLS).Copy des    '复制完一个文件后,目标单元格下移    Set des = des.Offset(i_row, 0)        wk.Close FalseEnd Function

    主程序:

    Sub VBAMain()    Dim path As String        path = GetFolderPath()    If VBA.Len(path) = 0 Then Exit Sub    '    Dim ret As Variant'    ret = GetFilesCmd(path)        Dim ret() As String    GetFilesFSO path, ret, 0        '关闭屏幕更新,防止打开文件的时候不断更新屏幕浪费资源    Application.ScreenUpdating = False        Dim rng As Range    Set rng = Range("A1")        Cells.Clear    Dim i As Long    For i = 0 To UBound(ret) '使用GetFilesCmd的时候,UBound(ret)后面要-1        DoCopy rng, VBA.CStr(ret(i))    Next        Application.DisplayAlerts = TrueEnd SubFunction GetFolderPath() As String    Dim myFolder As Object    Set myFolder = CreateObject("Shell.Application").Browseforfolder(0, "选择要处理的文件夹", 0)    If Not myFolder Is Nothing Then        GetFolderPath = myFolder.Self.path        If Right(GetFolderPath, 1) <> "\" Then GetFolderPath = GetFolderPath & "\"    Else        GetFolderPath = ""    End If    Set myFolder = NothingEnd Function

    注:程序没有考虑文件夹里可能存在其他类型文件的情况,如果要过滤掉那些不是Excel的文件,需要根据文件后缀来处理。

    486e76d3b0c76912029dbee2c1b69800.png

    0190fbb21eda56269a972e39e83f01d5.png请关注激励我0190fbb21eda56269a972e39e83f01d5.png

    af85d2c0f8de6cb6f72695bb88d50126.png

    展开全文
  • 系统以NVD漏洞数据作为数据源。将该数据库导入SQL Server中,然后在此基础上完成如下三大功能:...文件分为两部分:AX编程技术和Exel VBA编程代码!!在重生系统时,不要忘了,先导入上述Excel文件!!!!!!!!!
  • 1.调用DOS命令:net user 获取系统用户到txtfile2.打开txtfile把内容处理(空格全替换为换行;已换行分列)后赋值到A3.把A列不为空的值且不到特殊用户表的值写到临时表4.与EXCEL用户表进行对比 使用函数COUNTIF(1...
  • 《财务会计管理系统》范例文件使用说明: 本套《财务会计管理系统》包括以下6个子系统: 1. 会计科目及期初余额管理系统.xls 用于设置会计科目及期初余额。 登陆用户名:hxl,密码:11111 2. 会计凭证管理系统.xls ...
  • Excel VBA 高效办工范例应用 韩泽坤朱瑞亮 示例文件 很多读者在对Excel入门后...,如何实现高效集成的管理控制系统等。并重点讲解Excel宏操作,安全管 理和内置函数的应用,是Excel入门读者提高应用水平的绝佳选择。
  • 本试题库管理系统包含一个Word文档和一个Excel工作簿文件(均带有VBA程序),只要将这两个文件拷贝到任何装有Office 2002以上版本系统的计算机中就可以直接使用,不用时可直接删除。不像一般软件那样包含大量系统...
  • 最新 Excel VBA 活用范例大...《最新Excel VBA活用范例大辞典》适合具有Excel与Excel VBA基础知识的各类人员阅读,同时适合从事公司信息管理应用系统开发的各类人员阅读,也可作为学校大中专相关专业的教材或参考书。
  • ☆《Excel VBA 2007程序设计案例集锦》.rar 文件夹中有: 第11章 销售数据图表分析系统 经理 密码admin ...工程属性 密码VBA888 第12章 文件管理系统 密码 admin888 第13章 企业库存管理系统 密码 office666
  • 第一章 从Excel插件认识VBA 第二章 VBA概述 第三章 巧设VBA编辑器提升编程效率 ...第二十章 磁盘与系统信息管理 第二十一章 认识Excel的内置命令栏对象 第二十二 创建新工具栏 第二十三章 创建新菜单栏
  • Excel VBA编程大集合-1

    2010-10-27 21:26:00
    Excel VBA 编程 文件列表: 2008/03/10 07:03 6,878,285 Excel VBA编程24学时教程.exe 2010/10/24 12:52 <DIR> ExcelVBA编程入门范例 2010/10/24 12:35 69,970,867 Excel_...2010/10/24 13:04 <DIR> 人事信息管理系统
  • CAD_VBA开发手册

    热门讨论 2008-12-06 17:57:59
    VBA管理器组织工程 处理宏 用VBA IDE编辑工程 更多的信息 回顾AutoCAD VBA 工程术语 回顾AutoCAD VBA 命令 第二章 理解ActiveX自动操作基础.. 理解AutoCAD对象模型 访问对象层次 通过集合对象操作 理解...
  • vba/vb6 鼠标滑轮补丁

    2010-04-29 14:57:29
    打开 VB6 或者 VBA 编辑器,打开它的外接程序管理器,会看到列表里出现了“MouseWheel Fix”这一项。选择它并将其设置为“加载的”和“启动时加载”。  现在再试试,VB6/VBA 编辑器中已经可能使用鼠标滚轮来滚动...
  • 最新Excel VBA活用范例大辞典 光盘

    热门讨论 2012-01-31 13:58:10
     本书适用于具有Excel与Excel VBA基础知识的各类人员阅读,同时适用于从事公司信息管理应用系统开发的各类人员阅读,也可作为相关专业大中专教材或参考书。 目录 Chapter1 Application对象实用操作技巧 Chapter2 ...
  • Excel VBA开发技术大全-伍远高 高清PDF

    热门讨论 2012-09-17 09:46:32
    最后详细介绍了一个进销存管理系统的开发过程。 Excel 2007与以前版本相比,从操作界面到对象模型的变化都很大,例如,取消了菜单和工具栏,新增了功能区。《Excel VBA开发技术大全》在介绍通过VBA操作Excel对象的...
  • Excel VBA与数据库整合应用范例精讲

    热门讨论 2011-10-29 18:48:38
    第11章以一个具有较大使用价值的固定资产管理系统为案例,详细介绍Excel VBA开发管理系统的过程。每个实例分析透彻,代码完整,技巧全面,使用得心应手。 目录 第1章 动态创建Access数据库和数据表 实例1-1 利用...
  • 此案例要求用Excel VBA 制作学生成绩管理系统,其中,系统有登录窗体界面、浏览查询数据、成绩输入以及统计总分、平均分等功能。(1) 将Sheet1、Sheet2、Sheet3工作表分别改名为“浏览”、“主界面”和“用户表”。将...
  • 包括操作管理Excel VBA常见对象(Application对象、Workbook对象、Worksheet对象、Range对象、Chart对象、Shape对象、窗体控件对象以及对象事件)、创建自定义菜单和自定义工具栏、利用Excel VBA操作数据库、设计...
  • 的功能的扩展,如文件系统的访问、打印等。通过这部分的学习,读者应该 可以灵活地使用VBA技术完成各种复杂的功能,甚至用其控制Excel应用程序 的方方面面,成为Excel VBA技术的专家。本部分包含大量很有价值的...

空空如也

空空如也

1 2 3 4 5 ... 12
收藏数 223
精华内容 89
关键字:

vba文件管理系统