Foxtable(狐表) → 用户栏目 → 专家坐堂 → 为啥清除不了


  共有4147人关注过本帖树形打印复制链接

主题：为啥清除不了
帅哥哟，离线，有人找我吗？
blackzhu
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		为啥清除不了  发帖心情 Post By：2013/11/27 13:59:00 [只看该作者]

 Dim Book As New XLS.Book(ProjectPath & "data\资料卡.xls")
    Dim sheet As XLS.sheet = Book.Sheets(0)
    sheet(4,2).Value = Nothing
    sheet(4,2).Value = nothing
    sheet(5,2).Value = nothing
    sheet(4,4).Value = nothing
    sheet(5,4).Value = nothing
    sheet(6,2).Value = nothing
    sheet(6,4).Value = nothing
    sheet(7,2).Value = nothing
    sheet(8,2).Value = nothing
    sheet(8,4).Value = nothing
    sheet(9,1).Value = nothing



我这样写代码 怎么清除不了excel的数据,这个excel 是在 浏览器控件中加载的.路径那些我都设置好的
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/11/27 14:06:00 [只看该作者]

你清除了,并不会在浏览器同步显示的.

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2013/11/27 14:15:00 [只看该作者]

问题我打开excel 也存在呀
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/11/27 14:16:00 [只看该作者]

你保存了没有?  试试赋值为 ''  看看

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2013/11/27 14:17:00 [只看该作者]

试过了一样  我有保存代码的

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/11/27 14:19:00 [只看该作者]

确定你试了?上个例子瞅瞅.

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2013/11/27 14:43:00 [只看该作者]

搞定了 上传代码:


If Forms("窗口1").Opened Then
    Dim exl As object = Forms("窗口1").Controls("WebBrowser1").Basecontrol.ActiveXInstance
    Dim wb As MSExcel.Workbook = exl.Document
    Dim ws As MSExcel.Worksheet= wb.worksheets("sheet1")
    ws.cells(5,3).Value = Nothing
    ws.cells(5,5).Value = Nothing
    ws.cells(6,3).Value = Nothing
    ws.cells(6,5).Value = Nothing
    ws.cells(7,3).Value = Nothing
    ws.cells(7,5).Value = Nothing
    ws.cells(8,3).Value = Nothing
    ws.cells(9,3).Value = Nothing
    ws.cells(9,5).Value = Nothing
    ws.cells(10,2).Value = Nothing
    wb.Save
End If

在这边 记住 cells 的开始行和列  全部是从1开始,而不是从0.  先行后列原则
[此贴子已经被作者于2013-11-27 14:43:48编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2013/11/27 14:44:00 [只看该作者]

 我做了个用excel输入到数据库的东西.所以需要清除excel的输入项

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2013/11/27 14:47:00 [只看该作者]

另外一个 我在浏览器控件加载excel 怎么可以看到excel的工具栏.  foxmail的最新版是利用本地应用按钮打开的.

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2013/11/27 15:10:00 [只看该作者]

楼上的问题没有人知道吗

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询