VBA 判断文件夹是不是只读怎么写？

代码如下：

Sub test()
Dim fso, ff
Set fso = CreateObject("ScriptingFileSystemObject")
Set ff = fsoGetFolder("d:\test")
If ffAttributes = 1 Then DebugPrint "只读" '1-只读；2-隐藏；4-系统；32-存档，多重属性需累加
Set fso = Nothing
End Sub

打开文件如下：

WorkbooksOpen ("C:\对账单\对帐单xlsx")

这里你可以把“C:\对账单\”换成你的绝对路径，

你可以用：a = ThisWorkbookPath

a = ThisWorkbookPath

WorkbooksOpen ("" & a & "&" \ "&对帐单xlsx")

来获取你当前表的绝对路径，然后再打开，因为不知道你的具体情况，如果有问题可以hai我

如果当前文件夹下还有A文件夹可以用代码：

WorkbooksOpen ("" & a & "&" \ A\"&bxlsx")

Microsoft Excel是Microsoft为使用Windows和Apple Macintosh *** 作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。在1993年，作为Microsoft Office的组件发布了50版之后，Excel就开始成为所适用 *** 作平台上的电子制表软件的霸主。

---