EXCEL2000でのVBAについて
お世話になります。
EXCEL2000のVBで下記のことをしたいのですが、うまく出来ないところがあり対処方法を教えて頂きたいです。
(1)アクティブブックの名前を取得
(2)ブックのセルA1の値を取得
(3)保存ダイアログでA1の値をファイル名にし保存
(4)保存したファイルを閉じる
(5)基のアクティブブックを再度開く
以上です。
今できていないのは(1)と(5)です。
基のアクティブブックの名前をプログラム上に直接入力する分には出来るのですが、
ファイル名が変更になった時に、いちいちVBを書き換えるのが面倒なだけです…
コードを提示しますので、ご教授願えればと思います。
Sub 保存()
Dim ファイル名 As String, フォルダ名 As Object, フォルダ選択 As Object, ファイル名2 As Workbook
Set ファイル名2 = ActiveWorkbook
ファイル名 = Range("A1").Value
Set フォルダ選択 = CreateObject("Shell.Application")
Set フォルダ名 = フォルダ選択.BrowseForFolder(0, "保存フォルダを選んでください", 1)
ActiveWorkbook.SaveAs Filename:=フォルダ名.items.Item.Path & "\" & ファイル名 & ".xls"
MsgBox ファイル名 & ".xls", vbOKOnly, フォルダ名 & "に保存しました"
Workbooks.Open "C:\test\" & ファイル名2
Workbooks(ファイル名 & ".xls").Close
End sub
ファイル名の取得が間違っていると思うのですが、ネットなどで調べてみましたが、よくわかりませんでした。
お礼
ありがとうございました。 おかげで、何とか作成できそうです。 あと、ご忠告ありがとうございます。 今後はコードを載せておこうと思います。