Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8903 / 76735 ←次へ | 前へ→

【73400】テキストファイルのデータをのセルに転記したい
質問  es  - 13/1/5(土) 14:58 -

引用なし
パスワード
   オデッセイコミュニケーションのテキストを見ながらマクロを組んでみましたが、
うまくいきません。

やりたいこと あるフォルダにテキストファイルが複数あり、
その中身を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

以上
0 hits

【73400】テキストファイルのデータをのセルに転記したい es 13/1/5(土) 14:58 質問
【73401】Re:テキストファイルのデータをのセルに転... UO3 13/1/5(土) 15:32 発言
【73402】Re:テキストファイルのデータをのセルに転... es 13/1/5(土) 15:47 発言
【73403】Re:テキストファイルのデータをのセルに転... UO3 13/1/5(土) 15:57 発言
【73405】Re:テキストファイルのデータをのセルに転... es 13/1/5(土) 16:34 質問
【73407】Re:テキストファイルのデータをのセルに転... UO3 13/1/5(土) 17:35 発言
【73408】Re:テキストファイルのデータをのセルに転... es 13/1/5(土) 18:22 お礼
【73423】Re:テキストファイルのデータをのセルに転... kanabun 13/1/6(日) 20:40 発言
【73424】Re:テキストファイルのデータをのセルに転... UO3 13/1/7(月) 6:29 発言
【73430】Re:テキストファイルのデータをのセルに転... es 13/1/8(火) 20:53 お礼
【73410】Re:テキストファイルのデータをのセルに転... es 13/1/5(土) 20:04 質問
【73411】Re:テキストファイルのデータをのセルに転... UO3 13/1/5(土) 20:20 発言
【73412】Re:テキストファイルのデータをのセルに転... es 13/1/5(土) 20:29 お礼
【73404】Re:テキストファイルのデータをのセルに転... UO3 13/1/5(土) 16:03 発言

8903 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free