エクセル2000でブック間のデータのコピーをやっていての質問です。
あるディレクトリ内に「統合するファイル.xls」と「統合されるファイル.xls」があります。両方のファイルにはC列からG列、2行目以下に数字のデータが入っています。(C2~G2、C3~G3・・・・というように続きます)
「統合されるファイル」のC列からG列のデータをコピーして「統合するファイル」のデータの下に貼り付けるプログラムを作っています。プログラムは以下です。
Dim sBase As String
Dim sMyPath As String
Dim lLine As Long
Dim lStartRow As Long
Application.ScreenUpdating = False
'統合するファイル名・ディレクトリ名取得
sBase = ActiveWorkbook.Name
sMyPath = ActiveWorkbook.Path & "\"
Workbooks.Open Filename:=sMyPath & "統合されるファイル.xls"
lLine = Workbooks("統合されるファイル.xls").Worksheets("Sheet1").Cells(ActiveSheet.Rows.Count, 3).End(xlUp).Row
'統合するファイルの最終行を抽出
lStartRow = 0
lStartRow = Workbooks(sBase).Worksheets("Sheet1").Cells(ActiveSheet.Rows.Count, 3).End(xlUp).Row
'統合されるファイルからコピーして統合するファイルの最終行より下に貼り付け
Workbooks("統合されるファイル.xls").Worksheets("Sheet1").Range(Cells(2, 3), Cells(lLine, 7)).Copy Destination:=Workbooks(sBase).Worksheets("Sheet1").Range(Cells(lStartRow + 1, 3))
Workbooks("統合されるファイル.xls").Close SaveChanges:=False
Application.ScreenUpdating = True
現在、このプログラムを走らせると、コピーして貼り付けるところで「アプリケーション定義またはオブジェクト定義のエラーです」という警告が出てコピーされない状況です。
何が悪いのでしょうか?
No.1ベストアンサー
- 回答日時:
Workbooks("統合されるファイル.xls").Worksheets("Sheet1").Range(Cells(2, 3), Cells(lLine, 7)).Copy Destination:=Workbooks(sBase).Worksheets("Sheet1").Range(Cells(lStartRow + 1, 3))
↑
コピー部分とペースト部分を単純に分けたほうが簡単だと思いますが。
' コピー部を選択し、コピー
Windows("統合されるファイル.xls").Activate
Range(Cells(2, 3), Cells(lLine, 7)).Select
Selection.Copy
' ペースト部を選択し、ペースト
Windows(sBase).Activate
Cells(lStartRow + 1, 3).Select
ActiveSheet.Paste
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ファイルコピーのスクリプトで...
-
Gitについて質問。 クローンし...
-
パワポでスライドをコピーでき...
-
バッチファイル XCOPYで上書き...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルで複数のコメントのサ...
-
現在のブックを閉じないで、マ...
-
マインクラフトPCをプレイしよ...
-
Vba初心者です。下記のコード助...
-
エクセルVBAでファイル・シート...
-
ファイルサーバ上のファイルが...
-
VBSで作成したフォルダにファイ...
-
AVIUTlって iPadでも使えますか?
-
[C#]Excelファイルをコピーする...
-
パソコン内の写真が消えた?
-
同じファイル名 上書きしないフ...
-
エクセル2010、図が大きすぎま...
-
DVD-Rの作成ができない
-
FSO.CopyFileでのエラー無視方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで複数のコメントのサ...
-
現在のブックを閉じないで、マ...
-
エクセルのマクロについて教え...
-
frxファイルの役目
-
バッチファイル XCOPYで上書き...
-
エクセルのハイパーリンクがコ...
-
エクセルVBAで開いているファイ...
-
ファイルサーバ上のファイルが...
-
エクセル2010、図が大きすぎま...
-
[エクセル]コピーするとオブジ...
-
バッチファイルのコピーで
-
アクセス クエリを別のファイ...
-
Vba初心者です。下記のコード助...
-
バッチファイル 別ファイルにリ...
-
同じファイル名 上書きしないフ...
-
Gitについて質問。 クローンし...
-
vbsでExcelのシートをコピーす...
-
マインクラフトPCをプレイしよ...
-
xcopyでのバッチコピー方法でコ...
-
ファイルをコピーできない
おすすめ情報