Dim Filename as String
Filename = Application.GetOpenFileName Workbooks.Open Filename
ThisWorkbook.Sheets(1).Range(\ActiveWorkbook.Sheets(1).Range(\ActiveWorkbook.Close
Application.ScreenUpdating = True End Sub 7、总结
利用Excel对象的方法进行文件操作是最简单，也是最方便的，适合初学者。对于Excel文件格式，如果我们仅仅是读取其表格中的内容，这种方法也是首选。对于文本文件的操作，使用第二种方法比较方便，若要将文本转换成表格，那么使用此方法也是合适的。
Excel-VBA操作文件四大方法之二__利用VBA文件处理语句来处理文件
VBA包含了许多用于文件操作的语句和函数，可以满足绝大多数情况下的文件操作要求。下面我们按照操作目的进行一一介绍。 （一）文件处理
1.Name 语句
语法：Name oldpathname As newpathname
功能：重命名一个文件、目录、或文件夹，移动一个文件。
说明：在一个已打开的文件上使用 Name，将会产生错误。进行文件操作时，一定要注意错误处理。 示例：
On Error Resume Next '错误处理
Name \重命名 Name \移动文件
Name \跨驱动器移动并重命名文件 注意：Name不能移动一个目录或文件夹。 2、FileCopy 语句
语法：FileCopy source, destination 功能：复制一个文件。
说明：如果对一个已打开的文件使用 FileCopy 语句，则会产生错误。 示例：
FileCopy \从F盘复制TEST.xls到E盘 3、Kill 语句
语法：Kill pathname
功能：从磁盘中删除文件。
说明：Kill 支持多字符 (*) 和单字符 (?) 的统配符来指定多重文件。如果使用 Kill 来删除
一个已打开的文件，则会产生错误。 示例：
Kill \‘删除F盘的TEST.xls文件 Kill \删除F盘所有xls文件 4、GetAttr 函数
语法：GetAttr(pathname)
功能：获取一个文件、目录、或文件夹的属性。返回一个 Integer值。 返回值
由 GetAttr 返回的值，是下面这些属性值的总和： 常数 值 描述 vbNormal 0 常规 vbReadOnly 1 只读 vbHidden 2 隐藏 vbSystem 4 系统文件
vbDirectory 16 目录或文件夹 vbArchive 32 存档文件
vbalias 64 指定的文件名是别名。只在Macintosh中可用。
说明：若要判断是否设置了某个属性，在 GetAttr 函数与想要得知的属性值之间使用 And 运算符与逐位比较。如果所得的结果不为零，则表示设置了这个属性值。 示例：
Debug.Print GetAttr(\若为存档文件，在立即窗口可看到值为32
Debug.Print GetAttr(\将属性—高级—可存档文件的勾去掉后，值为0 为判断一个文件是否只读，可用下法:
Debug.Print GetAttr(\若值非零，说明时只读的。 5、SetAttr 语句
语法：SetAttr pathname, attributes 功能：为一个文件设置属性。
说明：如果想要给一个已打开的文件设置属性，则会产生运行时错误。 示例：
SetAttr\ ' 设置隐藏