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为所统计行的列号