以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  代码出错  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=54602)
--  作者：发财
--  发布时间：2014/7/31 11:26:00
--  代码出错
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("E:\\生猪管理系统\\Reports\\作价差.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("作价差")
Dim Rg As MSExcel.Range = Ws.Rows("1:1")\'选定首行
Dim rg1 As MSExcel.Range
rg1 = Ws.Cells(0,0)
If rg1.value <> "重量" Then
    Rg.Delete(MSExcel.XlDirection.xlUp) \'下面的单元格上移
End If
wb.save
wb.close
App.Quit

Dim mg As New Merger
mg.SourcePath = "E:\\生猪管理系统\\Reports\\作价差.xls"
mg.Format = "excel" \'指定格式
mg.SourceTableName = "作价差$" \'指定要合并的表
mg.DataTableName = "作价差" \'指定接收数据的表
mg.Merge() \'开始合并
--  作者：有点甜
--  发布时间：2014/7/31 11:30:00
--  
  出什么错？
--  作者：发财
--  发布时间：2014/7/31 15:27:00
--  
Exception from HRESULT: 0x800A03EC
--  作者：发财
--  发布时间：2014/7/31 15:47:00
--  
应为rg1 = Ws.Cells(1,1)
不能为rg1 = Ws.Cells(0,0)的吧？
--  作者：有点甜
--  发布时间：2014/7/31 15:57:00
--  
以下是引用发财在2014-7-31 15:47:00的发言：
应为rg1 = Ws.Cells(1,1)
不能为rg1 = Ws.Cells(0,0)的吧？

 

嗯嗯，是的，vba从1开始的。