投稿日 | : 2003/09/12(Fri) 16:01 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^3: これではどうですか? |
下記ならどうですか?
Private Sub sDataOpen()
'CSVファイルから2行10列のデータを読込み
Dim CsvD(10) As String, j As Long
Dim intDatN As Integer, intFileNo As Integer
intFileNo = FreeFile
Open "seiseki.csv" For Input As #intFileNo
intDatN = -1
With MSChart1
.chartType = VtChChartType2dBar
.ColumnCount = 2
.RowCount = 10
Do Until EOF(intFileNo)
intDatN = intDatN + 1
Input #intFileNo, CsvD(0), CsvD(1), CsvD(2), CsvD(3), CsvD(4), _
CsvD(5), CsvD(6), CsvD(7), CsvD(8), CsvD(9)
.Column = intDatN + 1
For j = 0 To 9
.Row = j + 1
.Data = CInt(CsvD(j))
Next j
Loop
Close #intFileNo
End With
End Sub