office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

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

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

2020-09-03 08:00:00
tmtony8
原創
4829

在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



填入新的文件名《群髮工資條》


更改文件名成功

    分享