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
相关问答：
执行的顺序：
1）文件浏览框（选择文件使用）
选择好文件后
点击一个导入按钮的时候 ，把上面上传框里的csv文件以一个ID为文件名，上传到**/**文件夹下
2）读取这个文件夹下的csv的文件，转换成sql
3 ......
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
DIM ds as new DataSet
我这样声明 怎老是报 用户定义类型未定义？ 这个需要引用什么吗？？
前提是DataSet对象要存在,就是对象浏览器中有它.没有就要引用.
dataset是ADO.NET对象
如果你用的是vb.net，那么在� ......
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
