Name 语句示例

本示例使用 Name 语句来更改文件的名称。示例中假设所有使用到的目录或文件夹都已存在。 在 Macintosh 中，默认驱动器名称是 “HD” 并且路径部分由冒号取代反斜线隔开。

Dim OldName, NewName

OldName = 'OLDFILE': NewName = 'NEWFILE' ' 定义文件名。

Name OldName As NewName ' 更改文件名。

OldName = 'C:\MYDIR\OLDFILE': NewName = 'C:\YOURDIR\NEWFILE'

Name OldName As NewName ' 更改文件名，并移动文件。

本示例显示当前默认文件路径。

MsgBox 'The current default file path is ' & _

Application.DefaultFilePath

本示例设置替换启动文件夹。

Application.AltStartupPath = 'C:\EXCEL\MACROS'

FolderExists 方法

如果指定的文件夹存在返回 True，不存在返回 False。

语法

object.FolderExists(foldersp

Name 语句示例

本示例使用 Name 语句来更改文件的名称。示例中假设所有使用到的目录或文件夹都已存在。 在 Macintosh 中，默认驱动器名称是 “HD” 并且路径部分由冒号取代反斜线隔开。

Dim OldName, NewName

OldName = 'OLDFILE': NewName = 'NEWFILE' ' 定义文件名。

Name OldName As NewName ' 更改文件名。

OldName = 'C:\MYDIR\OLDFILE': NewName = 'C:\YOURDIR\NEWFILE'

Name OldName As NewName ' 更改文件名，并移动文件。

本示例显示当前默认文件路径。

MsgBox 'The current default file path is ' & _

Application.DefaultFilePath

本示例设置替换启动文件夹。

Application.AltStartupPath = 'C:\EXCEL\MACROS'

FolderExists 方法

如果指定的文件夹存在返回 True，不存在返回 False。

语法

object.FolderExists(foldersp

Name 语句示例

本示例使用 Name 语句来更改文件的名称。示例中假设所有使用到的目录或文件夹都已存在。 在 Macintosh 中，默认驱动器名称是 “HD” 并且路径部分由冒号取代反斜线隔开。

Dim OldName, NewName

OldName = 'OLDFILE': NewName = 'NEWFILE' ' 定义文件名。

Name OldName As NewName ' 更改文件名。

OldName = 'C:\MYDIR\OLDFILE': NewName = 'C:\YOURDIR\NEWFILE'

Name OldName As NewName ' 更改文件名，并移动文件。

本示例显示当前默认文件路径。

MsgBox 'The current default file path is ' & _

Application.DefaultFilePath

本示例设置替换启动文件夹。

Application.AltStartupPath = 'C:\EXCEL\MACROS'

FolderExists 方法

如果指定的文件夹存在返回 True，不存在返回 False。

语法

object.FolderExists(foldersp