vba - 将文件名作为用户的输入并将其名称拆分并重命名

Question

FileToOpen = Application.GetOpenFilename()

If FileToOpen = False Then
    MsgBox "Please Select the File"
    Exit Sub
    MsgBox "Please Select the File"
End If

Workbooks.Open Filename:=FileToOpen
Set wb = ActiveWorkbook

Conversion = CStr(FileToOpen)
Result = Split(Conversion, ".")

标签： vbasplitrename