[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『マクロが組まれているファイルの値が読み込む方法』(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.