|
オデッセイコミュニケーションのテキストを見ながらマクロを組んでみましたが、
うまくいきません。
やりたいこと あるフォルダにテキストファイルが複数あり、
その中身を1ファイル→エクセルの1シートに転記したい。
テキストファイルの中身はメール本文を保存したもので、
データが改行で区切られている。
テキストの1行目 → シートの1行目1列目のセル
テキストの2行目 → シートの2行目1列目のセル
というように、書き込みをしたい。
下記のようにマクロを書いてみたのですが、
cells(1,1)にすべてのデータが格納されてしまいます。
1行→1セルというように書き込むにはどうすればよいのでしょうか。
ご指導のほど、よろしくお願いいたします。
Sub ファイル読み込み1()
Dim myfilenames As Variant
Dim i As Integer
Dim temp As String
myfilenames = Application.GetOpenFilename(MultiSelect:=True)
If IsArray(myfilenames) = True Then
For i = 1 To UBound(myfilenames)
temp = Space(FileLen(myfilenames(i)))
Open myfilenames(i) For Binary As #i
Get #i, , temp
Close #i
ThisWorkbook.Worksheets(i).Cells(1, 1) = temp
Next i
End If
以上
|
|