Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12075 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   ありがとうございます。
そういたします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12075 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free