以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]写入excel表问提  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=107502)

--  作者:yjh2002
--  发布时间:2017/9/29 10:42:00
--  [求助]写入excel表问提
    Dim Book As New XLS.Book(lj) \'定义一个Excel工作簿
    Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
     For Each r As Row In Tables("抓取数据_table1").Rows
        sheet(r("bh"),6).value=r("qz")
    Next
    book.Save(lj)
这段代码有时候正常,有时候会出现“流不允许写入”这样的错误,请教这是什么原因?

--  作者:有点甜
--  发布时间:2017/9/29 10:44:00
--  

1、卸载重装你的ms office软件;

 

2、路径所在的文件夹,你没有写入的权限,你要设置权限。


--  作者:yjh2002
--  发布时间:2017/9/29 10:46:00
--  
谢谢