[[20140919225057]] 『セルの値をファイル名に加えて保存する。』(haruharu) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『セルの値をファイル名に加えて保存する。』(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

Mook様 カリーニン様
早々のご回答ありがとうございます。
イメージ通りにできました。
感謝致します。
(haruharu) 2014/09/20(土) 00:37

 >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.