VB中怎样将从SQL导出的.xls文件加上只读权限？
现在遇到个问题，想将从VB中导出的excel文件自动加上只读权限，防止修改。不知从那入手
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(fs.GetFileName(filespec))
f.attributes = 1
运行Set f = fs.GetFile(fs.GetFileName(filespec)) 这句提示程序呼叫或引数不正确。是不是还要定义什麽？
fs.GetFile(文件名)
包括路径
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
相关问答：
我有多个表A B C 结构是一样的，都有2个字段name和content,我要搜索所以表所有字段中包含“中国”的内容 这个SQL语句怎么写
如何将多个表的查询结果连成一个表 这个SQL语句怎么写 表的结构是一样的
例如� ......
我有一个表，结构是这样。
转出 单位 转入单位 笔数 金额
date(主) outid(主) inid(主) num amt
2009 1 2 1 500 为 1 单位 在2009� ......
从数据库中查询一张表的数据
select 部门,姓名 from tb
如何才能生成下面的xml格式
XML code:
<folder state="unchecked" label="全部">
<folder state="unchecked&qu ......
现在有两张表：文章主表A(articleId,articleTitle)，文章评论表B(commentId,articleId,commentTitle)
现在我想实现这样的功能：列出文章列表，其中每篇文章标题下面列出此文章的前2个文章评论，请问sql语句怎么写啊 ......
select count(1) from FX_RETURNBOOKCHECKLIST fxreturnbo0_ where fxreturnbo0_.BOOKID='164 ' AND fxreturnbo0_.RETURNID='00025.S0000001'
上面一个简单的SQL,执行时间2.6� ......
