VBA初心者です。
Excel VBAで、指定したフォルダ内のファイルを順に開き、特定のセルの値をコピーし、リスト化したいと考えています。
以下の構文では作業自体はうまくいくのですが、コピー元が数式セルになっているため、値ではなく数式がコピーされてしまい、値がうまく引っ張れない状態です。
------------------------------------------------------------------------------------------
Sub Sample()
Dim Workbook_path As String
Workbook_path = ActiveWorkbook.Path & "\test"
Dim objFSO As Object
Dim objBook As Object
Dim lngRow As Long
Application.ScreenUpdating = False
'集計シートをクリア
ThisWorkbook.Sheets("集計").Select
Cells.Clear
'FileSystemObjectを変数にセット
Set objFSO = CreateObject("Scripting.FileSystemObject")
'フォルダ内のファイル全て繰り返し処理
For Each objBook In objFSO.GetFolder(Workbook_path).Files
'貼り付け行(最終行+1)取得
lngRow = ThisWorkbook.Sheets("集計").Range("A" & Rows.Count).End(xlUp).Row + 1
'ファイルを開く
Workbooks.Open objBook.Path
'コピー後ファイルを閉じる
With ActiveWorkbook
.Sheets("Sheet1").Range("A1").Copy ThisWorkbook.Sheets("集計").Range("A" & lngRow)
.Sheets("Sheet1").Range("A2").Copy ThisWorkbook.Sheets("集計").Range("B" & lngRow)
.Sheets("Sheet2").Range("B1").Copy ThisWorkbook.Sheets("集計").Range("C" & lngRow)
.Close
End With
Next
'オブジェクト変数解放
Set objFSO = Nothing
Application.ScreenUpdating = True
End Sub
---------------------------------------------------------------------------------------------
この部分を値コピーにできればうまくいくと思い色々試したのですが、エラーが生じてしまい、うまくいきません。
①Copyではなく=を使用 ⇒ アプリケーション定義またはオブジェクト定義のエラー
②指定したセルのあとにvalueを追加 ⇒ 同上
③各行の末尾に.PasteSpecial Paste:=xlPasteValuesを追加 ⇒ コンパイルエラー(修正候補 ステートメントの最後)
いずれもHPなどを色々検索して試してみたのですが・・・
解決策をご教授ください。
----------------------------------------------------------------------------------------------------
.Sheets("Sheet1").Range("A1").Copy ThisWorkbook.Sheets("集計").Range("A" & lngRow)
.Sheets("Sheet1").Range("A2").Copy ThisWorkbook.Sheets("集計").Range("B" & lngRow)
.Sheets("Sheet2").Range("B1").Copy ThisWorkbook.Sheets("集計").Range("C" & lngRow)
-----------------------------------------------------------------------------------------------------
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Excel(エクセル) エクセル 値をコピペした時に、条件付き書式で塗られた背景色もペーストさせる 2 2023/04/05 17:21
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルVBAで値の貼り付けができない
その他(Microsoft Office)
-
VBA 値のみ貼り付けがうまくいきません
Excel(エクセル)
-
エクセルVBA/イベント発生でコピペ不能はなぜ?
Excel(エクセル)
-
-
4
エクセル2010 マクロで値のみコピー
Excel(エクセル)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
Excel VBA 見本通りに入力してもエラーがでます どこがいけないのでしょうか
Excel(エクセル)
-
7
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
8
VBAでの値のコピーのエラーについて
Excel(エクセル)
-
9
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
10
セルのコピーで「オブジェクトが必要です。」
Visual Basic(VBA)
-
11
VBAの再計算が反映されない件につきまして
Visual Basic(VBA)
-
12
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
13
VBA マクロ実行時エラー’1004RangeクラスのPasteSpecialメソッドが失敗
Access(アクセス)
-
14
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
15
VBAで特定の文字が入力されたセルを選択
Excel(エクセル)
-
16
EXCELマクロで、シート間でのコピーペーストを繰り返す方法
Excel(エクセル)
-
17
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
18
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
19
VBAで重複データを合算したい
Excel(エクセル)
-
20
自分の部署・担当を言うとき、どういう言い方が正しいでしょうか?? 会社のときは、弊社といいますが、部
その他(ビジネス・キャリア)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
frxファイルの役目
-
エクセルで複数のコメントのサ...
-
バッチファイル XCOPYで上書き...
-
バッチファイルのコピーで
-
Vba初心者です。下記のコード助...
-
同じファイル名 上書きしないフ...
-
ファイルサーバ上のファイルが...
-
xcopyでのバッチコピー方法でコ...
-
FTPとファイルコピーの違いにつ...
-
FSO.CopyFileでのエラー無視方法
-
VBSでExcelシートのコピー
-
エクセルのマクロについて教え...
-
バッチファイル 別ファイルにリ...
-
再インストール出来ません。
-
マインクラフトPCをプレイしよ...
-
エクセルのハイパーリンクがコ...
-
エクセル2010、図が大きすぎま...
-
[エクセル]コピーするとオブジ...
-
「ファイルが見つかりません D...
-
vbsでExcelのシートをコピーす...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで複数のコメントのサ...
-
エクセルのハイパーリンクがコ...
-
frxファイルの役目
-
バッチファイル XCOPYで上書き...
-
Vba初心者です。下記のコード助...
-
Excelのマクロについて教えてく...
-
エクセル2010、図が大きすぎま...
-
バッチファイル 別ファイルにリ...
-
[エクセル]コピーするとオブジ...
-
エクセルVBAで開いているファイ...
-
パワポでスライドをコピーでき...
-
ファイルサーバ上のファイルが...
-
xcopyでのバッチコピー方法でコ...
-
Excelのマクロについて教えてく...
-
FTPとファイルコピーの違いにつ...
-
Excelのマクロについて教えてく...
-
バッチファイルのコピーで
-
bat 同名ファイルコピー時にリ...
-
アクセス クエリを別のファイ...
-
同じファイル名 上書きしないフ...
おすすめ情報