Excel VBA質問箱 IV

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

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


8890 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   ▼UO3 さん:
一旦、お礼を申し上げた後にもう一度質問ですみません。
参考の例をもとに、
配列のインデックスを使った記述もつくってみたのですが、
うまくいきません。

Sub ファイル読み込み4_3()

  Dim myfilenames As Variant
  Dim i As Integer
  Dim temp As String

  Dim d As Variant
  Dim j As Long

  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)
        j = 1
        
        For j = 1 To UBound(d)
          
          ThisWorkbook.Worksheets(i).Cells(j, "A").Value = d(j)
          j = j + 1
          
        Next j
        
 
     Next i
  
    End If
  
  End If

 
End Sub

これを実行すると
なぜか、1行置きにデータが転記され、
1行空白のセルができてしまいます。

ウォッチ式で
ThisWorkbook.Worksheets(i).Cells(j, "A").Value = d(j)
の右辺と左辺を追ってみていくと、
d(j)には値が格納されているにも関わらず、
左辺には1行ずつにempty値が代入されていきます。

なぜでしょうか。
またお手すきのとき教えてください。
253 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 発言

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