[[20060518182937]]　『ﾌｧｲﾙ名を自動生成したい』（たくみ）　ページの最後に飛ぶ

『ﾌｧｲﾙ名を自動生成したい』（たくみ）

保存するファイル内のセルデータ値をコピーしてファイル名にしたいと考えています。

例）ファイル名＝"ｾﾙG1:H1の値","ｾﾙG2:H2の値","B14の値".xls

※ｾﾙG1:H1とｾﾙG2:H2は結合されています。

このような事は可能なのでしょうか？

多分、出来ると思っているのですが…どなたか教えて下さいませ。

 =g1&g2&b14&".xls"
 ではあきまへんか？
 　　　　　（弥太郎）

弥太郎さん有難う御座います。

ExcelのSheet上で試行してみたら大丈夫でしたが…

デスクトップに[名前を付けて保存]する時にファイル名を自動生成して、保存先を選べるようにしたいと思っております。

試しにマクロ記録して弥太郎さんのｱｲﾃﾞｨｱを組み込んでみましたが、構文エラーになってしまいます。

どこを修正したら良いのでしょうか？

Sub Macro2()

    ActiveWorkbook.SaveAs Filename:= _
        "C:\Desktop _
        \[Iraisho.xls]Sheet1!G1&[Iraisho.xls]Sheet1!G2&[Iraisho.xls]Sheet1!B14" _
        , FileFormat:=xlNormal , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    ActiveWindow.Close
End Sub

（たくみ）

 弥太郎さんではありませんが・・・
 >      "C:\Desktop _
 >      \[Iraisho.xls]Sheet1!G1&[Iraisho.xls]Sheet1!G2&[Iraisho.xls]Sheet1!B14" _
ここを
ActiveWorkbook.Path & "\" & Range("G1").Value & Range("G2").Value & Range("B14") & ".xls"
こんな感じにしたらいかがですか？
(ROUGE)

Excellent！

ROUGEさん、有難う御座いました。

（たくみ）

コメント返信：

[ 一覧(最新更新順) ]

[[20060518182937]] 『ﾌｧｲﾙ名を自動生成したい』（たくみ） ページの最後に飛ぶ

[[20060518182937]]　『ﾌｧｲﾙ名を自動生成したい』（たくみ）　ページの最後に飛ぶ