6
想用vba想做个按钮宏
目的是希望可以读取大量的且不同的txt档里面的内容，透过内容的数据来画成折线图
有透过录制宏来成功的读取txt档，txt档的内容大概如下：
(第一行xxxxxx)
(第二行xxxxxx)
学号 成绩1 成绩2 成绩3
1 66 55 46
2 95 1 56
3 0 100 55
以上txt档要透过宏转成csv档，学号的数目多少是不一定，可能到100，可能只到30
有透过录制宏来完成，现在问题是卡在要如何设定来读取不同的学号数目
进而去画成折线图？
自己透过录制宏的程式码如下：
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "=""成绩1"""
ActiveChart.SeriesCollection(1).Values = _
"=工作表1!$E$15,工作表1!$E$18,工作表1!$E$21,工作表1!$E$24,工作表
1!$E$27"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = "=""成绩2"""
ActiveChart.SeriesCollection(2).Values = _
"=工作表1!$E$16,工作表1!$E$19,工作表1!$E$22,工作表1!$E$25,工作表
1!$E$28"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).Name = "=""成绩3"""
ActiveChart.SeriesCollection(3).Values = _
"=工作表1!$E$17,工作表1!$E$20,工作表1!$E$23,工作表1!$E$26,工作表
1!$E$29"
ActiveChart.SeriesCollection(3).XValues = _
"=工作表1!$B$15,工作表1!$B$18,工作表1!$B$21,工作表1!$B$24,工作表
1!$B$27"
XValues这边指的是学号，谢谢