Excel VBA質問箱 IV

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

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


8896 / 76732 ←次へ | 前へ→

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

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

複数ファイル --> 複数シート の件了解です。
であればアップ済みのコードでいけると思いますが、以下は
シート転記時のループをなくしたバージョンです。

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

  Dim myfilenames As Variant
  Dim i As Integer
  Dim temp As String
 
  Dim d 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
      
       With ThisWorkbook.Worksheets(i)
         d = Split(temp, vbCrLf)
        .Cells.ClearContents
        .Cells(1, "A").Resize(UBound(d)).Value = _
          WorksheetFunction.Transpose(d)
       End With
      
     Next i
    
    End If
    
  End If

  
End Sub

235 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 発言

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