Question

VB excel中生成图表

我这个代码哪里错了呢？
Set xlsheet = xlBook.Worksheets(Form2.Text3(i).Text)
Set myunion = Union(Rows(1), Rows(6), Rows(7), Rows(8))
myunion.Select
Charts.Add
Charts.ChartWizard Source:=Worksheets(Form2.Text3(i).Text).Union(Rows(1), Rows(6), Rows(7), Rows(8)), gallery:=xlLine, Title:=Form2.Text3(i).Text & "全日分时进出站客流量"
语句很简单，就是把sheet里的第一、6、7、8行生成折线图，VB一直没法识别chartwizard语句

Answer 1

xlsheet.charts

追问

xlsheet.Charts.Add
说未找到方法或数据源

追答

我录的跟你写的不一样

你先录完了放到vb里改

我知道了，你要插的是图表吧，那前面就加上xlbook

表的父对象是工作簿，vb里要把父对象写上

还有后面那句，你添加了，但没告诉程序你想对哪个表设置后面的东西，要用变量或者with语句

追问

这个activesheet我也用过，说无法识别这种方法

追答

我不讲了要用变量或者with么

active前面加xlbook试试

追问

Set sf = xlbook.ActiveSheet
我这样写的 这里救说没法识别activesheet

追答

把add那步设成变量

追问

图生成了，但是没法在VB界面上显示出来

追答

OLE