|
みなさん、こんにちは。いつもお世話になってます、よしです。
今日は題名にもありますように、あるブックに貼り付けられている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メソッドが失敗しました。と出てしまいます。
|
|