Excel VBA質問箱 IV

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

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


17089 / 76738 ←次へ | 前へ→

【65107】ブック作成後、シートのコピー
質問  おとと  - 10/4/17(土) 10:28 -

引用なし
パスワード
   以前、枠線の非表示でお世話になりました。

今回は、新規ブックを作成させてそのブックにシートを
コピーしたいと思っています。以前も利用していた下記
コードで’シート1書き込みの所にマクロで記録した
コードを入れたのですがエラーになってしまいます。
なにせ初心者なので見当違いの質問かもしれませんが
よろしくお願いします。


Private Sub CommandButton2_Click()

Dim objApp  'Excelアプリ
Dim objBook  'ExcelBook
Dim objSheets  'ExcelSheets
Dim objSheet  'ExcelSheet
Dim strMsg  'エラーメッセージ
Dim strXlsPath  '保存Excelファイル
Dim i
Dim xlNormal

Dim myDate As String

xlNormal = -4143

'Excel の保存先
myDate = Format(ActiveSheet.Range("f14"))
myDate2 = Format(ActiveSheet.Range("w14"))
strXlsPath = "C:\Documents and Settings\sim\デスクトップ\" _
& myDate & myDate2 & ".xls"

'=====================================================================
'Excelを起動する
'=====================================================================
On Error Resume Next
Err.Clear
Set objApp = CreateObject("Excel.Application")
If Err Then
  'エラー処理
  strMsg = strMsg & "Excelを起動できませんでした" & vbCrLf
  strMsg = strMsg & "Err.Number:" & Err.Number & vbCrLf
  strMsg = strMsg & "Err.Description:" & Err.Description & vbCrLf
End If
'エラー処理の初期化
On Error GoTo 0
If strMsg <> "" Then
  'エラーメッセージの表示
  MsgBox strMsg, vbCritical, "Excel の作成"
Else
  '===================================================================
  '新規ワークシートを作成
  '===================================================================
  objApp.Workbooks.Add
  '非表示にする
  objApp.Application.Visible = False
  '確認ダイアログを表示させない
  objApp.DisplayAlerts = False
  
  Set objBook = objApp.ActiveWorkbook
  Set objSheet = objBook.Sheets(1)
  シート1のみ残して後は削除
  For i = 2 To objSheets.Count
    objBook.Sheets(2).Delete
  
    
  Next

  'シート1の書き込み
  'Set objSheets = Sheets("作業シート")
  Sheets("作業シート").Copy Before:=Workbooks(objBook).Sheets(1)


  '新規ブックを保存
  objBook.SaveAs Filename:=strXlsPath, _
          FileFormat:=xlNormal, _
          Password:="", _
          WriteResPassword:="", _
          CreateBackup:=False
          '読み取り専用で
          'ReadOnlyRecommended:=True,


  'Excelの終了
  objApp.DisplayAlerts = True    '確認ダイアログを表示させる
  objBook.Close
  objApp.Quit

  'オブジェクトの解放
  Set objSheet = Nothing
  Set objSheets = Nothing
  Set objBook = Nothing
  Set objApp = Nothing

  'エラーメッセージの表示
  MsgBox "Excel を作成しました。", vbInformation, "Excel の作成"

End If

End Sub
0 hits

【65107】ブック作成後、シートのコピー おとと 10/4/17(土) 10:28 質問
【65108】Re:ブック作成後、シートのコピー かみちゃん 10/4/17(土) 10:44 発言
【65109】Re:ブック作成後、シートのコピー かみちゃん 10/4/17(土) 10:58 発言
【65110】Re:ブック作成後、シートのコピー おとと 10/4/17(土) 11:37 お礼
【65111】Re:ブック作成後、シートのコピー おとと 10/4/17(土) 11:59 お礼
【65112】Re:ブック作成後、シートのコピー おとと 10/4/17(土) 15:30 質問
【65113】Re:ブック作成後、シートのコピー かみちゃん 10/4/17(土) 16:47 発言
【65114】Re:ブック作成後、シートのコピー おとと 10/4/17(土) 17:04 質問
【65115】Re:ブック作成後、シートのコピー かみちゃん 10/4/17(土) 17:13 発言
【65117】Re:ブック作成後、シートのコピー おとと 10/4/17(土) 18:10 質問
【65120】Re:ブック作成後、シートのコピー かみちゃん 10/4/17(土) 18:57 発言
【65151】Re:ブック作成後、シートのコピー おとと 10/4/20(火) 8:41 質問
【65159】Re:ブック作成後、シートのコピー かみちゃん 10/4/20(火) 20:39 発言

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