0

我有一个将数据写入复制的 excel 模板的数据库。该模板被隐藏以防止最终用户篡改它，但最终结果也被隐藏。保存新文件时有没有办法更改隐藏属性？

目前，数据库复制模板并重命名它。

fso.CopyFile "C:\Upload\Rebate_Upload_Files\Standard Form (Template) 
protected.xlsx", "C:\Upload\Rebate_Upload_Files\Rebate Contract " & 
Contract_Number & " " & Date$ & ".xlsx"

之后，它会传输相应的表并保存文件。

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, 
"export_table", "C:\Upload\Rebate_Upload_Files\Rebate Contract " & 
Contract_Number & " " & Date$ & ".xlsx", False, "A12:L65000"

该过程工作正常，除了最终文件也被隐藏并且我希望它是一个普通文件。

谢谢

4

2 回答 2

0

Mike 上面的代码有效，但是我还需要执行几个步骤，所以我想为遇到此问题的任何人提供完整的代码。

首先，为了使用 FileSystemObject，您需要在 VBA 编辑器中启用它，方法是转到 Tools->References 并启用“Microsoft Scripting Runtime”。然后，使用下面的代码，您可以复制一个隐藏文件并将新文件（通过 f.Attributes）设置为不隐藏：

' SourceFile is the full path name to my original file
' FileNAme is the full path name to my new file
Dim fso As Scripting.FileSystemObject
Dim f As File
Set fso = New Scripting.FileSystemObject
Call fso.CopyFile(SourceFile, FileName, False) ' Set to true to overwrite
Set f = fso.GetFile(FileName)
f.Attributes = 0
于 2020-04-29T21:58:25.523 回答
0

不适用于 CopyFile——它是一种 FileSystemObject 方法，但有一个用于 File 对象的方法。我们将在副本完成后对其进行更新。

为简单起见，我已将您的文件输出路径替换为字符串变量。

originalFileName = "yourStartingFile"
copyFileName = "yourCopiedFile"

set fso.CopyFile OriginalFileName, CopyFileName
 --after copying, get file that was copied
 --set attributes value of file to 0. 0 = Normal, 2 = Hidden
f = fso.GetFile(copyFileName)
f.attributes = 0

更多阅读以获取更多详细信息。

https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/file-object

https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/attributes-property

于 2019-05-16T18:46:39.510 回答