Excel VBA質問箱 IV

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

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


51107 / 76732 ←次へ | 前へ→

【30499】Re:ブック
回答  awu  - 05/10/28(金) 20:10 -

引用なし
パスワード
   > 東京.XLSも経費集計.xlsも開かずに

これは、「手作業で開かないで」という意味でいいのですね。

それなら、こんな感じで如何ですか。

Sub Macro6()
  Dim Wb1 As Workbook
  Dim Wb2 As Workbook
  Application.ScreenUpdating = False
  Set Wb1 = Workbooks.Open("C:\MY DOCUMENT\ACCOUNT\東京.XLS")
  Set Wb2 = Workbooks.Open("C:\MY DOCUMENT\BRANCH\経費集計.xls")
  Wb1.Sheets("ローデータ").Copy Before:=Wb2.Sheets(1)
  Wb1.Close Savechanges:=False
  Wb2.Close Savechanges:=True
  Application.ScreenUpdating = True
  Set Wb1 = Nothing
  Set Wb2 = Nothing
End Sub
1 hits

【30496】ブック にしもり 05/10/28(金) 17:56 質問
【30499】Re:ブック awu 05/10/28(金) 20:10 回答
【30500】Re:ブック MARBIN 05/10/28(金) 20:12 回答
【30502】Re:ブック MARBIN 05/10/28(金) 20:21 発言
【30505】Re:ブック awu 05/10/28(金) 23:50 発言
【30511】Re:ブック MARBIN 05/10/29(土) 8:25 発言
【30518】Re:ブック awu 05/10/29(土) 10:54 発言
【30519】Re:ブック MARBIN 05/10/29(土) 11:04 発言
【30520】Re:ブック awu 05/10/29(土) 11:21 発言
【30523】Re:ブック MARBIN 05/10/29(土) 11:36 発言
【30527】Re:ブック awu 05/10/29(土) 12:13 発言
【30571】Re:ブック にしもり 05/10/31(月) 8:47 お礼

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