📄 16310.html
字号:
<html>
<head>
<title>'Sheets' 方法 (_'Global'物件)失败</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>'Sheets' 方法 (_'Global'物件)失败</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:syshyan@ksts.seed.net.tw">有梦你会红</a> on July 28, 1999 at 17:53:13:<p>
请问一下当我执行下面的程式码....<br>我想利用EXCEL做图表输出...<br>第一次没问题...不过再执行第二次<br>就会出现 'Sheets' 方法 (_'Global'物件)失败...的讯息..<br>我真的都搞不好...请各位前辈帮我看一下...感激不尽...<p><br>'放1个CommandBox 和 1个OLE控制项<br>'专案→设定引用项目 ....中引用Excel的Object Library<br>'===============程式码=====================<br>Option Explicit<br>Dim Excel_App As Excel.Application<br>Dim Excel_Sheet As Object<br>Dim Excel_Chart As Object<br>Private Sub Command1_Click()<br>'宣告设定使用EXCEL<br>Set Excel_App = CreateObject("Excel.Application")<br> Excel_App.Visible = True '显示EXCEL<br> ' 判断EXCEL的版本<br> Excel_App.Workbooks.Add (1)<br> Excel_App.ActiveSheet.Name = "报表"<br> If Val(Excel_App.Application.Version) >= 8 Then<br> Set Excel_Sheet = Excel_App.ActiveSheet<br> Else<br> Set Excel_Sheet = Excel_App<br> End If<br> '填入报表资料<br>With Excel_App<br> .Cells(1, 1) = "111"<br> .Cells(2, 1) = "323"<br> .Cells(3, 1) = "132"<br> .Cells(4, 1) = "165"<br> .Cells(5, 1) = "154"<br> .Cells(6, 1) = "145"<br> .Cells(7, 1) = "144"<br> .Cells(8, 1) = "155"<br> .Cells(9, 1) = "124"<br> .Cells(10, 1) = "231"<br> .Cells(1, 2) = "123"<br> .Cells(2, 2) = "621"<br> .Cells(3, 2) = "881"<br> .Cells(4, 2) = "411"<br> .Cells(5, 2) = "541"<br> .Cells(6, 2) = "151"<br> .Cells(7, 2) = "161"<br> .Cells(8, 2) = "451"<br> .Cells(9, 2) = "441"<br> .Cells(10, 2) = "611"<br> End With<br>Excel_App.Charts.Add<br>'sheet name<br>Excel_App.ActiveChart.Name = "图表"<br>If Val(Excel_App.Application.Version) >= 8 Then<br> Set Excel_Chart = Excel_App.ActiveChart<br> Else<br> Set Excel_Chart = Excel_App<br> End If<br> Excel_Chart.ChartType = xlLine '使用折线图<br> '设定图表资料为sheet的A1到B10<br> Excel_Chart.SetSourceData Source:=Sheets("报表").Range("A1:B10"), PlotBy:= _<br> xlColumns<br> '开启另一工作页放图表<br> Excel_Chart.Location Where:=xlLocationAsNewSheet<br> '储存<br> Excel_App.ActiveWorkbook.Close True, FileName:=App.Path & "\Chart.xls"<br> Excel_App.Quit '关闭excel<br> '将刚刚储存好的报表填入<br> Set Excel_Sheet = Nothing<br> Set Excel_Chart = Nothing<br> Set Excel_App = Nothing<br> OLE1.CreateEmbed App.Path & "\chart.xls"<br> End Sub<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 16310-->
</ul><!--end: 16310-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -