マンガでよめる痔のこと・薬のこと

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

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

このQ&Aに関連する最新のQ&A

A 回答 (3件)

こう言う事かな?


>ファイル名を 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

これで少しは、読みやすくなったかな?
    • good
    • 0
この回答へのお礼

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

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

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


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

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


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

以上 参考まで
    • good
    • 0
この回答へのお礼

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

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング