| |
▼Yuki さん：
>▼らむ さん：
>>お世話になります。
>>
>>既存ブックBOOK1でショートカットキーによりマクロを実行し既存BOOK2を開くところまでは実行されるのですが、そこで常に止まってしまいます。（エラーなどは出ていません。
>
>ブックを開く前にコピーしているからです。
>ブックを開いてからコピーして貼り付けましょう。
お世話になります。
お返事遅くなってしまってすみません・・・
下のように変更してもだめでした。。
どうやら、他のブックを開いた段階で
どのようなコードでも止まってしまうようです。
他の既存ブックを開くのではなく
新しいブックを開いてそれに関数を貼り付けるように変更します。
ありがとうございました！
'１日分のデータをコピーする
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
'現在選択しているブック名を取得する。
BOOKNAME = ActiveWorkbook.Name
'ログ作成用のエクセルを開く
If Dir(FILE2) <> "" Then
Workbooks.Open FILE2
Else
MsgBox "ファイルが存在しません。", vbExclamation
End If
'新規ブックから開く前のブックに制御を戻す
Application.Workbooks(BOOKNAME).Activate
'一日分のデータをコピーする。
Range(Cells(T, 1), Cells(E, 11)).Copy
'１日分のデータを貼り付けをログ作成用エクセルのSheet1にコピー
Application.Workbooks(BOOK2).Activate
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
