エクセルマクロでブック作成

新規ブックを作成したいのです。
Sub aaa()
Workbooks.Add.SaveAs Filename:="C:\temp\aaa.xls"
End SubEnd Sub
これで出来るのですが、保存場所が問題なんです。
上記だとC:\temp\ですね。

いろいろな環境で使うので保存場所を「 this wookbook のあるフォルダ」に指定したいのですが、出来ますでしょうか？
よろしくお願いします。

No.1 回答者： hige_082 回答日時： 2009/10/27 00:09

＞Workbooks.Add.SaveAs Filename:="C:\temp\aaa.xls"

Workbooks.Add.SaveAs Filename:=thisworkbook.path & "\aaa.xls"

以上　参考まで

この回答へのお礼

ありがとうございます。
できました！

あと・・・できれば、ファイル名を thisworkbook の range("a1")を使う、なんて出来ませんか？

お礼日時：2009/10/27 00:55

No.2 回答者： KURUMITO 回答日時： 2009/10/27 09:21

例えば次のようにします。

Sub aaa()
NAMAE = Sheets("Sheet1").Range("A1")
ThisWorkbook.SaveAs Filename:=NAMAE
End Sub

No.3 ベストアンサー 回答者： hige_082 回答日時： 2009/10/28 23:17

こう言う事かな？

＞ファイル名を thisworkbook の range("a1")を使う
＞Workbooks.Add.SaveAs Filename:=thisworkbook.path & "\aaa.xls"
Workbooks.Add.SaveAs Filename:=thisworkbook.path & "\" & ThisWorkbook.Worksheets("Sheet1").Range("A1").Value

シート名が必要なのですが分らないので「Sheet1」としています
長くなるのでまとめてみました

Sub aaa()
Dim fName As String
With ThisWorkbook
fName = .Path & "\" & .Worksheets("Sheet1").Range("A1").Value
End With
Workbooks.Add.SaveAs Filename:=fName
End Sub

これで少しは、読みやすくなったかな？

この回答へのお礼

できました。
ありがとうございます！！

お礼日時：2009/10/29 23:12