【VBA】CSVファイルからグラフを作成【#2】
前回からの続きです。
前回はこちら。
#2: シート切り替え
解説動画
プログラミングコード
Sub Load_CSV()
'[ファイルを開く]ダイアログボックスからCSVファイルを選択し、Sheet2(CSV)に入力する
'[ファイルを開く]ダイアログボックスからCSVファイルを選択
Dim CsvFile As Variant
CsvFile = Application.GetOpenFilename(FileFilter:="CSVファイル(*.csv),*.csv", Title:="CSVファイルの選択")
'ファイル選択をキャンセルした場合、処理終了
If CsvFile = False Then
Exit Sub
End If
'Sheet2(CSV)をクリア
Dim Sh2 As Worksheet
Set Sh2 = Sheet2
Sh2.Cells.Clear
'使用可能なファイル番号を取得
Dim Num As Integer
Num = FreeFile
'CSVファイルを開く
Open CsvFile For Input As #Num
'CSVデータ整理用変数
Dim StrLine As String
Dim StrSplit() As String
'整数用変数
Dim i As Long
i = 1
Dim k As Long
'CSVデータを1行ずつ読み込み、Sheet2(CSV)に入力する
Do Until EOF(Num)
Line Input #Num, StrLine
StrSplit = Split(StrLine, ",")
For k = 0 To UBound(StrSplit)
Sh2.Cells(i, k + 1).Value = StrSplit(k)
Next
i = i + 1
Loop
'CSVファイルを閉じる
Close #Num
'Sheet3(Output)を表示する
Dim Sh3 As Worksheet
Set Sh3 = Sheet3
Sh3.Activate
End Sub
Sub Activate_Sheet1_Input()
'Sheet1(Input)を表示する
Dim Sh1 As Worksheet
Set Sh1 = Sheet1
Sh1.Activate
End Sub