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

1 hits

【26174】入力用のブックのシートから「累積用のブック」のシートにデータを転送する... skuroyan 05/6/25(土) 19:11 質問
【26176】Re:入力用のブックのシートから「累積用の... かみちゃん 05/6/25(土) 20:14 発言
【26187】Re:入力用のブックのシートから「累積用の... skuroyan 05/6/26(日) 5:24 回答
【26177】Re:入力用のブックのシートから「累積用の... ponpon 05/6/25(土) 20:24 発言
【26188】Re:入力用のブックのシートから「累積用の... skuroyan 05/6/26(日) 5:29 回答
【26194】Re:入力用のブックのシートから「累積用... ponpon 05/6/26(日) 17:17 発言
【26179】Re:入力用のブックのシートから「累積用... kobasan 05/6/25(土) 20:48 回答
【26181】Re:入力用のブックのシートから「累積用... kobasan 05/6/25(土) 21:28 発言
【26189】Re:入力用のブックのシートから「累積用... skuroyan 05/6/26(日) 11:57 お礼
【26218】開いた Book を見えないようにして kobasan 05/6/27(月) 20:49 発言

55292 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free