excel VBA 取得与设置（文件与文件夹属性）|萝卜系统下载站

Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。

Sub createfolder()
‘******检查文件夹是否存在******
‘******如果不存在，就新建文件夹******
‘******并设置属性为隐藏******

‘设置属性：setAttr 文件(或文件夹) , 属性

‘获取属性：getAttr 文件(或文件夹) , 属性

‘******引用Microsoft Scripting Runtime******

Dim datafolder As String
Dim chfolder As Object
Set chfolder = CreateObject("scripting.filesystemobject")
datafolder = ThisWorkbook.Path & "\数据库备份\"
If Not chfolder.FolderExists(datafolder) Then
chfolder.CreateFolder (datafolder)
SetAttr datafolder, vbHidden + vbReadOnly
MsgBox "The folder " & datafolder & " was created!"
End If

‘******文件和文件夹属性******
‘常量数值属性名称
‘vbNormal 0 普通文件（无其他属性）
‘vbReadOnly 1 只读，不可修改
‘vbHidden 2 隐藏
‘vbSystem 4 系统文件
‘vbDirectory 16 目录
‘vbArchive 32 存档
‘****************************
End Sub

Excel整体界面趋于平面化，显得清新简洁。流畅的动画和平滑的过渡，带来不同以往的使用体验。

温馨提示：喜欢本站的话，请收藏一下本站！

当前位置:萝卜系统下载站 > 办公软件教程 > 详细页面

excel VBA 取得与设置（文件与文件夹属性）

本类教程下载

系统下载排行