Excel VBA質問箱 IV

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

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


12074 / 13645 ツリー ←次へ | 前へ→

【12460】複数のブックの内容を他ブックの最初のシ... よっしー 04/4/5(月) 12:00 質問
【12462】Re:複数のブックの内容を他ブックの最初の... Jaka 04/4/5(月) 12:26 回答
【12468】Re:複数のブックの内容を他ブックの最初... よっしー 04/4/5(月) 14:37 質問
【12473】Re:複数のブックの内容を他ブックの最初... Jaka 04/4/5(月) 16:36 回答
【12485】Re:複数のブックの内容を他ブックの最初... よっしー 04/4/6(火) 9:40 お礼
【12549】類似の質問:複数任意のブックを・・・ ぱぬっち 04/4/7(水) 12:51 質問
【12550】Re:類似の質問:複数任意のブックを・・・ Asaki 04/4/7(水) 13:09 発言
【12551】Re:類似の質問:複数任意のブックを・・・ ぱぬっち 04/4/7(水) 13:11 発言

【12460】複数のブックの内容を他ブックの最初のシ...
質問  よっしー  - 04/4/5(月) 12:00 -

引用なし
パスワード
   あるフォルダに複数のブックがあります。
(例:全体.xls, a.xls, b.xls, c.xls,・・・)
例えばa.xls〜c.xlsのcells(1,1)にそれぞれ
数値が入ってます。その数値をそれぞれ足して
いって結果を全体.xlsのcells(1,1)に合計を表
示させたいのですがどうしたらいいのか分かり
ません。
全体.xlsをopenしたときに最初のシートに表示させた
いです。
どなたかわかる方教えてください。
よろしくお願いします。

【12462】Re:複数のブックの内容を他ブックの最初...
回答  Jaka  - 04/4/5(月) 12:26 -

引用なし
パスワード
   こんにちは。

いくつのブックが対象か解りませんが..。

a.xls, b.xls, c.xlsが、開いている事が条件。
=SUM([a.xls]Sheet2!$A$1,[b.xls]Sheet2!$A$1,[c.xls]Sheet2!$A$1)

開かないでと言うのなら(パスはそれに応じて直してね。)
=SUM('C:\WINDOWS\デスクトップ\[a.xls]Sheet2'!$A$1,'C:\WINDOWS\デスクトップ\[b.xls]Sheet2'!$A$1,'C:\windows\デスクトップ\[c.xls]Sheet2'!$A$1)

【12468】Re:複数のブックの内容を他ブックの最初...
質問  よっしー  - 04/4/5(月) 14:37 -

引用なし
パスワード
   ▼Jaka さん:
>こんにちは。
>
>いくつのブックが対象か解りませんが..。
>
不特定です。変数でしたいのですが
可能でしょうか?

【12473】Re:複数のブックの内容を他ブックの最初...
回答  Jaka  - 04/4/5(月) 16:36 -

引用なし
パスワード
   色々やり方があると思うけど..。

あるフォルダのブック名取得なら
[#843] ← 谷さんに消されてました。一応下に載せておきます。
とか

ブックを開かないんだったら
[#7197]

ついでにここも参考になるかと思います。
[#7962]


Sub 昇順()
  Dim i As Long
  With Application.FileSearch
    .LookIn = "C:\Windows\デスクトップ"
    .FileName = "*.xls"
    If .Execute(SortBy:=msoSortByFileName, _
      sortorder:=msoSortOrderAscending) > 0 Then
      Range("A1").Value = "ファイル名"
      Range("B1").Value = "フルパス"
      For i = 1 To .FoundFiles.Count
        Range("A" & i + 1).Value = Dir(.FoundFiles(i))
        Range("B" & i + 1).Value = .FoundFiles(i)
      Next
    Else
      MsgBox "エクセルファイルはありません。"
    End If
  End With
End Sub

Sub 降順()
  Dim i As Long
  With Application.FileSearch
    .LookIn = "C:\Windows\デスクトップ"
    .FileName = "*.xls"
    If .Execute(SortBy:=msoSortByFileName, _
      sortorder:=msoSortOrderDescending) > 0 Then
      Range("A1").Value = "ファイル名"
      Range("B1").Value = "フルパス"
      For i = 1 To .FoundFiles.Count
        Range("A" & i + 1).Value = Dir(.FoundFiles(i))
        Range("B" & i + 1).Value = .FoundFiles(i)
      Next
    Else
      MsgBox "エクセルファイルはありません。"
    End If
  End With
End Sub

【12485】Re:複数のブックの内容を他ブックの最初...
お礼  よっしー  - 04/4/6(火) 9:40 -

引用なし
パスワード
   Jakaさんありがとうございます。
教えて頂いた通りやったらできそうです。
また何かありましたらよろしくお願い致し
ます。

【12549】類似の質問:複数任意のブックを・・・
質問  ぱぬっち  - 04/4/7(水) 12:51 -

引用なし
パスワード
   不特定複数のブックから、その中のセルの値を取り出したいのですが、
セル位置{上記では(1,1)}も変数とするにはどうすればよいでしょうか。
全体.xlsの中にブック名と、そのブック内の特定列の任意の値(日付)を入力しておき、
それを上の要領で抽出する仮定で、
ある日付の行のB列,E列のセルの値を取り出すという事なのですが。

A   B   C   D   E   F  
123  040403
124  040401
128  031227
130  040204

上は全体.xlsです。
このような時に、dataフォルダの中にある
123.csv・124.csv・128.csv・130.csvから、
B列の040403等の値の入ってある行の特定列からデータを取り出し、
全体.xlsのC,D列に組み込みたいのです。

下が一つの例で123.csvです。
A   B   C   D   E
040401 12  13  14  15
040402 00  7   145  93
040403 45  2   23  45.4
040404 2   45  3   135

なんとかならないものなのでしょうか。
よろしくお願いいたします。

【12550】Re:類似の質問:複数任意のブックを・・・
発言  Asaki  - 04/4/7(水) 13:09 -

引用なし
パスワード
   こんにちは。

類似かもしれませんが、別にスレッドを立てられたほうが良いのでは?
こちらは既に解決しているようですし。

【12551】Re:類似の質問:複数任意のブックを・・・
発言  ぱぬっち  - 04/4/7(水) 13:11 -

引用なし
パスワード
   ありがとうございます。
そういたします。

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