Excel VBA質問箱 IV

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

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


25216 / 76732 ←次へ | 前へ→

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

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

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

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

【56754】値だけ貼付けしたいけどエラーに 初心者ごろう 08/7/3(木) 15:43 質問
【56755】Re:値だけ貼付けしたいけどエラーに こぎつね 08/7/3(木) 16:28 発言
【56818】Re:値だけ貼付けしたいけどエラーに 初心者ごろう 08/7/7(月) 14:41 お礼
【56836】Re:値だけ貼付けしたいけどエラーに こぎつね 08/7/7(月) 23:36 発言
【56841】Re:値だけ貼付けしたいけどエラーに kanabun 08/7/8(火) 12:54 発言
【56847】Re:値だけ貼付けしたいけどエラーに 初心者ごろう 08/7/8(火) 14:26 発言
【56852】Re:値だけ貼付けしたいけどエラーに kanabun 08/7/8(火) 14:49 発言
【56842】Re:値だけ貼付けしたいけどエラーに Jaka 08/7/8(火) 13:14 発言
【56849】Re:値だけ貼付けしたいけどエラーに 初心者ごろう 08/7/8(火) 14:31 発言
【56843】Re:値だけ貼付けしたいけどエラーに kanabun 08/7/8(火) 13:16 発言
【56860】Re:値だけ貼付けしたいけどエラーに 初心者ごろう 08/7/8(火) 18:06 お礼
【56861】Re:値だけ貼付けしたいけどエラーに kanabun 08/7/8(火) 18:47 発言
【56933】Re:値だけ貼付けしたいけどエラーに 初心者ごろう 08/7/11(金) 11:46 お礼

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