怎样用Ruby操作excel来删除一个sheet或者把一个sheet内容清空！

0 0

怎样用Ruby操作excel来删除一个sheet或者把一个sheet内容清空！20

使用ruby进行操作excel时，完全可以实现给excel添加sheet和读写数据，但是就是不知道怎样删除sheet或者清空一个sheet
的内容。。。。

我把获取excel信息的代码贴上。

@excel = WIN32OLE.new("excel.application")
@excel.Visible = false
# 打开需要操作的excel文档
m_wbsObj = @excel.Workbooks
@workbook = m_wbsObj.Open("D:\SIT CHECK.xls")
@sheet1 = @workbook.Worksheets("检查项目")

怎样删除这个@sheet1或者清空@sheet1里面的内容呢？是调用什么方法呀。。。。。

问题补充：<div class="quote_title">夜鸣猪写道</div><div class="quote_div">那就试试 <br /><pre name="code" class="ruby">@sheet1.Delete</pre> <br /></div> <br /> <br />不好意思，我调用了Delete这个方法但是没有任何作用，不知道是为什么？

问题补充：<div class="quote_title">夜鸣猪写道</div><div class="quote_div">所以，说这个方法是存在的？ <br />那就需要你把控制台操作记录和错误提示拿出来，才知道问题在那了。因为，不起作用有很多情况</div> <br />请问你用这个Delete方法测试通过了没有啊，我没有抓取到任何异常啊。 <br />请帮忙呀。再次感谢。

Ruby

2011年4月29日 17:37

softwarexiang120
0
0 0 1

3个答案按时间排序按投票排序

0 0

今天，我回来测试了一下，很快就通过了如下

C:\Documents and Settings\Administrator>irb
irb(main):001:0> require 'win32ole'
=> true
irb(main):002:0> el = WIN32OLE.new('Excel.Application')
=> #<WIN32OLE:0xedd3e0>
irb(main):004:0> el.visible = TRUE
=> true
irb(main):006:0> bk = el.Workbooks.Add()
=> #<WIN32OLE:0xf42ee8>
irb(main):008:0> sheet = bk.Worksheets.Add
=> #<WIN32OLE:0xe81c88>
irb(main):009:0> sheet.Name = "first"
=> "first"
irb(main):010:0> bk.Worksheets('first').delete
=> true
irb(main):011:0> sheet1 = bk.Worksheets.Add
=> #<WIN32OLE:0xf0d200>
irb(main):012:0> sheet1.Name = 'second'
=> "second"
irb(main):013:0> bk.Worksheets('second').Delete
=> true
irb(main):014:0> sheet2 = bk.Worksheets.Add
=> #<WIN32OLE:0xecf088>
irb(main):015:0> sheet2.Name = 'third'
=> "third"
irb(main):016:0> sheet2.Delete
=> true

然后，觉着你的问题不应该这么容易，就又试了试，终于发现问题所在，如下

C:\Documents and Settings\Administrator>irb
irb(main):001:0> require 'win32ole'
=> true
irb(main):002:0> excel = WIN32OLE::new('Excel.Application')
=> #<WIN32OLE:0xe7fab0>


irb(main):018:0> wb = excel.Workbooks.Open('d:\abc.xls')
=> #<WIN32OLE:0xdb5c88>
irb(main):019:0> wb.Worksheets(1).delete
=> false
irb(main):021:0> excel.visible = true
=> true
irb(main):022:0> wb.Worksheets(1).delete
=> true
irb(main):023:0> excel.DisplayAlerts = false
=> false
irb(main):024:0> wb.Worksheets(1).delete
=> true
irb(main):025:0> exit

代码说明问题

我打开一个已经存在的excel，试图去删除第一个sheet结果返回false，我就打开visible，发现删除的时候有个提示删除确认，我点确认就删了。然后找到

引用

excel.DisplayAlerts = false

就不用visible了

这个问题吧，还真不好说清楚。

2011年5月05日 10:10