QQ网名大全

EXCEL中VB编程中如何提取文件名

我曾经做过一个书目管理程序,就是将自己硬盘、光盘的书目名称做成数据库进行管理,想看什么书的时候,可以更快查找出来。
其中有引用文件名的语句,可能对你有帮助:
Dim str As String 'str用于存放文件的名称
Dim i As Integer
l = Forms![新增书目]![导入地址] '可以用窗体输入地址,如果地址固定,也可以自己直接赋值
str = Dir(l) '这里将字符串改为路径
Do While str <> ""
i = i + 1
文件名.Value = str '保存文件名
书名.Value = Trim(Left(str, InStrRev(str, ".", -1) - 1)) ’去掉扩展名,就是书名
DoCmd.GoToRecord , "读取子窗体", acNewRec
str = Dir '得到下一个文件名
Loop

以上为参考,请根据自己的文件名起名特点,自行用字符函数提取相关数据信息。
佚名
2024-06-07 23:45:56
最佳回答
类似问题(10)
  • 佚名
    2024-06-07 13:52:00

    如何将文件夹的名字导入到Excel表格中

    可以先用命令把这些文件夹存储到本地,然后再复制到Excel中。假如你的文件夹abc在C盘根目录,命令如下:1dir C:\abc/B/A:D>C:\Tem...

  • 佚名
    2024-06-07 13:37:59

    如何使用excel提取文件夹中的所有文件名称

    1、在那个文件夹内新建一个.TXT文件(如wenjian.txt),用记事本单开输入dir> 1.txt保存退出将刚才的.TXT(wenjian.txt)更名为...

  • 佚名
    2024-06-07 16:20:57

    Excel 如何用代码批量提取文件夹并重命名

    文件夹重命名,需要从内到外逆序进行的,不然你即使提取了也会出错!

  • 佚名
    2024-06-07 15:35:24

    有关VB编程!

    楼主要求详细,不知详细到什么程度,以下过程若不够详细,请百度Hi新建一个窗体,在窗体上点右键,弹出一个菜单,选择“菜单编辑器”,弹出“菜单编辑器”对话框,在对话...

  • 佚名
    2024-06-07 08:00:00

    如何提取目录下所有文件的文件名

    1、打开一个记事本文档,然后复制下列内容到文档中。 @echo off dir /s/b *.* > 文件名.txt exit 2、将上述内容复制到要提取文件名...

  • 佚名
    2024-06-07 08:00:00

    如何利用excel VBA生成PDF文件

    首先,加载引用,如图然后,在打印机中对Acrobat Distiller的打印进行设置设置(必须,否则转化出错!)Public Sub MakePDF(ByVa...

  • 佚名
    2024-06-07 08:00:00

    Vb怎样编程,把一篇文章中任意三个词汇提取出来?

    呵呵。 对于英语来说,这是个简单的问题。因为,英语的词是用空格来加以区分的。但汉语就非常麻烦了。理论上说,对于汉语的文章,你要先把文章中所有词汇分检出来,放在一...

  • 佚名
    2024-06-07 08:00:00

    如何让文件夹内所有文件名显示在一个Excel文件

    1、在那个文件夹内新建一个.TXT文件(如wenjian.txt),用记事本单开输入dir> 1.txt保存退出将刚才的.TXT(wenjian.txt)更名为...

  • 佚名
    2024-06-07 08:00:00

    关于如何利用EXCEL中的编号批量修改图片文件名?

    可以用VBA来实现你要的功能,具体方法可以参考下面的来实现:1、首先建立一个EXCEL表 其中第一个工作薄名称为照相顺序表 如下图Sub 照片重命名()If M...

  • 佚名
    2024-06-07 08:00:00

    EXCEL中输入编号如何自动加入名称?

    建立一个基础数据库(编号与名称一一对应的基础数据库)用vlookup函数自动根据编号引用基础库中的值展示表E2的公式:=VLOOKUP($C$2,基础数据!$A...