Excel报表问题,求救

ffstudio 2003-10-16 04:36:41
我预览一次没有问题,但是再次运行预览报表的时候就在Range("A7:G7").MergeCells = True这里出错,错误信息为:<Method 'Range' of object '_Global' failed>,请问是何原因?怎么解决?我必须要合并此单元格,有没有其他方法?

Set xlApp = New Excel.Application
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open(strDestination)
Set xlSheet = xlBook.Worksheets(1)

Range("A7:G7").MergeCells = True
xlSheet.Cells(7, 1) = Format(dtpDate.Value, "yyyy年mm月dd日")
。。。。。 '填写子表内容

xlBook.Save '保存文件
xlApp.Visible = True
xlSheet.PrintPreview

xlBook.Close (True) '关闭EXCEL工作簿
xlApp.Quit '退出EXCEL
Set xlApp = Nothing
...全文
24 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
ffstudio 2003-10-16
  • 打赏
  • 举报
回复
解决了,改成xlSheet.Range("A7:G7").MergeCells = True就通过了。
flc 2003-10-16
  • 打赏
  • 举报
回复
关注

809

社区成员

发帖
与我相关
我的任务
社区描述
VB 多媒体
社区管理员
  • 多媒体
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧