Excel VBA質問箱 IV

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

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


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

41518 / 76732

←次へ　｜　前へ→


	【40293】Re:シートの値のみ貼付け（複数）

サン

- 06/7/10(月) 17:32 -


	引用なし

	パスワード

▼Statis さん：

御返信遅くなりまして申し訳ございませんでした。
有難うございます。
コピーが出来ました。
とてもとても感謝しております。
本当に有難うございました。

>こんにちは
>シートすべての値をコピーなら
>これで如何かな？
>
>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