0

こんにちは、私はすでに別のフォーラムから取得したマクロとコードを記録しようとしましたが、何も機能していません。マクロがある開いているブックのセル範囲をコピーし、Excel.Application で開いた Excel ファイルに挿入したい。これは、下の行が下に移動され、上書きされないことを意味します。ただし、コピーしたセルではなく、空白行が挿入されただけです。これが私の現在のコードです：

ThisWorkbook.Worksheets("Template").Range("A1:G22").Copy
WORxls.Worksheets("SheetSample").Rows("52:52").Select
WORxls.Application.ActiveWindow.Selection.Insert (xlDown)
4

1 に答える 1

0

ワークブックが読み取り専用で、シートが保護されているかどうか (Debug.Print行) を確認してから、その行にブレーク ポイント (赤い点) を配置してApplication.CutCopyMode = Falseください。Debug 行の値を確認し、行 52 のデータを手動で編集できますOn Error Resume Nextか? この Sub にありましたか? コメントアウトして、エラーが表示されるかどうかを確認してください。

ThisWorkbook.Worksheets("Template").Range("A1:G22").Copy
With WORxls.Worksheets("SheetSample")
    Debug.Print "Workbook ReadOnly? " & WORxls.ReadOnly
    Debug.Print "Sheet ProtectContents: " & .ProtectContents
    Debug.Print "Sheet AllowEditRanges: " & .Protection.AllowEditRanges
    Debug.Print "Sheet AllowInsertingRows: " & .Protection.AllowInsertingRows
    .Activate
    .Rows("52:52").Insert Shift:=xlDown
End With
Application.CutCopyMode = False
于 2013-08-19T06:29:02.430 に答える