2010excel の記述方法

質問

2007excelでマクロを記述したものが、実行エラー1004
「Save As メリッドは失敗しました　Workbookオブジェクト」と表示されます。
テバックすると NewWkbook.SaveAs FileName:=FileName, FileFormat:=xlExcel8
がエラー表示されます。
すいません、教えてください

If Dir(FileName) <> "" Then
'##ファイルが既に存在する
If MsgBox("既に指定のファイルが存在します。 置き換えますか?", vbOKCancel, "置き換えの確認") = vbCancel Then
NewWkbook.Close saveChanges:=False
'##保存せずに終了
Exit Sub
End If
'##指定ファイル置き換え保存
NewWkbook.SaveAs FileName:=FileName, FileFormat:=xlExcel8
Else
'##ファイルを新規保存
NewWkbook.SaveAs FileName:=FileName, FileFormat:=xlExcel8←黄色
End If
'
NewWkbook.Close saveChanges:=False
Application.DisplayAlerts = True

回答No.2

WindFaller · ベストアンサー

こんにちは。

xlExcel8--旧ファイル・フォーマットで保存するのは、人に渡すためでしょうか？

Excel2007以上ですと、こうしたパブリック性を考慮するのでしたら、Shape（Button？） 削除したり、印刷不可にしておいて、pdf などに保存したほうが早いような気がします。もしくは、xlsx のファイル・フォーマットで保存するか、どちらかだと思います。厳密に言えば、ドキュメント検査や互換性チェックを調べる方法も加えます。

コードの趣旨は分かりましたが、未だ、肝心な部分が残っていて、その都度、小出しに情報を出されても、全文を出さない限りは、#1さんと同じようになってしまいます。もちろん、こちら側で、新たに書きなおすことは可能だとは思いますが、業務上の守秘義務とかあるでしょうから、現状で今アドバイス出来る部分というと、

>'##指定ファイル置き換え保存
> NewWkbook.SaveAs FileName:=FileName, FileFormat:=xlExcel8　'<--NG

こっちの置き換え保存というのは、ありえないと思います。
「実行エラー1004」ですから、
NewWkBook.Save 'FileName等は不要

のはずです。他にも疑問点は存在しますが、とりあえず、ここまでにしておきます。

補足

返事が遅れてすいません。
NewWkBook.Save 'FileName等は不要

どのように記述を変えればよいか教えてください。それとPDFに変換し保存する方法も教えていただきたいです。

回答No.1

kybo

単純にNewWkbookオブジェクトに何も代入されていないからではないでしょうか？
例えば保存するのがアクティブブックだとすると以下の様な感じ

NewWkbook.SaveAs FileName:=FileName, FileFormat:=xlExcel8

↓以下に変更

Set NewWkbook = ActiveWorkbook
NewWkbook.SaveAs Filename:=Filename, FileFormat:=xlExcel8

補足

ありがとうございます。代入はしているのですがエラー回避ができません。

OldWkbook.Sheets(Array(StName1)).Copy

Set NewWkbook = ActiveWorkbook

For Each WS In NewWkbook.Worksheets
WS.Unprotect Password:="1111" '←シートに保護を解除

For wIx = 1 To NewWkbook.Sheets(1).Shapes.Count
NewWkbook.Sheets(1).Shapes(1).Delete '←シート1のボタンを削除
Next
NewWkbook.Sheets(1).Name = StName1

WS.Protect Password:="1111" '←シートに保護を掛ける
Next WS

For Each objVBCOMPO In NewWkbook.VBProject.VBComponents
With objVBCOMPO.CodeModule
' コードを削除(全行)
lngLines = .CountOfLines
If lngLines <> 0 Then .DeleteLines 1, lngLines
End With
Next objVBCOMPO

'
FileName = "C:\議事録\" & FileName
'保存
If Dir(FileName) <> "" Then
'##ファイルが既に存在する
If MsgBox("既に指定のファイルが存在します。 置き換えますか?", vbOKCancel, "置き換えの確認") = vbCancel Then
NewWkbook.Close saveChanges:=False
'##保存せずに終了
Exit Sub
End If
'##指定ファイル置き換え保存
NewWkbook.SaveAs FileName:=FileName, FileFormat:=xlExcel8
Else
'##ファイルを新規保存
NewWkbook.SaveAs FileName:=FileName, FileFormat:=xlExcel8
End If
'
NewWkbook.Close saveChanges:=False
Application.DisplayAlerts = True
End Sub