[[20200521172709]]　『同一フォルダ内の、各ブックから指定セルをコピー』（ぽんきち）　ページの最後に飛ぶ

『同一フォルダ内の、各ブックから指定セルをコピーしたい。』（ぽんきち）

フォルダを指定して、その中にある全ブック内の、sheet1のB3、F4をリストにするようなマクロはどうしたらよろしいですか？

リスト集計エクセル内にはブック名、シート名も含めいか記載したいです。
ブック名、シート名、B3、F4

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

＞ブック名、シート名、B3、F4

シート名は、すべて　Sheet1　ではないのですか？？

（マナ） 2020/05/21(木) 18:32

一例です

 Option Explicit

 Sub test()
    Dim p As String
    Dim fn As String
    Dim n As Long
    Const wsn As String = "Sheet1"

    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show Then
            p = .SelectedItems(1) & "\"
        Else
            Exit Sub
        End If
    End With

    n = 1
    fn = Dir(p & "*.xlsx")

    Do While fn <> ""
        n = n + 1
        Cells(n, 1).Value = fn
        Cells(n, 2).Value = wsn
        Cells(n, 3).Value = "=’" & p & "[" & fn & "]" & wsn & "'!B3"
        Cells(n, 4).Value = "=’" & p & "[" & fn & "]" & wsn & "'!F4"
        fn = Dir()
    Loop

 End Sub

（マナ） 2020/05/21(木) 18:47

マナさん、ありがとうございます。

以下追加質問させてください。
・別ブックからコピーしたさい、リンクになってるようなのですが、
　値としてはりつけたいです。
・以下のようにした場合、次の行まで、A列は空白となるので結合したいのですができますか？
・A列にファイル名が入りますが、次回実行時はA列のファイル名分はコピーしないで、新規ファイル名だけを、前回の最終行に追加したいのです。

       n = n + 1
        Cells(n, 1).Value = fn
        Cells(n, 2).Value = wsn
        Cells(n, 3).Value = "=’" & p & "[" & fn & "]" & wsn & "'!B3"
        Cells(n, 4).Value = "=’" & p & "[" & fn & "]" & wsn & "'!F4"

       n = n + 1
        Cells(n, 3).Value = "=’" & p & "[" & fn & "]" & wsn & "'!B4"
        Cells(n, 4).Value = "=’" & p & "[" & fn & "]" & wsn & "'!F5"

（ぽんきち） 2020/05/22(金) 17:53

＞値としてはりつけたいです。

最後に、コピーして値貼り付けすればよいです。

＞以下のようにした場合、…
＞次回実行時は…

その説明では、わたしには何をしたいかわかりませんでした。
期待する結果の具体例を、表形式でお願いします。

（マナ） 2020/05/22(金) 19:36

コメント返信：

[ 一覧(最新更新順) ]

[[20200521172709]] 『同一フォルダ内の、各ブックから指定セルをコピー』（ぽんきち） ページの最後に飛ぶ

[[20200521172709]]　『同一フォルダ内の、各ブックから指定セルをコピー』（ぽんきち）　ページの最後に飛ぶ