office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

access vba更改指定位置的文件的名称

2020-09-03 08:00:00
tmtony8
原创
155

在access中,我们不单单用数据库的功能,还可以利用vba做些文件操作的事

在应用程序中,有这么一个问题:用户创建文件,如果文件存在,是否覆盖还是重命名操作。

这里分享一个函数,可以对指定位置的文件重命名操作,原文件名《群发工资条示例模版2》


运行代码:

Sub ReName()
    Dim F_Dlg As Office.FileDialog
    Dim oldName, newName, fileName As String
    '引用文件对话框
    Set F_Dlg = Application.FileDialog(msoFileDialogOpen)
    '设置文件对话框属性
    With F_Dlg
       .Title = "选择想要更名的文件"
       .AllowMultiSelect = False
       .Show
    End With     
    oldName = F_Dlg.SelectedItems.Item(1)
    '获取需要更名的文件所在文件夹
    newName = F_Dlg.InitialFileName     
    fileName = InputBox("请输入更改完的文件名:")
    newName = newName & fileName
    Name oldName As newName
End Sub



填入新的文件名《群发工资条》


更改文件名成功

    分享