|
お世話になります。
既存ブックBOOK1でショートカットキーによりマクロを実行し既存BOOK2を開くところまでは実行されるのですが、そこで常に止まってしまいます。(エラーなどは出ていません。
)
エクセルのツールバーからマクロを実行した場合は、開いた後も処理が進みます。
もし解決方法がありましたらご教授お願いします。
下が作成したコード(一部)です。
よろしくお願いいたします。
'オラクル集計用エクセル
DIR1 = "C:\" 'ディレクトリー
BOOK1 = "マクロ作成用.xls" 'ブック名
'ファイル名
'ログ作成用エクセル
DIR2 = "C:\" 'ディレクトリー
BOOK2 = "sample.xls" 'ブック名
FILE2 = DIR2 & BOOK2 'ファイル名
'ここまでBOOK1で実行されています。
'1日分のデータをコピーする
DAY1 = Cells(T, 12)
DAY2 = Cells(E, 12)
If DAY1 = "" Then
GoTo ED
End If
Do Until DAY1 <> DAY2
DAY2 = Cells(E, 12)
E = E + 1
Range("L1") = DAY1
Range("M1") = DAY2
Loop
E = E - 2
Range(Cells(T, 1), Cells(E, 11)).Copy
'ログ作成用のエクセルを開く
If Dir(FILE2) <> "" Then
Workbooks.Open FILE2
Else
MsgBox "ファイルが存在しません。", vbExclamation
End If
'-------------------------------------------------------------
'ここから↓↓↓が実行されません。
'1日分のデータを貼り付けをログ作成用エクセルのSheet1にコピー
Application.Workbooks(BOOK2).Activate
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
|
|