|
>Yuki さん
>Jaka さん
ありがとうございます。
書き方がいけないと思い、変えてみました。
Dim intFF As Integer
Dim textline As String
Dim csvline() As String
Dim Rowcnt As Integer
Dim ColumNum As Integer '列数
Dim i As Integer
'空いているファイル番号を取得
intFF = FreeFile
'Me.SelectFileName のファイルをオープン
Open Me.SelectFileName For Input As #intFF
'表の行番号の初期化 1行目から読み込んだデータを入力
Rowcnt = 1
Do While Not EOF(intFF) 'ファイルの終端かどうかを確認
'1行読み込みます
Line Input #intFF, textline
'ダブルクォーテーションを削除
textline = Replace(textline, """", "")
'カンマで分離
csvline() = Split(textline, ",")
'配列渡しでセルに代入
Range(Cells(Rowcnt, 1), _
Cells(Rowcnt, UBound(csvline()) + 1)) = csvline()
Rowcnt = Rowcnt + 1
Loop
'ファイルを閉じる
Close #intFF
前のようなエラーは出なくなりましたが、
取り込んだデータが文字化けする上、
A1のセルにしかデータが入らなくなりました。
書き方にこだわりはありませんので、CSVファイルを取り込む方法が
あったらぜひ教えていただきたいです。。
|
|