[[20150124162239]] 『マクロが組まれているファイルの値が読み込む方法』(zunzunm) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『マクロが組まれているファイルの値が読み込む方法』(zunzunm)

あるフォルダにマクロが組まれた複数のファイルがあります。
このファイルから指定のセルの値を転記するマクロを、本学の検索から入手した以下のSub 集計()を実行すると、ファイル名は転記されますが、値は空白です。
なお、マクロが組まれていないファイルからは転記されます。
どこを改良すれば良いのでしょうか?
よろしくお願いいたします。

Sub 集計()

    Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")

    Dim srcWS As Worksheet
    Set srcWS = ActiveSheet

    Dim folderpath
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show <> True Then Exit Sub
        folderpath = .SelectedItems(1)
    End With

    Dim row As Long
    Dim col As Long
    Dim lastCol As Long

    row = 3
    lastCol = srcWS.Range("B2").End(xlToRight).Column
    If lastCol = Columns.Count Then
        MsgBox "取得位置が範囲が未定義です "
        Exit Sub
    End If

    Dim file
    For Each file In fso.GetFolder(folderpath).Files
        With Workbooks.Open(folderpath & "\" & file.Name)
            srcWS.Cells(row, "A").Value = file.Name
            For col = 2 To lastCol
                srcWS.Cells(row, col).Value = .Worksheets(1).Range(srcWS.Cells(2, col).Value).Value
            Next
            .Close
            row = row + 1
        End With
    Next
 End Sub

< 使用 Excel:Excel2010、使用 OS:Windows7 >


 コードはよく読んでいませんが

 srcWS.Cells(row, col).Value = .Worksheets(1).Range(srcWS.Cells(2, col).Value).Value

 これは加算していませんよね?
 読み込んだブックのどこかの値を転記しているだけですが?

(β) 2015/01/24(土) 17:36


その転記されないファイルに非表示のシートがあるとか?

(マナ) 2015/01/24(土) 17:41


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

A3列以降にはファイル名、B3列にはB2で指定したセルの値が転記されます。
C列・・・も同様です。マクロが組んであるファイルから転記ができない状態です。

βさんの
>これは加算していませんよね?
>読み込んだブックのどこかの値を転記しているだけですが?
これはどのような内容でしょうか?

マナさん
非表示のシートではありません。

(zunzunm) 2015/01/24(土) 18:11


 【これはどのような内容でしょうか? 】

 ごめんなさい。集計() というプロシジャ名から合計をとっているんだと思い込んでいました。

 で、マクロをくんである、ない にかかわらず、マクロをくんであるブックの最初のシートの当該セルが
 【たまたま】空白だったということはないんでしょうか?

(β) 2015/01/24(土) 20:01


βさん、マナさん

解決しました。
マナさんの指摘の通り、非表示のシートが1番目にありました。
お騒がせしました。
(zunzunm) 2015/01/25(日) 12:22


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.