[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『セルの値をファイル名に加えて保存する。』(haruharu)
ブックからシートを取り出して保存する際に特定のセルの値をファイル名に加えて保存したいのですが、
以下のとろこまで作りセルの値を付けて保存する方法がわかりません。どなたか教えて下さい。
Sub 保存()
Sheets("Sheet1").Select
ActiveSheet.Buttons.Add(875.25, 22.5, 24.75, 17.25).Select
ActiveSheet.Buttons.Add(874.5, 55.5, 24.75, 17.25).Select
Sheets("Sheet1").Copy
ActiveWorkbook.SaveAs
ここからが良く判りません。、"作業依頼"+セルのA1というファイル名にして保存したいのですが…
< 使用 Excel:Excel2013、使用 OS:Windows7 >
文字列連結は「&」、セルの値は Range("A1").Value ですので、 ActiveWorkbook.SaveAs ThisWorkbook.Path & "\作業依頼" & Range("A1").Value & ".xlsx" のようなことでしょうか。
(Mook) 2014/09/19(金) 23:38
ぶつかりましたがそのままアップします。
保存先はどこになるのでしょう?
>ActiveWorkbook.SaveAs
ActiveWorkbook.SaveCopyAs ではなくて ActiveWorkbook.SaveAs でいいのでしょうか?
ThisWorkbook ではなくて ActiveWorkbook でいいのでしょうか?
保存パスの指定の仕方は↓のようなかんじになります。
ActiveWorkbook.SaveAs "フォルダのパス" & "\" & "作業依頼" & Activesheet.Range("A1").Value & ".拡張子" (カリーニン) 2014/09/19(金) 23:45
>ThisWorkbook >ではなくて >ActiveWorkbook >でいいのでしょうか?
Sheets("Sheet1").Copy の後ですので ActiveWorkbook で問題なかったですね。 失礼しました。 (カリーニン) 2014/09/20(土) 00:47
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.