Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

36864 / 76732

←次へ　｜　前へ→


	【45043】Re:複数の同一形式のブックのセルデータを別のブックシートにまとめたい

Kein - 06/12/10(日) 23:06 -


	引用なし

	パスワード

>私の質問が、わかりにくかった
そうではなく、応用もできないのに初めから実際の状況を説明せず、
例題ばかり内容をコロコロ変えて書いたのが間違いなのです。
最初の[44871]の文章を読み返してみて下さい。そこから何回内容が
変わってますか ?
>生半可の知識しかない
のを自覚していたら、ヒントぐらいの回答では応用できそうにない、
と思わなかったですか ?
ま、何はともあれ今回が最後の回答にしますから、そのつもりで。

Sub Macro1()
　 Dim i As Integer, j As Integer
　 Dim Sh As Worksheet
　 Dim AdAry As Variant
　 Dim MyF As String, LkAry(0 To 4) As String
　 Const SFol As String = _
　 "C:\Documents and Settings\安部　義信\デスクトップ\授業料調査集計\"

　 Set Sh = Worksheets("集計")
　 AdAry = Array("R7C3", "R7C5", "R8C5", "R7C6", "R8C6")
　 For i = 1 To 94
　　　 MyF = Dir(SFol & Format(i, "00") & "*.xls")
　　　 With Sh.Range(Sh.Cells(i + 6, 5), Sh.Cells(i + 6, 9))
　　　　　If MyF = "" Then
　　　　　　 .Cells(1).Value = "File_NotFound"
　　　　　Else
　　　　　　 For j = 0 To 4
　　　　　　　　LkAry(j) = ExecuteExcel4Macro("'" & SFol & _
　　　　　　　　"[" & MyF & "]アンケート'!" & AdAry(j))
　　　　　　 Next j
　　　　　　 .Value = LkAry(): Erase LkAry
　　　　　End If
　　　 End With
　 Next i
　 Sh.Activate: Set Sh = Nothing: Erase AdAry
　 MsgBox "全てのデータを転記しました", 64
End Sub

0 hits

▼

【44871】複数の同一形式のブックのセルデータを別のブックシートにまとめたい yosinobu 06/12/4(月) 23:16