Excel VBA質問箱 IV

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

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


49486 / 76735 ←次へ | 前へ→

【32159】多数ファイル内データの取得方法について
質問  さくら  - 05/12/7(水) 17:59 -

引用なし
パスワード
   以下の件につきまして御教授頂ければ幸いです。
常に開いているファイル(Book1とする)のA列に、ファイル名が記述されています。
Book1に記述されたマクロの実行により、他のフォルダにある複数のファイル(仮にファイル1から連番でファイル100まであるとします)に対して、以下の動作をさせたいのです。
ファイル1〜ファイル100には、何れもA列とB列にデータがあるとします。
1.ファイル1を開き、C列に、行毎のA列のデータとB列のデータの加算値を出力する。
2.C列のデータを、常に開いているファイルの同じ行のB列にペーストする。その後は、ファイル1のデータは保存せずに閉じます。
ファイル1について、1.2.の動作を終えた後、残るファイル100まで、順に1.2.と同様の動作を自動でさせたいのですが、ファイル1からファイル2への継続動作の仕方がわかりません。
以下では、ファイル1に対してのみ1.2.の動作をして終わります。
Sub Macro1()
Dim LastCell As Range, c As Range

 Set LastCell = Range("A65536").End(xlUp)
 For Each c In Range("A1", LastCell)
  strFileName = " C:\WINDOWS\フォルダ1\" & c.Value
  If c.Value <> "" And Dir(strFileName) <> "" Then
   Workbooks.Open Filename:=" C:\WINDOWS\フォルダ1\" & c.Value

    ActiveSheet.Range("C1")= ActiveSheet.Range("A1") +     ActiveSheet.Range("B1")
    ActiveSheet.Range("C1").Select
    Selection.Copy
    ActiveWorkbook.Close SaveChanges:=False
    Workbooks("Book1").Activate
    Cells(1, 2).Select
    ActiveSheet.Paste
  End If
 Next
 Set LastCell = Nothing
End Sub

0 hits

【32159】多数ファイル内データの取得方法について さくら 05/12/7(水) 17:59 質問
【32160】Re:多数ファイル内データの取得方法について Statis 05/12/7(水) 18:16 発言
【32161】Re:多数ファイル内データの取得方法について Statis 05/12/7(水) 18:32 発言
【32162】Re:多数ファイル内データの取得方法につ... さくら 05/12/7(水) 19:26 回答
【32164】Re:多数ファイル内データの取得方法につ... Statis 05/12/7(水) 20:02 回答
【32195】Re:多数ファイル内データの取得方法につ... さくら 05/12/8(木) 20:40 質問
【32196】Re:多数ファイル内データの取得方法につ... Statis 05/12/8(木) 21:19 回答
【32378】データの取得方法についてII さくら 05/12/13(火) 17:40 質問

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