Excel VBA質問箱 IV

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

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


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

37006 / 76732

←次へ　｜　前へ→


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

yosinobu

- 06/12/5(火) 20:35 -


	引用なし

	パスワード

▼Kein さん：
　丸投げした形になり申し訳ありませんでした。
　また、夜分にもかかわらずありがとうございました。
　当方、同一ブックなら出来るのですが、ブックを異にする場合の考え方がわかりませんでした。
　本当にありがとうございました。
　なお、質問は、単一セルのデータでしたが、
　　　　複数の場合は、
　for i のループの中に
　セル　deita1 = range("a1")
　　　　deita2 = range("a2")
　　　　deita3 = range("a3")　　　
として
　　　　集計する　sheet1 の同一行に転記するには、
　　　range(banchia) = deita1　　
　　　range(banchib) = deita2　　
　　　range(banchic) = deita3
　のような　構文は、出来ないでしょうか。

はなはだかってなお願いですみませんが、宜しくお願いします。

>Sub MyData_Link()
>　 Dim i As Integer
>　 Dim MyF As String, LkSt As String
>　 Const SFol As String = _
>　 "C:\Documents and Settings\User\My Documents\Exl_Files"
>　
>　 For i = 1 To 90
>　　　MyF = Dir(SFol & "\" & Format(i, "00") & "*.xls")
>　　　With Worksheets("Sheet1").Cells(i, 1)
>　　　　 If MyF = "" Then
>　　　　　　.Value = "File_NotFound"
>　　　　 Else
>　　　　　　LkSt = "='" & SFol & "\[" & MyF & "]Sheet1'!$A$1"
>　　　　　　.Formula = LkSt
>　　　　　　.Value = .Value
>　　　　 End If
>　　　End With
>　 Next i
>　 MsgBox "全てのデータを転記しました", 64
>End Sub

1 hits

▼

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