VB中怎样将从SQL导出的.xls文件加上只读权限？

Question

现在遇到个问题，想将从VB中导出的excel文件自动加上只读权限，防止修改。不知从那入手

Answer 1

Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(fs.GetFileName(filespec))
f.attributes  = 1

Answer 2

运行Set f = fs.GetFile(fs.GetFileName(filespec)) 这句提示程序呼叫或引数不正确。是不是还要定义什麽？

Answer 3

fs.GetFile(文件名)
包括路径

Answer 4

Private Sub Command3_Click()
Dim excelapp As Object
Dim excelsheet As Object
Dim excelbook As Object
Dim col As Integer
Dim row As Integer
Set excelapp = CreateObject("Excel.application")
 excelapp.Visible = True
 Set excelbook = excelapp.Workbooks.Add   
 Set excelsheet = excelapp.activesheet
 Me.MousePointer = 11
 ListView1.SortKey = 2
 ListView1.Sorted = True
 ListView1.Sorted = False
   excelsheet.Cells(1, 1) = "ネ玻"
   excelsheet.Cells(1, 2) = "絚腹"
   excelsheet.Cells(1, 3) = "め俱诀腹"
   excelsheet.Cells(1, 4) = "俱诀絪腹"
   excelsheet.Cells(1, 5) = "杆ら戳"
   excelsheet.Cells(1, 6) = "め兵絏1"
   excelsheet.Cells(1, 7) = "め兵絏2"
   excelsheet.Cells(1, 8) = "め兵絏3"
   excelsheet.Cells(1, 9) = "刺狾腹"
  For j = 1 To ListView1.ListItems.Count
  For i = 1 To ListView1.ColumnHeaders.Count - 1
      excelsheet.Cells(j + 1, i) = "'" & Trim(ListView1.ListItems(j).SubItems(i))
 Next
 Next
 MsgBox "旧ЧΘ!"
 Me.MousePointer = 0
End Sub
我的程序执行导出后在当前界面直接生成了book1.xls文件没路径。因为我不需要保存，

Answer 5

excelbook.saveas App.Path & "\book.xls"Set f = fs.GetFile(fs.GetFileName(App.Path & "\book.xls"))找不到档案

Answer 6

Set f = fs.GetFile(App.Path & "\book.xls")

Answer 7

用自带函数
SetAttr App.Path & "\book.xls", vbReadOnly
注意要先将 Excel 对象完全关闭才能设置。

Answer 8

可以了。谢谢!还有个问题，如果book.xls已经存在的话会提示无法取用唯读档案。怎样自动保存成BOOK.XLS,BOOK1.XLS,BOO2.XLS.....

Answer 9

dim sFileName as string
dim i as long
sFileName = App.Path & "\book.xls"
while lenb(dir(sfilename))<>0
    i = i+1
    sFileName = App.Path & "\book" & i & ".xls"
wend