Excel VBA質問箱 IV

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

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


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

36874 / 76732

←次へ　｜　前へ→


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

yosinobu

- 06/12/10(日) 18:01 -


	引用なし

	パスワード

▼Kein さん：
>>教えていただいた構文を実際の内容に置き換えたのですが、
　うまくいきません。
　　どこが、謝っているのでしょうか？
　
　　大変申し訳ございませんが、宜しくお願いします。

　全て　notfound　ｃ列に表示されます。
　　　
Sub Macro1()
Dim i As Integer
Dim Sh As Worksheet
Dim MyF As String, LkSt As String
Const SFol As String = _
"C:\C:\Documents and Settings\安部　義信\デスクトップ_
\授業料調査集計 \Exl_Files"

Set Sh = Worksheets("集計")
For i = 1 To 94
　　MyF = Dir(SFol & "\" & Format(i, "00") & "*.xls")
　　With Sh.Range(Sh.Cells(i + 6, 2), Sh.Cells(i + 6, 15))
　　
　 If MyF = "" Then
　 .Cells(2).Value = "File_notfound"
　　
　　Else
　　　LkSt = "=" & SFol & "\ [ " & MyF & "] アンケート"
　　　.Cells(5).Formula = LkSt & "$c$7"
　　　.Cells(6).Formula = LkSt & "$e$7"
　　　.Cells(7).Formula = LkSt & "$e$8"
　　　.Cells(8).Formula = LkSt & "$f$7"
　　　.Cells(9).Formula = LkSt & "$f$8"
　　　.Cells(10).Formula = LkSt & "$g$7"
　　　.Cells(11).Formula = LkSt & "$g$8"
　　　.Cells(12).Formula = LkSt & "$h$7"
　　　.Cells(13).Formula = LkSt & "$h$8"
　　　.Cells(14).Formula = LkSt & "$i$7"
　　　.Cells(15).Formula = LkSt & "$i$8"
　　　
　　　.Value = .Value
　　 End If
　 End With
Next i
Set Sh = Nothing
MsgBox "全てのデータを転記しました", 64
End Sub

0 hits

▼

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