nissanngtr34 score 24
2015/09/17 14:17 投稿
| ＶＢＡでCSVから読み込んだものをすべてセルに入れる |
| csvを読み込んだものを配列にし、セルの範囲を指定しないで入れたいのですがどうしたらよろしいでしょうか？ |
| 「Range("A10:D10") = tmp」このようにセルの範囲を指定をせずにすべてを貼り付けたいです。 |
| 「Range("A10:D10") = tmp」このようにセルの範囲を指定をせずにCSVに入ってる情報すべてを貼り付けたいです。 |
| foreachを使えばよろしいでしょうか？ |
| csvの中身は |
| yamada,山田,yamada@yahoo.co.jp |
| suzuki,鈴木,suzuki@yahoo.co.jp |
| ``` |
| Sub csv読み込み() |
| Dim buf As String, tmp As Variant, n As Long |
| Open "user.csv" For Input As #1 |
| Do Until EOF(1) |
| Line Input #1, buf |
| tmp = Split(buf, ",") |
| Loop |
| Close #1 |
| Range("A10:D10") = tmp |
| End Sub |
| ``` |
