ExcelVBA设置文件属性

实际项目中经常会遇到一些用VBA操作文件的情况，需要设置文件的属性，现将一些常用的文件属性设置整理一下，以便以后参考。也希望对其他人有所帮助，节省点开发时间！

设置文件的属性主要使用的是"SetAttr"语句

语法：SetAttr pathname, attributes

解説：文件的属性设定

参数：

PathName

描述：必选。指定文件名的 String
表达式。PathName
可以包含目录（或文件夹）和驱动器。

Attributes

描述：
必选。常数或数值表达式，其和指定文件属性。

设置：

Attributes
参数枚举值是：

值
常数
说明

Normal

vbNormal

正常（默认）。

ReadOnly

vbReadOnly

只读。

Hidden

vbHidden

隐藏。

System

vbSystem

系统文件。

Volume

vbVolume

卷标

Directory

vbDirectory

目录或文件夹。

Archive

vbArchive

自从上次备份后文件已更改。

Alias

vbAlias

文件具有不同的名称。

注意
： 这些常数是由 VBA 所指定的，在程序代码中的任何位置，可以使用这些常数来替换真正的数值。

如果想要给一个已打开的文件设置属性，则会产生运行时错误。

Sample：

下面的例子是把文件“C:/Autoexec.bat”设置为读取专用

Sub Sample()

SetAttr "C:/autoexec.bat", vbReadOnly

End Sub

最后在增加一个取有数据的最后一行行好的公式：

1. 如果数据是 : "文本数据", 最后一行的行号, 普通公式 :

=MATCH("*",A:A,-1)

2.如果数据是: "数值数据", 最后一行的行号, 普通公式 :

=MATCH(9E+307,A:A)

※A为所统计行的列号