Excel VBA質問箱 IV

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

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


8900 / 76735 ←次へ | 前へ→

【73403】Re:テキストファイルのデータをのセルに転記したい
発言  UO3  - 13/1/5(土) 15:57 -

引用なし
パスワード
   ▼es さん:

とりあえず現行の複数ファイル選択ベースです。
シートもファイル毎に、分けています。

Sub ファイル読み込み2()

  Dim myfilenames As Variant
  Dim i As Integer
  Dim temp As String
 
  Dim x As Long
  Dim d As Variant
  Dim dx As Variant
 
  myfilenames = Application.GetOpenFilename(MultiSelect:=True)
 
  If IsArray(myfilenames) = True Then
    If UBound(myfilenames) > ThisWorkbook.Worksheets.Count Then
      MsgBox "選択されたファイル数が転記用シート数を超えています"
    Else
    
     For i = 1 To UBound(myfilenames)
   
       temp = Space(FileLen(myfilenames(i)))
     
       Open myfilenames(i) For Binary As #i
     
         Get #i, , temp
      
       Close #i
      
        d = Split(temp, vbCrLf)
        x = 0
        For Each dx In d
          x = x + 1
          ThisWorkbook.Worksheets(i).Cells(x, "A").Value = dx
        Next
  
     Next i
    
    End If
    
  End If

  
End Sub
1 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 発言

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