Foxtable(狐表)用户栏目专家坐堂 → [求助]操作excel同时生成多个图表


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

主题:[求助]操作excel同时生成多个图表

帅哥哟,离线,有人找我吗?
xmj0331
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:21 积分:204 威望:0 精华:0 注册:2024/5/8 20:16:00
[求助]操作excel同时生成多个图表  发帖心情 Post By:2024/5/30 15:21:00 [只看该作者]

想要每个表生成一个图表,遍历各个表的时候失败,只有第一个成功怎么办
Dim a As Integer = CInt(e.Form.Controls("TextBox1").text)
Dim app As New MSExcel.Application()
app.Visible = True
Dim book As MSExcel.Workbook = app.Workbooks.Open("D:\临沂分段.xls")      '指定excel文件
For j As Integer = a To 1 Step -1
    Dim ws As MSExcel.Worksheet = book.Sheets("临沂第" & j & "段")      '指定工作表
    'Dim ws As MSExcel.Worksheet = book.Sheets(j)
    If ws.ChartObjects.count > 0 Then
        ws.ChartObjects.Delete '删除工作表上已经存在的图表
    End If
    Dim Rg1 As MSExcel.Range = ws.Range("C3:C120")
    Dim Rg2 As MSExcel.Range = ws.Range("D1:E120")
    Dim Co As MSExcel.ChartObject = ws.ChartObjects.Add(100,30,400,250)   '创建图表对象
    Dim Cht As MSExcel.Chart = Co.Chart
    Dim s As MSExcel.Series
    With Cht
        .ChartType = MSExcel.XlChartType.xlLine
        .SetSourceData(Rg2)
        s = Cht.SeriesCollection(1)
        s.XValues = Rg1
    End With
    With Cht.Axes(MSExcel.XlAxisType.xlCategory)   '获取X轴
        .HasTitle = True
        .AxisTitle.Text = "手部距离"   '添加标题
        .HasMajorGridlines = True  '显示主要网格线
        '.HasMinorGridlines = True  '显示次要网格线
        .MinimumScale = 100
        .MaximumScale = 500
        .MinorUnit = 1
        .MajorUnit = 10
        .CrossesAt = 400
        .ReversePlotOrder = False
    End With
    With Cht.Axes(MSExcel.XlAxisType.xlValue) '获取Y轴
        .HasTitle = True
        .AxisTitle.Text = "埋深(m)"   '添加标题
        .HasMajorGridlines = True'显示只要网格线
        .HasMinorGridlines = True'显示次要网格线
    End With
Next j


链接:https://pan.baidu.com/s/1hfs1MZt3cIKS6MBGfM4V6Q 
提取码:nkxh

[此贴子已经被作者于2024/5/30 17:38:03编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
xmj0331
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:21 积分:204 威望:0 精华:0 注册:2024/5/8 20:16:00
  发帖心情 Post By:2024/5/30 15:23:00 [只看该作者]

另外想加一个值为常数的序列要怎么操作,必须先在表中插入列吗?

 回到顶部
帅哥哟,离线,有人找我吗?
xmj0331
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:21 积分:204 威望:0 精华:0 注册:2024/5/8 20:16:00
  发帖心情 Post By:2024/5/30 15:32:00 [只看该作者]

这个语句就一个图也不能生成是怎么回事呢?Dim ws As MSExcel.Worksheet = book.Sheets(j)


未指定的错误 (异常来自 HRESULT:0x80004005 (E_FAIL))

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110443 积分:562081 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/30 15:36:00 [只看该作者]

去掉下面代码

    If ws.ChartObjects.count > 0 Then
        ws.ChartObjects.Delete '删除工作表上已经存在的图表
    End If

必须先在表中插入列

 回到顶部
帅哥哟,离线,有人找我吗?
xmj0331
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:21 积分:204 威望:0 精华:0 注册:2024/5/8 20:16:00
  发帖心情 Post By:2024/5/30 16:05:00 [只看该作者]

删除那一段还是只有一个生成图表了啊

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110443 积分:562081 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/30 16:11:00 [只看该作者]

请上传实例测试

 回到顶部
帅哥哟,离线,有人找我吗?
xmj0331
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:21 积分:204 威望:0 精华:0 注册:2024/5/8 20:16:00
  发帖心情 Post By:2024/5/30 17:04:00 [只看该作者]

附件请查收

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110443 积分:562081 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/30 17:08:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78,单个附件不能大于2M

 回到顶部
帅哥哟,离线,有人找我吗?
xmj0331
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:21 积分:204 威望:0 精华:0 注册:2024/5/8 20:16:00
  发帖心情 Post By:2024/5/30 17:40:00 [只看该作者]

实例已上传
链接:https://pan.baidu.com/s/19vIzu9lu7S0PudibN9oxpA 
提取码:1333

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110443 积分:562081 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/30 20:42:00 [只看该作者]

项目文件提示项目格式不符,无法打开

 回到顶部
总数 13 1 2 下一页