Excel VBA質問箱 IV

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

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


41532 / 76732 ←次へ | 前へ→

【40279】Re:シートの値のみ貼付け(複数)
回答  Statis  - 06/7/10(月) 15:27 -

引用なし
パスワード
   こんにちは
シートすべての値をコピーなら
これで如何かな?

Sub コード表コピー()

Dim Va As Variant, Wb As Workbook
Dim Ws As Variant, i As Long

'作業時画面固定
Application.ScreenUpdating = False
i = 0
'振分元データ取得
Ws = Array("Sheet1", "Sheet2")

For Each Va In Array("C:\book1.xls", "C:\book2.xls")
  Set Wb = Workbooks.Open(Va)
  ThisWorkbook.Sheets("F 締日支払日ex").UsedRange.Copy
  Wb.Sheets(Ws(i)).Range("A1").PasteSpecial xlPasteValues
  Application.CutCopyMode = False
  Wb.Close savechanges:=True
  i = i + 1
Next Va

Application.ScreenUpdating = True
MsgBox "完了"
End Sub
1 hits

【40266】シートの値のみ貼付け(複数) サン 06/7/10(月) 12:22 質問
【40268】Re:シートの値のみ貼付け(複数) Statis 06/7/10(月) 13:19 発言
【40269】Re:シートの値のみ貼付け(複数) Statis 06/7/10(月) 13:21 発言
【40273】Re:シートの値のみ貼付け(複数) サン 06/7/10(月) 14:23 発言
【40279】Re:シートの値のみ貼付け(複数) Statis 06/7/10(月) 15:27 回答
【40293】Re:シートの値のみ貼付け(複数) サン 06/7/10(月) 17:32 お礼

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