エクセル VBA ワークシートの保存

質問

マクロ初心者です。毎回質問させていただいております。
今回もどうぞよろしくお願いします。

今回は、目的のワークシートを、新たにワークブックに保存するやり方を教えてください。

（状況）
セルD２に、文字が入力してあります。
Ｂ２～Ｍ５０列に、表があります。
また、ワークシートには、マクロを登録したボタンが、４～５個あります。
（Ｐ列ぐらいに。ただ、今後場所を変更する可能性があり、今後増える可能性あり）

※やりたいこと
・Ｂ列～Ｍ列ごと、書式、行列幅、書式をそのまま保存したい。
・保存ボタンを適当に作り、そのボタンを押しらたら、Ｄ２に入力してある文字を、ファイル名として保存したい。（拡張しは、.xlsで）
・名前をつけて保存する時に出てくる、ダイアログ（？）で保存する場所を自由に選びたい
・ボタンは、新規ワークブックで消したい。

それで、作成したマクロは（ネットで調べて、そのままですが・・・）以下です。
エラーが出てしまいます。

お忙しい中、申し訳ありませんがどうぞよろしくお願いします。

Worksheets("点数表").Copy
Application.Dialogs(ActiveWorkbook.SaveAs).Show Arg1:=Range("Ｄ2").Value

Dim i As Long
Dim Shp As Shape

For i = 1 To Sheets.Count
Sheets(i).Activate
For Each Shp In ActiveSheet.Shapes
Shp.Delete
Next Shp
Next i

Range("o:s").Delete

End Sub

回答No.2

TaketsuruOishi · ベストアンサー

いやあ、大変失礼しました。

先の回答では、実際にはファイルはセーブされないようでした。
Application.Dialogs(xlDialogSaveAs).Show ARG1:=Range("D2").Value & ".xls"
で、どうでしょうか？

お礼

TaketsuruOishi　様

たびたびのご回答ありがとうございます。
のぞみ通り、ダイアログが出て、ファイルはセーブ出来るようになりました。

しかし、今度は、D2に入力している文字がファイル名として出てきません
（もちろん、ファイル名を入力すればよいだけなのですが・・・）

また、自分が使っているのが、office2007なのですが、拡張子が（.xlsx)となってしまいます。

お忙しい中、申し訳ありませんが、どうぞよろしくお願いします。

回答No.4

TaketsuruOishi

すみません。私の環境は、EXCEL2003なので、2007の話はよくわかりません。
まあ、知らないのに口出すなってことかも知れませんが。
で、調べたら、EXCEL2007から、標準ファイルフォーマットが変更になったそうで、詳しい事は、参考URLを見て、やってみてください。

　Workbooks(1).SaveAs FileName:=Range("D2").Value, FileFormat:=xlExcel8

多分、こんな感じで、いけるんじゃないかな？

これ以上は、詳しい人の回答を待ちましょう。

参考URL：

http://blog.livedoor.jp/akf0/archives/51114639.html

回答No.3

hondamssaf

Sub test()
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = True Then
ActiveWorkbook.SaveAs .SelectedItems(1) & "\" & Range("D2").Value & ".xls "
End If
End With
End Sub

これで保存できませんか？

回答No.1

TaketsuruOishi

＞Application.Dialogs(ActiveWorkbook.SaveAs).Show Arg1:=Range("Ｄ2").Value
を

Application.GetSaveAsFilename (Range("Ｄ2").Value)

で、どうですか？

お礼

さっそくのご回答ありがとうございます。

ただ、実行しても、ファイルの種類がすべてのファイルになってしまい、一度保存ボタンを押して、その後再度.xlsで保存しなおすという形で保存しなおさなければなりません。

マクロを実行したら、最初から（.xls）ファイルで保存出来るような形で出来ないでしょうか？