精华内容
下载资源
问答
  • Sub rename() With Application.ActiveSheet basePath = Application.ActiveWorkbook.Path i = 1 Do While (.Cells(i, 1) <> "") strFileName = basePath & "\" & .Cells(i, 1) &...

    Sub rename()
    With Application.ActiveSheet
    basePath = Application.ActiveWorkbook.Path
    i = 1
    Do While (.Cells(i, 1) <> "")
    strFileName = basePath & "\" & .Cells(i, 1) & ".pdf"
    If Dir(strFileName, 16) <> Empty Then
          Name strFileName As basePath & "\" & .Cells(i, 2) & ".pdf"
        End If
    i = i + 1
    Loop
    End With
    End Sub

    展开全文
  • EXCEL批量重命名文件

    2015-05-21 19:03:50
    在excel中使用VBA批量搜索文件,并重命名。
  • 今天花了大半天时间完成了一个自动化业务:文件的自动重命名。 本程序启动前,Windows批处理将提取工作文件夹下的所有source文件,并将文件名保存在Source_File_List.xls中。 然后,Windows批处理程序将启动本程序...

    今天花了大半天时间完成了一个自动化业务:文件的自动重命名。

    本程序启动前,Windows批处理将提取工作文件夹下的所有source文件,并将文件名保存在Source_File_List.xls中。
    然后,Windows批处理程序将启动本程序所在的工作簿。启动后执行以下操作:
    1. 将Source_File_List.xls中的文件名复制到A列
    2. 将公式模板行中的公式自动填充到所有行
    3. 筛选出需要重命名的行
    4. 将筛选出的重命名语句写入一个rename.txt的临时文件中
    5. 将该临时文件另存为带有时间戳的.bat文件
    6. 将.bat文件移动到当前工作夹文件下,执行此批处理文件,完成自动重命名

     

    技术要点:

    1. 获取有效数据的行号

        '复制前清除Rename工作表中的数据(仅清除文本内容,不清除格式及行标题)
        lastRow = ThisWorkbook.Sheets("Rename").Range("A1048576").End(xlUp).Row() '获取最后一行行号
        ThisWorkbook.Sheets("Rename").Range("A3:E" & lastRow).ClearContents

    2. 将模板公式(位于表头第二行)填充到所有数据行

    '将公式从模板行(第二行)复制到第三行,然后自动填充到最后一行
        ThisWorkbook.Sheets("Rename").Range("B2:E2").Select
        Selection.Copy  '复制B2:E2单元格,即公式模板行
        ThisWorkbook.Sheets("Rename").Range("B3").Select    '将公式复制到B3单元格
        Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        Selection.AutoFill Destination:=Range("B3:E" & lastRow)

    3. 筛选目标数据行,选择第一条可见行

    '筛选出重命名语句
        ThisWorkbook.Sheets("Rename").UsedRange.AutoFilter Field:=5, Criteria1:="Y"     'field = 5即Renamed?列的列号
    
        '筛选得到的重命名语句第一条记录所在行号
        firstVisibleRow = ThisWorkbook.Sheets("Rename").Range("A3:A" & lastRow).SpecialCells(xlCellTypeVisible)(1).Row()

    4. 将Excel中的内容写入txt文件

    Dim c As Range, i&
        Open ThisWorkbook.Path & "\rename.txt" For Append As #1
        For Each c In ThisWorkbook.Sheets("Rename").Range("D" & firstVisibleRow & ":D" & lastRow).SpecialCells(xlCellTypeVisible) '只写入可见行(有效的重命名语句)
            Print #1, c.Value
        Next
        Close #1

    5. 更改文件类型

    txtFileName = ThisWorkbook.Path & "\rename.txt"
        batchFileName = "rename_" & Format(Now, "yyyy-mm-dd hh_mm_ss") & ".bat"
        Name txtFileName As ThisWorkbook.Path & "\" & batchFileName '更改文件类型

    6. 移动文件

    Set FSO = CreateObject("Scripting.Filesystemobject")    '创建文件系统对象
        backupBatchFileName = Left(ThisWorkbook.Sheets("Rename").Range("A2"), 60) & batchFileName  '当前工作文件夹的路径保存在Rename工作表的H单元格中
    
        FSO.MoveFile Source:=ThisWorkbook.Path & "\" & batchFileName, Destination:=backupBatchFileName   '移动文件到工作文件夹

    7. VBA中执行批处理

    Call Shell(backupBatchFileName)   '执行批处理(似乎必须在当前路径下执行重命名操作,因为使用完整文件名时出错:incorrect syntax)

    一个小小的功能,使用的技术点还不少。这其中,好几个技术点对我而言是第一次应用,不错,VBA技术又提升了一步。

    展开全文
  • 大家好,我们今日讲解...第二节利用NAME语句,给文件重命名大家好,我们今日讲解文件及文件夹信息的获取及操作。讲解利用NAME语句,给文件重命名。在一般的文件操作中,如果需要重命名某个文件或者文件夹,只需右键...
    大家好,我们今日讲解“VBA信息获取与处理”教程中第十七个专题“文件及文件夹信息的获取及操作”的第一节“判断文件及文件夹是否存在”,这个专题是非常实用的知识点,希望大家能掌握利用。教程会提供配套的程序文件。

    第二节利用NAME语句,给文件重命名

    大家好,我们今日讲解文件及文件夹信息的获取及操作。讲解利用NAME语句,给文件重命名。在一般的文件操作中,如果需要重命名某个文件或者文件夹,只需右键选择重命名即可,这种操作也可以用代码来实现,就是我们今日讲解的NAME语句。

    1  NAME语句的意义和应用的语法规则

    Name 语句:可以重命名磁盘文件、目录或文件夹。 Name 语句的语法规则:Name oldpathnameAsnewpathname 参数: oldpathname必需指定现有文件名和位置的字符串表达式;可能包括目录或文件夹以及驱动器。 newpathname必需指定新的文件名和位置的字符串表达式;可能包括目录或文件夹以及驱动器。newpathname指定的文件名不能是已经已存在。 注意点 : 1)Name语句可重命名文件, 并将其移动到其他目录或文件夹 (如有必要)。Name可以跨驱动器移动文件, 但仅当newpathname和oldpathname位于同一驱动器上时, 才能重命名现有的目录或文件夹。Name不能创建新的文件、目录或文件夹。 2) 在利用Name语句的时候,要首先关闭需要重命名的文件。 3) 名称参数不能包含多字符 (*) 和单字符 (?) 通配符。 4) 示例: Dim OldName, NewName OldName = "OLDFILE": NewName = "NEWFILE" ' 定义文件名 Name OldName As NewName ' 重命名文件 OldName = "C:\MYDIR\OLDFILE": NewName = "C:\YOURDIR\NEWFILE" Name OldName As NewName ' 移动和重命名文件.

    2  利用NAME语句重命名文件及移动文件的实际应用

    在当前文件夹下有个“017temp”文件夹,这个文件夹下有“017Test”文件,下面我们要利用NAME语句完成下面的一些操作  1) 将“017Test.txt”文件重命名为“017Test1.txt”  2) 将上述的“017Test1.txt”文件移动到这个文件下的“Test1”文件夹里面。  3) 将“Test1”文件夹里面的“017Test1.txt”文件移动到外层文件下面并重命名为“017Test2.txt” 为了实现上面的目的,我给出下面的代码,共大家参考: Sub mynzA() '给文件重命名     Dim strPath As String strPath = ThisWorkbook.Path&Application.PathSeparator     If Dir(strPath& "017temp\017Test.txt") <> "" Then         Name strPath& "017temp\017Test.txt" As strPath& "017temp\017Test1.txt"         Name strPath& "017temp\017Test1.txt" As strPath& "017temp\Test1\017Test1.txt"         Name strPath& "017temp\Test1\017Test1.txt" As strPath& "017temp\017Test2.txt"    Else MsgBox "文件不存在!": END    End If MsgBox "重命名完成!" End Sub 代码截图: d2bd8ef7cea8e488b86ba8873dcfd1ba.png 代码解读: 1)Dir(strPath& "017temp\017Test.txt") <> "" 利用DIR函数判断当前文件夹下"017temp\017Test.txt"是否存在,如果不存在将会给出代码不存在的提示。 2)Name strPath& "017temp\017Test.txt" As strPath& "017temp\017Test1.txt" 以上代码将“017Test.txt”文件重命名为“017Test1.txt” 3)Name strPath& "017temp\017Test1.txt" As strPath& "017temp\Test1\017Test1.txt" 以上代码将上述的“017Test1.txt”文件移动到这个文件下的“Test1”文件夹里面。 4)Name strPath& "017temp\Test1\017Test1.txt" As strPath& "017temp\017Test2.txt" 以上代码将“Test1”文件夹里面的“017Test1.txt”文件移动到外层文件下面并重命名为“017Test2.txt”

    3  利用NAME语句重命名文件及移动文件的实现效果

    我们点击运行按钮,就可以实现上述各项要求。NAME语句简单,利用起来非常的简单,但这个语句利用的时候务必要结合其他的判断语句如dir函数来使用,我们在重命名一个语句的时候,首先要判断重命名之后的文件名是否已经存在,这种判断是必不可少的。 在利用NAME语句的时候,我给出了上面的三种方案,这三种方案是我们实际工作时利用最多的。 49b64f1681fda16c22cb6652a77da92e.png 以上完全实现了我们的需求。 本节知识点回向: ① NAME语句的作用和意义是什么? ②  利用NAME语句的时候需要注意什么? 本讲代码参考文件:017工作表.xlsm 60c91f0399936093aa8870a77c1fa8ff.png

      积木编程的思路内涵:

    在我的系列书籍中一直在强调“搭积木”的编程思路,这也是学习利用VBA的主要方法,特别是职场人员,更是要采用这种方案。其主要的内涵: 1  代码不要自己全部的录入。你要做的是把积木放在合适的位置然后去修正代码,一定要拷贝,从你的积木库中去拷贝,然后修正代码,把时间利用到高效的思考上。 2  建立自己的“积木库”。平时在学习过程中,把自己认为有用的代码放在一起,多积累,在用到的时候,可以随时拿来。你的积木库资料越多,你做程序的思路就会越广。 60c91f0399936093aa8870a77c1fa8ff.png

    VBA的应用界定及学习教程:

    VBA是利用Office实现个人小型办公自动化的有效手段(工具)。这是我对VBA的应用界定。在取代OFFICE新的办公软件没有到来之前,谁能在数据处理方面做到极致,谁就是王者。其中登峰至极的技能非VBA莫属! 我记得20年前自己初学VBA时,那时的资料甚少,只能看源码自己琢磨,真的很难。20年过去了,为了不让学习VBA的朋友重复我之前的经历,我根据自己多年VBA实际利用经验,推出了六部VBA专门教程,目前教程均通过32位和64位两种OFFICE系统测试。 第一套:VBA代码解决方案是VBA中各个知识点的讲解,教程共147讲,覆盖绝大多数的VBA知识点,提供的程序文件更是一座不可多得的代码宝库,是初学及中级人员必备教程;目前这套教程提供的版本是修订第二版,程序文件通过32位和64位两种OFFICE系统测试。 第二套:VBA数据库解决方案数据库是数据处理的专业利器,教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作,适合中级人员的学习。目前这套教程提供的是修订第一版教程,程序文件通过32位和64位两种OFFICE系统测试。 第三套:VBA数组与字典解决方案   数组和字典是VBA的精华,字典是VBA代码水平提高的有效手段,值得深入的学习,是初级及中级人员代码精进的手段。目前这套教程提供的版本是修订第一版,程序文件通过32位和64位两种OFFICE系统测试。 第四套:VBA代码解决方案之视频是专门面向初学者的视频讲解,可以快速入门,更快的掌握这门技能。这套教程是第一套教程(修订一版)的视频讲解,听元音更易接受。这套教程还会额外提供通过32位和64位两种OFFICE系统测试的程序文件。 第五套:VBA中类的解读和利用 这是一部高级教程,讲解类的虚无与肉身的度化,类的利用虽然较少,但仔细的学习可以促进自己VBA理论的提高。这套教程的领会主要是读者的领悟了,领悟一种佛学的哲理。目前这套教程提供的版本是修订第一版,程序文件通过32位和64位两种OFFICE系统测试。 第六套教程:《VBA信息获取与处理》,这是一部高级教程,涉及范围更广,实用性更强,面向中高级人员。教程共二十个专题,包括:跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作,剪切板应用、Split函数扩展、工作表信息与其他应用交互,FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。 上述教程的学习顺序:1→3→2→6→5或者4→3→2→6→5。提供的程序文件更是一座巨大的代码库,供读者使用,如需要可以WeChat: NZ9668 2b5dbc1780afff9f1b93a9805f203604.png

    学习VBA是个过程,也需要经历一种枯燥的感觉

    “众鸟高飞尽,孤云独去闲。相看两不厌,只有敬亭山”。学习的过程也是修心的过程,修一个平静的心。在代码的世界中,心平静了,心情好了,身体自然而然就好。心静则正,内心里没有那么多邪知邪见,也就没有那么多妄想。利人就是利己。我的教程助力给正在努力的朋友。 “水善利万物而不争”,绵绵密密,微则无声,巨则汹涌。学习亦如此,知道什么是自己所需要的,不要蜷缩在一小块自认为天堂的世界里,待到暮年时再去做自欺欺人的言论。要努力提高自己,用一颗充满生机的心灵,把握现在,这才是进取。越是有意义的事情,困难会越多。愿力决定始终,智慧决定成败。不管遇到什么,都是风景。看淡纷争,看轻得失。学习时微而无声,利用时则巨则汹涌。“路漫漫其修远兮,吾将上下而求索” 每一分收获都是成长的记录,怎无凭,正是这种执着,成就了朝霞的灿烂。最后将一阙词送给致力于VBA学习的朋友,让大家感受一下学习过程的枯燥与执着: 浮云掠过,暗语无声, 唯有清风,惊了梦中啼莺。 望星,疏移北斗, 奈将往事雁同行。 阡陌人,昏灯明暗, 忍顾长亭。 多少VBA人, 暗夜中,悄声寻梦,盼却天明。 怎无凭! 分享我多年工作实际经验的成果,随喜这些有用的东西,给确实需要利用VBA的同路人。回向学习利用VBA的历历往事,不胜感慨,谨以这些文字以纪念,

    分享成果,随喜正能量

    加微信NZ9668可获得详细资料信息

    _______________________________


    有启发 点在看,转给朋友  约作者 请留言,直接交流

    更多关联阅读

    7c467505ce390318d78f4271a97c8b47.png

    ffa1e2d1ca6dbc1da2dcaae2067862d7.png

    9750b8c52c8edff24e4a756f724457cc.png

    d51130b613adf5207462890e313d733f.png

    5de40884f42b319a7b1189d738880d64.png

    34da6216708697014d95fc75da0b12e2.png

    6a255327f3deb5306578ff30ad6342fe.png

    展开全文
  • VBA重命名文件.xlsm

    2021-09-02 18:24:11
    VBA重命名文件,源码可见
  • 1.基本的文件操作,如重命名,移动,删除,新建,文件大小,具体代码如下所示Option Explicit Sub 演示() Dim strpath As String, filename As String strpath = ThisWorkbook.path &amp; "\" '...

    1.基本的文件操作,如重命名,移动,删除,新建,文件大小,具体代码如下所示

    Option Explicit
     Sub 演示()
      Dim strpath As String, filename As String
      strpath = ThisWorkbook.path & "\"
      'filename = "text.txt"
      'MsgBox FileLen(strpath & filename) '文件大小
      filename = "text.txt"
    '  Name strpath & filename As strpath & "text_命名.txt" '重命名或者移动路径
    '  Name strpath & "\1" As strpath & "\2" '重命名文件夹
    'filname = "text.txt"
    'FileCopy strpath & filename, strpath & "tast_beifeng.text" '复制文件
      'Kill strpath & "\test.txt" '删除文件
    '   MkDir strpath & 1 '创建文件夹
    '   RmDir strpath & 1 '删除文件夹,(仅限空文件夹)
      
     
     End Sub

    2.文件加密(就是将文件的每一个字符用dog的每一个字符取它的ASCII值,再显示出来。)

    Option Explicit
    Sub 文件加密()
     Dim filename As String
     filename = ThisWorkbook.path & "\text.txt"
     Open filename For Binary As #1
     Dim i As Integer, ch As Byte, dog As String, j As Integer
     dog = "asddfx"
     For i = 1 To LOF(1)
        Get #1, , ch
        '把ch 与dog的每一位进行一次异或
        For j = 1 To Len(dog)
        ch = ch Xor Asc(Mid(dog, j, 1))
        Next j
        Put #1, , ch
    Next i
    Close #1

    End Sub

    展开全文
  • 能够对文件进行批量重命名,输入文件路径即可
  • 文件批量重命名工具,支持Remove Replace Split等,亲测好用! 官方介绍: Rename Master is a freeware utility designed to rename multiple files with a just few clicks. Anyone that has worked with websites...
  • 直接利用EXCEL中的数据对相片文件改名,很实用的. 要源码,请联系本人.
  • 在Excel表中通过VBA编码,制做了一个小程序,功能是"修改指定文件夹包括子文件文件后缀名".说明:Excel表的sheel1列A中存放了后缀名,不能删除。否则窗口中的下拉框没有值。该程序的特点是用VBA调用外部批处理代码...
  • Sub rename(ByVal path As String, ByVal ext As String) ' 使用方法 call rename("文件夹路径","后缀格式") ' 使用后的效果:例如 00.jpg 01.jpg 02.jpg ...... Dim MyPath$, MyFile$, NewName$, i&...
  • 文件内有具体操作介绍 1:dos获取文件目录 2:自动截取文件名 3:手工设定新名 4:复制dos命令并执行
  • 通过VBA程序批量修改文件夹名称,需要列出旧文件夹、新文件夹
  • 二、修改参考 Excel VBA Range对象基本操作应用示例(转贴,实用参考) 该文中的[示例01-06]里 [示例01-06] Sub test6() MsgBox “设置单元格C5中的公式.” Worksheets(1).Range(“C5:C10”).Cells(1, 1).Formula = ...
  • ".pdf" Next End Sub 按照Excel文件排序,将文件名添加序号 参考地址:https://docs.microsoft.com/zh-cn/office/client-developer/excel/excel-home?redirectedfrom=MSDN 该代码仅供学习,如商业转载请联系本人,非...
  • 批量重命名文件名称小软件

    千次阅读 2016-04-24 17:21:00
    说在前面先扯会,如果不是Android开发的,要使用本小软件,可以直接到下面正题在Android开发中,有时会遇到大量文件需要重命名的情况,特别是一些图片文件。有两个同学遇到过这种情况,我暂时还没遇到,但这种情况...
  • Excel VBA ——批量工作表重命名

    千次阅读 2013-08-22 10:38:05
    我的方法,先建一张新表,然后在第一列写好要命名的表名字,然后在VBE窗口里面输入代码 ... '批量工作表重命名 Dim i As Integer For i = 1 To 5 Worksheets(i).Name = Cells(i, 1) Next End Sub
  • 可恢复文件批量重命名excel VBA程序 借用某大神作品
  • 批量移动、重命名文件.xlsm,源码可见
  • 获取当前文件夹的名称(CurDir 函数)当你使用文件时,经常会需要知道当前文件夹的名称,你使用CurDir函数轻易地获取该信息:CurDir([drive])Drive是一可选参数,如果你忽略它,VBA将使用当前驱动(drive)。CurDir函数...
  • 移动和重命名文件,同时保持导入最新 目录 :megaphone: 概要 批量移动和重命名文件。 更新所有声明,并在代码库中语句。 标准化某些文件的命名和位置。 自动将新文件移动到正确的位置。 :cloud_...
  • 根据word文件内容重命名word 文件的源代码 思路: 先另存为 保存源文件名 然后逐一删除
  • '表格第1列为企业盲号,第二列为产品盲号,第三列是源文件地址,第4类用于存放生成的文件地址,第1行为标题行 Sub CopyStdFiles() Dim outPutFolder As String Dim filePath As String Dim companyFolder As ...
  • EXCEL中应用VBA实现图片的批量命名,给有需要的人
  • Excel-VBA文件操作

    千次阅读 2018-10-05 02:16:29
    2、利用VBA文件处理语句来处理文件; 3、利用FileSystemObject对象来处理文件; 4、利用API函数来处理文件。 对于数据库文件,还可以利用ADO+SQL的方法操作,本文不讨论 利用Excel对象自带的方法来操作文件是最...
  • 1.选择要修改文件的文件夹; 2.获取文件夹内所有文件; 3.在Excel里面将文件改后名写好; 4.更改文件名; 5.清空数据; 二、代码实现 1.可视化选择文件夹代码 With Application.FileDialog...
  • 批处理文件 Cleaner.bat)删除文件。 Renamer.bat)重命名文件。 Prestashop 1.6 updater_precios.php)更新Prestashop产品的价格。 Actualizador_stock.php)更新组合/变体的库存。
  • Excel-VBA操作文件四大方法

    万次阅读 2017-12-21 15:26:48
    Excel-VBA操作文件四大方法之一 在我们日常使用Excel的时候,不仅会用到当前Excel文件的数据,还经常需要访问其他的数据文件。这些数据文件可能是Excel文件、文本文 件或数据库文件等。经常有朋友会问如何在vba...
  • 文件批量重命名

    2016-10-18 10:55:23
    * 文件重命名 * 新名称的规则可自行在代码里修改 * @param filePath 要批量命名的文件根目录,如 D:/test ,就是将D:/test目录下的所有文件都重命名了 * @param newFileName 新的名称,如 原名称为 test.txt...
  • 该项目是一个非常易于使用的excel文件,允许用户创建文件列表,并使用此列表移动/重命名文件。 感谢您发表评论/评论,以便以后可以改善文件

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,072
精华内容 428
关键字:

vba文件重命名