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這邊指的是學號，謝謝