CSVファイルの読み込み - アプリケーションとしてのVBA1行の項目数は、Function GetItemNum で自動で判定するようにしています。 1行の区切りは改行で認識するのですが、Input # を使用してカンマで区切られた単語 を１つづつ読んでいたのでは改行が読めません。かといって Input でちまちまと 読んでいては時間がかかります。 そこで、最初の１行だけ Line Input # を使って読んで、１行の中のカンマを数えて います。 読み込んだデータは配列に入れて、セル(表)に一気に代入しています。 example18 をダウンロードして動作を確認してください。 Sub CSV_Read() Dim FileType, Prompt As String Dim FileNamePath As Variant Dim csvline() As String Dim i, Rowcnt, ColumNum As Integer Dim
