从TXT文件读数据调用excel画图有关问题
从TXT文件读数据调用excel画图问题
代码如下
Private Sub 画图_Click()
Dim oExcel As Excel.Application
Dim oBooks As Excel.Workbooks
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim oChart As Excel.Chart
Set oExcel = New Excel.Application
Set oBook = oExcel.Workbooks.Add
Set oSheet = oBook.Sheets(1)
'生成数据
Open "c:\path\GZML.txt" For Input As #2 'open file
Input #2, workpath
Close #2
Open workpath + "\OUT_ROTORI.txt" For Input As #1
For i = 1 To 5
Line Input #1, aaa
Next i
Dim r(), strr(), strsita()
ReDim r(dd), strr(dd), strsita(dd)
For i = 1 To dd
Input #1, num, r(i), hou, strr(i), strsita(i)
Next i
'向Excel中填充数据
For i = 1 To dd
oSheet.Cells.Item(i, 1) = r(i)
oSheet.Cells.Item(i, 2) = strr(i)
Next
'添加图表并设置属性
Set oChart = oBook.Charts.Add
With oChart
'数据源: A1:B5
.SetSourceData Source:=oSheet.Range("A1:B5"), PlotBy:=xlColumns
.chartType = xlLineMarkers '图表类型
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
'以下两行设置X轴数据为a(i)
.SeriesCollection(1).Delete
.SeriesCollection(1).XValues = "=Sheet1!R1C1:R10C1"
.Location Where:=xlLocationAsObject, Name:="Sheet1"
End With
'显示Excel图表
oExcel.Visible = True
End Sub
TXT文件输出的数据对数随dd的不同而不同，dd前面已经定义了可能的值大概在1到10之间，现在需要以strr(i)为横轴，r(i)为纵轴的dd对数据调用excel作图
txt文件的输出如下
"轮盘强度计算"
-----------------------------------------------------
序号 半径 厚度 径向应力 切向应力
I R(mm) Y(mm) STRR(MPa) STRSITA(MPa)
1 0.000 20.000 51.002 51.002
2 28.000 20.000 50.752 50.858
3 56.000 20.000 50.000 50.425
--------------------------------------------------
现在有这样几个问题
1、不确定有几组数据，所以定义数据源出现问题，我暂时在代码里写的A1:B5，但是程序要满足数据对数变化时作图的需要。如何操作
2、 在dd=2时候运行程序，也就是有两组数据，显示“类series的delete方法无效”，出错行在程序里标为红色，即.SeriesCollection(1).Delete 这行，怀疑也是数据对数不够导致的，求确认
3、如果还需要用相同的横坐标，纵坐标用strsita(i)这组数据在一张图里画第二条曲线，如何解决
谢谢！
------解决方案--------------------
1、不确定有几组数据，所以定义数据源出现问题，我暂时在代码里写的A1:B5，但是程序要满足数据对数变化时作图的需要。如何操作
--确定文件格式,比如第一行是数据个数..或者规定数据后面不能有其他无用字符,这样读到文件尾就认为没有数据了,当然,不能用for --next了,用do loop(while)这些的不限制循环次数的结构,文件尾EOF(filenum)..
2、 在dd=2时候运行程序，也就是有两组数据，显示“类series的delete方法无效”，出错行在程序里标为红色，即.SeriesCollection(1).Delete 这行，怀疑也是数据对数不够导致的，求确认
--你去Excel操作一遍不就值得了.
--我用你的数据和程序,没有dd=2出问题的情况.
3、如果还需要用相同的横坐标，纵坐标用strsita(i)这组数据在一张图里画第二条曲线，如何解决
--excel可以画出来,是2个系列.添加一个系列
------解决方案--------------------
我觉得你可以把TXT中的数据读出来，写入到EXCEL的某一区域，再在Excel中添加一个MSChart控件，以这个区域绘图即可。先建好模板，只需要把数据写入，图形自己就生成了。
代码如下
Private Sub 画图_Click()
Dim oExcel As Excel.Application
Dim oBooks As Excel.Workbooks
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim oChart As Excel.Chart
Set oExcel = New Excel.Application
Set oBook = oExcel.Workbooks.Add
Set oSheet = oBook.Sheets(1)
'生成数据
Open "c:\path\GZML.txt" For Input As #2 'open file
Input #2, workpath
Close #2
Open workpath + "\OUT_ROTORI.txt" For Input As #1
For i = 1 To 5
Line Input #1, aaa
Next i
Dim r(), strr(), strsita()
ReDim r(dd), strr(dd), strsita(dd)
For i = 1 To dd
Input #1, num, r(i), hou, strr(i), strsita(i)
Next i
'向Excel中填充数据
For i = 1 To dd
oSheet.Cells.Item(i, 1) = r(i)
oSheet.Cells.Item(i, 2) = strr(i)
Next
'添加图表并设置属性
Set oChart = oBook.Charts.Add
With oChart
'数据源: A1:B5
.SetSourceData Source:=oSheet.Range("A1:B5"), PlotBy:=xlColumns
.chartType = xlLineMarkers '图表类型
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
'以下两行设置X轴数据为a(i)
.SeriesCollection(1).Delete
.SeriesCollection(1).XValues = "=Sheet1!R1C1:R10C1"
.Location Where:=xlLocationAsObject, Name:="Sheet1"
End With
'显示Excel图表
oExcel.Visible = True
End Sub
TXT文件输出的数据对数随dd的不同而不同，dd前面已经定义了可能的值大概在1到10之间，现在需要以strr(i)为横轴，r(i)为纵轴的dd对数据调用excel作图
txt文件的输出如下
"轮盘强度计算"
-----------------------------------------------------
序号 半径 厚度 径向应力 切向应力
I R(mm) Y(mm) STRR(MPa) STRSITA(MPa)
1 0.000 20.000 51.002 51.002
2 28.000 20.000 50.752 50.858
3 56.000 20.000 50.000 50.425
--------------------------------------------------
现在有这样几个问题
1、不确定有几组数据，所以定义数据源出现问题，我暂时在代码里写的A1:B5，但是程序要满足数据对数变化时作图的需要。如何操作
2、 在dd=2时候运行程序，也就是有两组数据，显示“类series的delete方法无效”，出错行在程序里标为红色，即.SeriesCollection(1).Delete 这行，怀疑也是数据对数不够导致的，求确认
3、如果还需要用相同的横坐标，纵坐标用strsita(i)这组数据在一张图里画第二条曲线，如何解决
谢谢！
------解决方案--------------------
1、不确定有几组数据，所以定义数据源出现问题，我暂时在代码里写的A1:B5，但是程序要满足数据对数变化时作图的需要。如何操作
--确定文件格式,比如第一行是数据个数..或者规定数据后面不能有其他无用字符,这样读到文件尾就认为没有数据了,当然,不能用for --next了,用do loop(while)这些的不限制循环次数的结构,文件尾EOF(filenum)..
2、 在dd=2时候运行程序，也就是有两组数据，显示“类series的delete方法无效”，出错行在程序里标为红色，即.SeriesCollection(1).Delete 这行，怀疑也是数据对数不够导致的，求确认
--你去Excel操作一遍不就值得了.
--我用你的数据和程序,没有dd=2出问题的情况.
3、如果还需要用相同的横坐标，纵坐标用strsita(i)这组数据在一张图里画第二条曲线，如何解决
--excel可以画出来,是2个系列.添加一个系列
------解决方案--------------------
我觉得你可以把TXT中的数据读出来，写入到EXCEL的某一区域，再在Excel中添加一个MSChart控件，以这个区域绘图即可。先建好模板，只需要把数据写入，图形自己就生成了。