VB.net CSVで読み込んだ値をExcel(.xlsx)に書き出す

Question

■実現したいこと
VB.netでプログラムを開発中。
CSVファイルを読み込んで、新たに作成したExcelファイル(.xlsx)に書き出したい。

＜フロー＞
１．処理ボタンクリック
２．該当のCSVファイルを読み込む（1行目だけ）
３．新規Excelファイルを作成（output.xlsxを作成)
４．CSVで読み込んだ値が新規で作成したExcelファイルに書き込まれる
５．処理終了

＜CSVの内容>
1, A, B, C
2, D, E, F
3, G, H, I

■困っていること
試しにCSVを読み込んでテキストに書き出すことは実現できました。
ですが、CSV→Excelに書き出す作業が分からず困っています。
（具体的に言うと、どういうコードを書けば良いか分からない）

色々ググってはいるものの、CSV→Excelに書き出す方法の情報が少ないので質問させていただきました。

配列等を使って処理したいのですが、ご教授頂きたいです。

■ソースコード

Imports System.Runtime.InteropServices
Imports System.IO
Imports System.Text

Public Class Form1
　　　
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        

    End Sub


    '処理ボタンクリックイベント
    Private Sub ShoriBtn_Click(sender As Object, e As EventArgs) Handles ShoriBtn.Click

'入力ファイル（input.csv)
Dim inputFile As String = "C:\Usersプログラミング\input.csv"
        
'出力ファイル(output.csv)
        Dim outputFile As String = "C:\Users\プログラミング\output.xlsx"

        'output.xlsxを新規作成
        Dim excelApp As New Excel.Application()
        Dim excelBooks As Excel.Workbooks = excelApp.Workbooks
        Dim excelBook As Excel.Workbook = excelBooks.Add()

        'excelを見えるように表示する
        excelApp.Visible = True

        '名前を付けて保存
        excelBook.SaveAs("C:\Users\プログラミング\output.xlsx")

        '出力ファイルをオープンする
        Using writer As New StreamWriter(outputFile, False, Encoding.Default)

            '入力ファイルをオープンする
            Using reader As New StreamReader(inputFile, Encoding.Default)

                '読み取り可能文字が存在しない（ファイルの末尾に到着）すると -1が返される
                While (reader.Peek() > -1)

                    '1行ずつ読み込み、出力ファイルに書き込む
                    writer.WriteLine(reader.ReadLine())

                End While

                'ファイルを閉じる
                reader.Close()

            End Using

            'ファイルを閉じる
            writer.Close()

        End Using


    End Sub

End Class

※上記のコードはCSVの1行目のみを読み込んで書き出す処理ですが、エラーが発生します。

■エラーメッセージ

’出力ファイルをオープンする
Using writer As New StreamWriter(outputFile, False, Encoding.Default)
を指して

「System.IO.IOException: '別のプロセスで使用されているため、プロセスはファイル 'C:\Users\プログラミング\output.xlsx' にアクセスできません。'」というメッセージが出てきます。

■補足
開発環境：Visual Studio2019
OS:Windows10
.NETFrame4.8
参照設定にて、Microsoft.Office.Interrop.Excel関連のモジュールは追加済み

Comments

[退会済みユーザー]

コードは ``` と ``` で囲ってください。インデントされて見やすくなりますので。インデントされてないコードは質問者さん自身も読む気がしないのでは？

開発環境（OS, .NET Framework, Visual Studio のバージョンなど）を書いてください。

[退会済みユーザー]

''' ではなくて、バッククォート 3 つ ``` です。

[退会済みユーザー]

失礼しました。
修正いたしました。

[Zuishin]

実務と課題では方法が違うんですよ。みなさん実務としての回答をしていますが、あなたが欲しているのは課題の答えですよね？

情報の探し方が悪い、の一言に尽きます。

CSV から Excel への変換方法について探したんでしょ？
それは課題なのでそのまま探してもありません。課題を作った方も出す前に一度検索して簡単に見つからないことを確かめてから出したはずです。

探すべきは次の三つ。CSV の読み込み方、読み込んだデータの解析の仕方、解析したデータの出力の仕方です。このうち、読み込みについては(おそらく前の課題で)できています。

あとの二つですが、このレベルの人に出す課題ということから考えると、探すまでもなく習っているはずです。つまりあなた自身の応用がきかないというだけ。他の人はできています。じゃあ情報がどこにあるかわかりますよね？

Answer 1

一例ですが、(1) TextFieldParser などの CSV パーサーを利用して DataTable を作成し、(2) ACE + ADO.NET で Excel ブックを作ってそれに書き込むという方法はいかがですか？

(1) の具体例は下記の記事を、

CSV パーサー
http://surferonwww.info/BlogEngine/post/2010/10/28/CSV-parser.aspx

(2) の具体例は下記の記事を見てください。

ACE OleDb で Excel のブック作成
http://surferonwww.info/BlogEngine/post/2012/01/26/Creating-Excel-workbook-by-using-ACE-OleDb-provider.aspx

追記: Microsoft.Office.Interrop.Excel 関連のモジュールとかは不要です。ACE だけダウンロードしてきてインストールすれば良いです。古い形式 .xls なら OS に同梱されている JET でもできます。

Answer 2

恐らく色々なページのコードを切り貼りしてどのようなことをやっているのか
分からなまま作成したプログラムなのではないでしょうか？
ですので、物凄くちぐはぐなプログラムになっています。

まずエラーメッセージの説明について、T_Fさんが作成したプログラムでは
以下の部分でエクセルファイルを新規作成していますが、
StreamWriterで開こうとした時点でexcelBookがまだ掴んだ状態のままなので、
アクセス出来ず、エラーとなっています。

        'output.xlsxを新規作成
        Dim excelApp As New Excel.Application()
        Dim excelBooks As Excel.Workbooks = excelApp.Workbooks
        Dim excelBook As Excel.Workbook = excelBooks.Add()

        'excelを見えるように表示する
        excelApp.Visible = True

        '名前を付けて保存
        excelBook.SaveAs("C:\Users\プログラミング\output.xlsx")

ではどうすればよいかというと、まずStreamWriterは必要ありません。
通常StreamWriterはテキストファイルへの書き込みするのに使用するもので
Excelファイルへの書き込みは別の方法で行う必要があります。

配列を用いて作るように指示があったということですので、
[VB.NET] Excelを新規に生成して保存するにあるExcel書き込みの基本的な流れが分かるプログラムを
参考に配列に格納したCSVファイルの内容をループで回して書き込みしてみましょう。

CSVファイルの読み込みについては、StreamReaderだとCSVファイルの内容を
配列に格納するのに適していないので、SurferOnWwwさんも紹介している
TextFieldParserを使用して読み込むのが良いと思います。
検索すれば参考となるページはたくさん出てきますが、こことか参考になるかと思います。

最後にWebで参考となるページを探してコピペするのはダメとは言いませんが、
コードがやっている意味を自分なりに調べてから使用するようにしましょう。

Comments

[退会済みユーザー]

なるほどですね。
非常に丁寧で詳しいご説明ありがとうございます。
プログラミング初心者なので、これからもちゃんと理解を深めて進めていこうと思います。
ありがとうございました。

Answer 3

律儀にCSVファイルを読み込まなくてもExcelに任せてしまえばよいのでは。
試してませんが、こんな感じでできると思います。

'入力ファイル（input.csv)
Dim inputFile As String = "C:\Usersプログラミング\input.csv"

'出力ファイル(output.csv)
Dim outputFile As String = "C:\Users\プログラミング\output.xlsx"

'output.csvを読み込む
Dim excelApp As New Excel.Application()
Dim excelBooks As Excel.Workbooks = excelApp.Workbooks
Dim excelBook As Excel.Workbook = excelBooks.Open(inputFile)

'excelを見えるように表示する
excelApp.Visible = True

'名前を付けて保存
excelBook.SaveAs(outputFile)

---

追記
「配列」という定義が曖昧ですが、１行読んで、配列に展開して、それをExcelに貼り付けるという愚直な処理を書いてみました。

        '入力ファイル（input.csv)
        Dim inputFile As String = "C:\Usersプログラミング\input.csv"

        '出力ファイル(output.csv)
        Dim outputFile As String = "C:\Users\プログラミング\output.xlsx"

        'output.xlsxを新規作成
        Dim excelApp As New Excel.Application()
        Dim excelBooks As Excel.Workbooks = excelApp.Workbooks
        Dim excelBook As Excel.Workbook = excelBooks.Add()
        Dim excelSheet As Excel.Worksheet = excelBook.Worksheets(1)

        Dim row As Long

        row = 1

        '出力ファイルをオープンする
        Using writer As New StreamWriter(outputFile, False, Encoding.Default)

            '入力ファイルをオープンする
            Using reader As New StreamReader(inputFile, Encoding.Default)

                '読み取り可能文字が存在しない（ファイルの末尾に到着）すると -1が返される
                While (reader.Peek() > -1)

                    '1行ずつ読み込み、出力ファイルに書き込む
                    Dim line As String = reader.ReadLine()
                    Dim cols() = line.Split(",")
                    Dim col As Long
                    For col = 1 To cols.GetLength(0)
                        excelSheet.Cells(row, col) = cols(col - 1)
                    Next
                    row = row + 1

                End While

                'ファイルを閉じる
                reader.Close()

            End Using

            'ファイルを閉じる
            writer.Close()

        End Using

        'excelを見えるように表示する
        '        excelApp.Visible = True

        '名前を付けて保存
        excelBook.SaveAs(outputFile)
        excelBook.Close()

Comments

[退会済みユーザー]

回答ありがとうございます。
意図通り動くことが確認できました。
もちろん、こちらのほうが簡単で楽なのですが、できれば配列を用いたバージョンも教えて頂けないでしょうか。（値を配列で取得せよと指示がありましたもので...）

[ttyp03]

とりあえず愚直に処理するのを追記しましたので確認してみてください。

余談
「値を配列で取得」というのは実に曖昧すぎます。
CSVファイル全体を配列化するのか、行単位なのか、
また配列化するにしても、自力でやるのか、便利な機能を使うのか、
仕事でやっているのか課題か何かなのかわかりませんが、もう少し明確な指示を仰いだ方がよいでしょう。

[退会済みユーザー]

指示としては、CSVファイルを読み込み、カンマ区切りで値を配列として取得し、そのままセルに値を展開する。と聞いています。

[退会済みユーザー]

横レス失礼します。

質問者さん＞

そうしなければならないというやり方が決まっていて、それ以外は回答として NG なら、それを質問の一行目に明記しましょうよ。回答者の時間と労力を無駄にしないよう考えてください。

ところで、指示ということは上司の指示とか、研修などでの講師の指示ですか？　そうであれば、上司・講師に聞くべき話と思うのですが・・・

[Y.H.]

writer が何のためにあるのかわからない・・・^^;

[ttyp03]

おっと、writer残ってましたね。
鼻から必要としてなかったので全く目に入ってませんでした。