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
相关问答：
我有一个表，结构是这样。
转出 单位 转入单位 笔数 金额
date(主) outid(主) inid(主) num amt
2009 1 2 1 500 为 1 单位 在2009� ......
可以吗
好奇怪的题目额！！
可以告诉我们你到底想问什么 ？
2分给我的话就可以。
........................可以吗
可以!
纠结，
29. vb可以这样做不？ ( H )√
A. ......
为什么我用form.show和form.hide多次连接了两个窗口只能互换链接两次啊？
代码看看
照道理form.show 没次数限定的吧
我也快疯了。
楼主知道怎么发贴么？
引用
我也快疯了。
楼主知道怎么发贴么？
楼主也 ......
select count(1) from FX_RETURNBOOKCHECKLIST fxreturnbo0_ where fxreturnbo0_.BOOKID='164 ' AND fxreturnbo0_.RETURNID='00025.S0000001'
上面一个简单的SQL,执行时间2.6� ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not ......
