Excel VBA質問箱 IV

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

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


35691 / 76732 ←次へ | 前へ→

【46237】Re:別ブックの指定されたシートに選択範囲のセル内容をコピーする
発言  かみちゃん  - 07/1/27(土) 16:08 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>上記のように記述し、実行してみると(※)の部分で、
>WorkSheetクラスのPasteメソッドが失敗しました。と出てしまいます。

コピーしたあと、貼り付けの前に書式設定すると、コピーが取り消されると思います。
(一般操作で確認してみてください。)
したがって、
Selection.Copy
以下を
  Selection.Copy
  Set newWorkbook = Workbooks.Add
  Worksheets(CInt(copying)).Select
  Cells(2, 1).Select
  ActiveSheet.Paste
  Application.CutCopyMode = False
  Selection.NumberFormatLocal = "@"
  Selection.Columns.AutoFit
  ' ブック名を変更する
  newWorkbook.SaveAs Filename:=nName
としてみてください。
2 hits

【46232】別ブックの指定されたシートに選択範囲のセル内容をコピーする よし 07/1/27(土) 15:22 質問
【46237】Re:別ブックの指定されたシートに選択範囲... かみちゃん 07/1/27(土) 16:08 発言
【46241】Re:別ブックの指定されたシートに選択範囲... よし 07/1/27(土) 17:37 お礼
【46248】Re:別ブックの指定されたシートに選択範囲... よし 07/1/27(土) 23:15 質問
【46251】Re:別ブックの指定されたシートに選択範囲... かみちゃん 07/1/28(日) 10:49 発言
【46256】Re:別ブックの指定されたシートに選択範囲... よし 07/1/28(日) 16:14 お礼

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