求助VB利用EXCEL画趋势图 - VB / 基础类
各位大侠，我想用以下代码实现画趋势图的功能，即安排两个按键，分别话A列和B列的图并显示，遇到了RANGE方法的global问题，网上方法很多，但是都不太好用，请大家指点
PS:为了显示做得图，我把EXCEL的关闭程序注释掉了，点Command1可以做出来，但是关闭图后，再点击Command2就会报错
，即使我使用注释掉的程序，但是还是会有此问题，而且进程里的EXCEL.EXE关不掉，请大家赐教，要是能有别的方式完成趋势图也可以说说，但是数据是保存在EXCEL里的不同列中。
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Private Sub Command1_Click()
Range("A:A").Select
xlApp.DisplayAlerts = False
Charts.Add.ChartWizard gallery:=xlLine, HasLegend:=False, Title:="折线图表", ValueTitle:="PH值", _
Format:=2
xlApp.Visible = True
' Set xlSheet = Nothing
' xlBook.Close
' Set xlBoook = Nothing
' xlApp.Quit
' Set xlApp = Nothing
End Sub
Private Sub Command2_Click()
Range("B:B").Select
xlApp.DisplayAlerts = False
Charts.Add.ChartWizard gallery:=xlLine, HasLegend:=False, Title:="折线图表", ValueTitle:="PH值", _
Format:=2
xlApp.Visible = True
' Set xlSheet = Nothing
' xlBook.Close
' Set xlBoook = Nothing
' xlApp.Quit
'
相关问答：
在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
vb中 现在我要把数据库里存储的一个附件的内容替换了，怎么做，只是替换我指定的位置，不是全部替换
请将问题说明白，存储字段格式，如果是Binary格式的比较麻烦，如果是字串，直接替换。最好不要进行指定位置替换� ......
问题：
现在Access数据库中有两张表TableA和TableB
TableA中有记录如下:
字段1(Name) 字段2(Num)
A 3
A 4
B 6
... ......
求个vb中的sql语句的写法，次sql语句的用法是分页程序
我写的如下：其中A是用来接收每页显示的记录的条数，B是用来接收显示的当前的页面.
sqltext="select top A * from log where id not in(select top ( ......
