Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

55292 / 76732

←次へ　｜　前へ→


	【26218】開いた Book を見えないようにして

kobasan - 05/6/27(月) 20:49 -


	引用なし

	パスワード

▼skuroyan さん　今晩は。

コードを作り上げて、"やればできる"と思われたのでは？

さて、折角コードを掲載れたので、

>「累積用のブック」は出来れば開かずに処理して保存したい。

ということでしたので、

開いた Book を見えないようにして、
見かけ上、Book を開いていないようにしてみました。

（ブックを開かないということは、VBAにたけた人はあまり考えないで、
見えないようにするという方法をとるみたいです？？たぶん)

それから、activateはなるべく使わない方がよいということ
と Range の使い方で何カ所か気になる点がありましたので
参考にしてください。

Sub Macro1()
'================================追加
Dim MyBook As String
　　Application.ScreenUpdating = False
　　MyBook = ThisWorkbook.Name
　　Workbooks.Open "C:\累積.xls"
　　Workbooks(MyBook).Activate
'
'=====コピー================================
　　With Sheets("入力結果")
　　　　.Range("A2", "F" & .Range("A65536").End(xlUp).Row).Copy
　　End With
'=====入力結果保存==========================
　　Workbooks("累積").Sheets("累積結果") _
　　　　.Range("A65536").End(xlUp).Offset(1).PasteSpecial Paste:=xlValues
　　Workbooks("累積").Save
　　Workbooks("累積").Close
'=====入力結果クリヤ========================
　　With Sheets("入力結果")
　　　　.Range("A2", "F" & .Range("A65536").End(xlUp).Row).ClearContents
　　End With
　　'
　　Application.CutCopyMode = False
　　Workbooks(MyBook).Save
End Sub

0 hits

▼

【26174】入力用のブックのシートから「累積用のブック」のシートにデータを転送する... skuroyan 05/6/25(土) 19:11