Excel VBA質問箱 IV

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

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


35696 / 76732 ←次へ | 前へ→

【46232】別ブックの指定されたシートに選択範囲のセル内容をコピーする
質問  よし  - 07/1/27(土) 15:22 -

引用なし
パスワード
   みなさん、こんにちは。いつもお世話になってます、よしです。

今日は題名にもありますように、あるブックに貼り付けられているDBのテーブルを
新規にブックを作成して、指定のシートにコピーしようとしているのですが、
エラーが解決できず困っております。解決のヒントでも頂ければと思っております。

Sub DMPブック作成()
  
  Dim originalBook As String
  Dim newWorkbook As Workbook
  Dim nName, copying As String
  
  ' コピー元ブック名の取得
  originalBook = ActiveWorkbook.Name
  
  ' 新規ブック名の入力
  nName = Application.InputBox(prompt:="ブック名を入力して下さい。", Type:=2)
  If nName = "False" Then
    Exit Sub
  End If
  
  ' 貼り付け先の指定
  copying = Application.InputBox(prompt:="何番目のシートにコピーしますか?", Type:=2)
  If copying = "False" Then
    Exit Sub
  Else
    If (CInt(copying) < 1 And CInt(copying) > 4) Then
      MsgBox ("1 から 4の間で指定してください。")
      Exit Sub
    End If
  End If
  
  Selection.Copy
  
  ' 新規ワークブックを作成し貼り付ける。その際、シートの書式を文字列にし、列幅を最適化する。
  Set newWorkbook = Workbooks.Add
  ActiveWorkbook.Worksheets(CInt(copying)).Activate
  Selection.NumberFormatLocal = "@"
  Worksheets(CInt(copying)).Cells(2, 1).Select
  ActiveSheet.Paste・・・・・(※)
  Selection.Columns.AutoFit
  
  ' ブック名を変更する
  newWorkbook.SaveAs Filename:=nName
  
End Sub

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

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