Excel VBA質問箱 IV

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

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


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

25220 / 76736

←次へ　｜　前へ→


	【56860】Re:値だけ貼付けしたいけどエラーに

初心者ごろう - 08/7/8(火) 18:06 -


	引用なし

	パスワード

▼kanabun さん：

こんにちは。
No.56852のコメント含め、分かりやすい説明ありがとうございます。
説明を読み、理解です。本当にありがとうございます。
早速、下のコードを実際のブック名やシート名を当てはめて実行してみました。
>Sub 値だけ貼付けVer3()
は、理解できたのですが、

>'WS1:コピー元シート　　strCopyTo: コピー先先頭セル（[A13]のときのみ指定）

これより下で止まってしまいました。
>Private Sub CopyData(ByVal WS1 As Worksheet, Optional strCopyTo$ = "")
>　Dim y As Long
>　Dim CopyTo As Range
>　Dim WS2 As Worksheet
>　　Set WS2 = Workbooks("集計.xls").Sheets("集計")
>　　If IsMissing(strCopyTo) Then
>　　　　Set CopyTo = WS2.Cells(65536, "A").End(xlUp).Offset(1)
>　　Else

（止まってしまったのは下の部分です。）
>　　　　Set CopyTo = WS2.Range(strCopyTo)

１つ目のブックのシートのコピーはうまくできました。
２つ目のブックを開いたまでは進むのですが、
この部分で実行時エラーが出てしまいました。
そこで、セルの指定が無いからかなと思って、

(1)『その他.xls』を開いて「集計」シートに値貼り付け
　　Set Book = Workbooks.Open(myFolder & "その他.xls")
　　CopyData Book.Sheets("その他"), "A13"
　　Book.Close
　　Set Book = Nothing

と同じ用に仮に
(2)『１３.xls』を開いて「集計」シートに値貼り付け
　　Set Book = Workbooks.Open(myFolder & "１３.xls")
　　CopyData Book.Sheets("QC"), "A13"
　　CopyData Book.Sheets("AA"), "A13"
　　Book.Close
　　Set Book = Nothing

というようにしてみると、動きましたが、
この場合だと、もちろんコピー先のA13に貼り付けます。
いろいろ試してみましたが私に知識が無さ過ぎてだめでした。

0 hits

▼

【56754】値だけ貼付けしたいけどエラーに 初心者ごろう 08/7/3(木) 15:43