| |
オデッセイコミュニケーションのテキストを見ながらマクロを組んでみましたが、
うまくいきません。
やりたいこと あるフォルダにテキストファイルが複数あり、
その中身を1ファイル→エクセルの１シートに転記したい。
テキストファイルの中身はメール本文を保存したもので、
データが改行で区切られている。
テキストの１行目 → シートの１行目１列目のセル
テキストの２行目 → シートの２行目１列目のセル
というように、書き込みをしたい。
下記のようにマクロを書いてみたのですが、
cells(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
以上
|
|
es
- 13/1/5(土) 14:58 -
