[Excel] ファイル名を変数指定して保存するマクロ

Excelで、セルA1の値の名前でファイルを保存したいのですが、マクロがうまくかけません。
ご存知の方、教えて下さい。

No.2 ベストアンサー 回答者： diashun 回答日時： 2005/11/02 16:49

簡単ですが、下記で可能です。

Sub ファイル保存()
ThisWorkbook.SaveAs Cells(1, 1).Value
End Sub
■指定のフォルダに格納する場合は、ファイルメニュ「ツール」→「オプション」の「全般」タブの「カレントフォルダ名」にフォルダを指定してください。

No.3 回答者： Wendy02 回答日時： 2005/11/02 18:30

こんばんは。

簡単ところでは、こんな感じかな？

Sub SaveMyBook()
Dim FileName As String
Dim myPath As String
'------------------------------------
'決まったフォルダがあれば、ここに入れる
myPath = ThisWorkbook.Path
'------------------------------------
FileName = ActiveSheet.Range("A1").Value
If FileName <> "" Then
　If InStr(FileName, ".xls") = 0 Then
　　FileName = FileName & ".xls"
　End If
End If
Application.DisplayAlerts = False
　　ThisWorkbook.SaveAs myPath & "\" & FileName
Application.DisplayAlerts = True
End Sub

No.1 回答者： laputart 回答日時： 2005/11/02 15:53

Sub Macro1()

Dim FLname As String
Range("A1").Select
FLname = ActiveCell.Value & ".xls"
ChDir "C:\FolderName"
ActiveWorkbook.SaveAs Filename:=FLname
End Sub

上記の例では変数FLname にA1の値を求め、
Chdirでフォルダー名を変更（この場合はCのFolderNameにしてありますが環境の応じて変更
次にFLname のファイル名で保存します。
但し
●上書してもよいかのチェックはしていません
●複数のシートに対応していません。
後は工夫してください