現在、ExcelのマクロでCSVファイルからデータを読込む処理を実装しようとしております。
読込んだ行を一旦配列に格納しようとしたのですが、型が一致しないとエラーが生じております。
VBA
1Sub CSV読込み() 2 Const path As String = "C:\Users\マイネーム\desctop\csv***.csv" 3 Dim values As Variant 'values()にすると、bufで「オブジェクトが必要です」と表示 4 Dim buf As String 5 Dim i As Integer 6 i = 1 7 8 Open path For Input As #1 9 Do Until EOF(1) 10 Line Input #1, buf 11 ReDim Preserve values(i) 'ここで、「型が一致しません」と表示 12 Set values(i) = buf 13 i = i + 1 14 Loop 15 Close #1 16End Sub
CSVの行を動的に取得するため、Preserveしております。
調べてみたのですが、該当する記事がなくわかりませんでした。
ご助言頂ければ幸いです。
追記、setを外したら動きました。
逆になんでsetがいらないのかがわかりません。
回答2件
あなたの回答
tips
プレビュー