Excel VBA質問箱 IV

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

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


41671 / 76732 ←次へ | 前へ→

【40140】Re:フォルダ内のファイル読み込み
回答  ちくたく  - 06/7/7(金) 14:09 -

引用なし
パスワード
   みぽりん さん
こんにちは。
bndという拡張子がよくわからないのと、
先ほどのコードを活かした内容ではないですが、
これでいきませんかね?
(bndという拡張子ではダメかもしれません)

昔、自分のためにつくったやつの焼き直しなので、細かく見てません。
ちょっと、忙しいので、クレーム対応遅れるかもしれません。
失礼致します。

Sub データ書き写し()

  Dim myFo As String
  Dim fileStr As String
  Dim myWs As Worksheet, myWb As Workbook
  Dim dataWb As Workbook
  Dim i As Integer
  
  Set myWb = Workbooks.Add
  Set myWs = myWb.ActiveSheet
  
  myFo = "D:\Ki"  'フォルダのパス
  fileStr = Dir(myFo & "\", vbNormal)
  i = 1
  
  Do While fileStr <> ""
    Set dataWb = Workbooks.Open(myFo & "\" & fileStr)
    With dataWb.ActiveSheet
      myWs.Range("A" & i).Value = "ファイル" & i
      myWs.Range("B" & i).Value = .Range("C7").Value
      myWs.Range("C" & i).Value = .Range("C9").Value
      myWs.Range("D" & i).Value = .Range("C8").Value
      myWs.Range("E" & i).Value = .Range("C13").Value
      myWs.Range("F" & i).Value = .Range("C15").Value
      myWs.Range("G" & i).Value = .Range("C14").Value
    End With
    i = i + 1
    dataWb.Close
    fileStr = Dir
  Loop
  
End Sub

0 hits

【40136】フォルダ内のファイル読み込み みぽりん 06/7/7(金) 13:47 質問
【40140】Re:フォルダ内のファイル読み込み ちくたく 06/7/7(金) 14:09 回答
【40147】Re:フォルダ内のファイル読み込み みぽりん 06/7/7(金) 15:22 質問
【40141】Re:フォルダ内のファイル読み込み ひげくま 06/7/7(金) 14:12 発言
【40143】Re:フォルダ内のファイル読み込み ハチ 06/7/7(金) 14:57 回答
【40152】Re:フォルダ内のファイル読み込み みぽりん 06/7/7(金) 15:59 質問
【40157】Re:フォルダ内のファイル読み込み ハチ 06/7/7(金) 16:39 発言
【40263】Re:フォルダ内のファイル読み込み みぽりん 06/7/10(月) 11:45 質問
【40162】Re:フォルダ内のファイル読み込み Kein 06/7/7(金) 17:34 回答
【40238】Re:フォルダ内のファイル読み込み みぽりん 06/7/10(月) 9:54 質問
【40242】Re:フォルダ内のファイル読み込み Blue 06/7/10(月) 10:01 回答
【40243】Re:フォルダ内のファイル読み込み かみちゃん 06/7/10(月) 10:04 発言
【40250】Re:フォルダ内のファイル読み込み みぽりん 06/7/10(月) 10:34 お礼
【40255】Re:フォルダ内のファイル読み込み みぽりん 06/7/10(月) 10:55 質問
【40258】Re:フォルダ内のファイル読み込み みぽりん 06/7/10(月) 11:14 お礼
【40260】度々すみませんが、教えてください。 みぽりん 06/7/10(月) 11:37 質問
【40262】Re:度々すみませんが、教えてください。 Blue 06/7/10(月) 11:43 回答
【40276】Re:度々すみませんが、教えてください。 みぽりん 06/7/10(月) 15:17 お礼

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