379(2): デフォルトの名無しさん [sage] 2025/07/07(月) 09:23:50.46 ID:GhKlbyJu(1/2) AAS
だが、Copilotにプログラムを作らせると、こんなにも原始的でバグだらけなのであった
しかもこれだとクソ遅い

【設問】以下はVBAでCSVファイルを開いて読み込むプログラムである。バグを指摘せよ。

FilePath = "C:\Users\YourName\Documents\sample.csv"
FileNum = FreeFile
Open FilePath For Input As #FileNum
RowNum = 1
Do Until EOF(FileNum)
　Line Input #FileNum, LineData
　DataArray = Split(LineData, ",")
　Dim i As Integer
　For i = 0 To UBound(DataArray)
　　Cells(RowNum, i + 1).Value = DataArray(i)
　Next i
　RowNum = RowNum + 1
Loop
Close #FileNum