Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


10758 / 13644 ツリー ←次へ | 前へ→

【19995】保存先の移動 生はげ 04/11/23(火) 0:42 質問[未読]
【19996】Re:保存先の移動 チーコ 04/11/23(火) 1:02 回答[未読]
【19998】Re:保存先の移動 生はげ 04/11/23(火) 1:38 質問[未読]
【20002】Re:保存先の移動 かみちゃん 04/11/23(火) 8:27 回答[未読]
【20030】Re:保存先の移動 生はげ 04/11/24(水) 21:44 お礼[未読]

【19995】保存先の移動
質問  生はげ  - 04/11/23(火) 0:42 -

引用なし
パスワード
   保存先を移動させる方法はないでしょうか。
よろしくお願いいたします。

【19996】Re:保存先の移動
回答  チーコ  - 04/11/23(火) 1:02 -

引用なし
パスワード
   ▼生はげ さん:
***保存先の選択なら以下の文で可能ですが***
Dim FName as String
 FName =Application.GetSaveAsFilename( _
     FileFilter:="Excelファイル,*.xls,すべてのファイル,*.*")
 If FName="False" Then Exit Sub
 ActiveWorkbook.SaveAs Filename:=FName

***ブックの保存なら以下の文でパスを変えれば可能です***
ActiveWorkbook.SaveAs Filename:="E:\Book1.xls"


>保存先を移動させる方法はないでしょうか。
>よろしくお願いいたします。

【19998】Re:保存先の移動
質問  生はげ  - 04/11/23(火) 1:38 -

引用なし
パスワード
   ▼チーコ さん:
回答ありがとうございます

現在の保存先から別のフォルダに保存したいです。
この時、元のフォルダにはブックを残したくないです。
回答のだと、元のフォルダに残ってしまいますよね、たぶん

よろしくお願いいたします。
>▼生はげ さん:
>***保存先の選択なら以下の文で可能ですが***
>Dim FName as String
> FName =Application.GetSaveAsFilename( _
>     FileFilter:="Excelファイル,*.xls,すべてのファイル,*.*")
> If FName="False" Then Exit Sub
> ActiveWorkbook.SaveAs Filename:=FName
>
>***ブックの保存なら以下の文でパスを変えれば可能です***
>ActiveWorkbook.SaveAs Filename:="E:\Book1.xls"
>
>
>>保存先を移動させる方法はないでしょうか。
>>よろしくお願いいたします。

【20002】Re:保存先の移動
回答  かみちゃん  - 04/11/23(火) 8:27 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>現在の保存先から別のフォルダに保存したいです。
>この時、元のフォルダにはブックを残したくないです。

もしかして、すでにあるファイルを移動(切り取り、貼り付け)をしたいということですか?
Nameステートメントを使えばできます。
詳しくは、ヘルプ情報をお調べください。使用例とともに載っています。

>回答のだと、元のフォルダに残ってしまいますよね、たぶん

いいえ。
ActiveWorkbook.SaveAs Filename:=FName
の部分を
ActiveWorkbook.SaveAs Filename:="E:\Book1.xls"
とすれば、いいのですが、それだったら、初めから「名前を付けて保存」ダイアログで保存先を変えておけばいいような気もします。

【20030】Re:保存先の移動
お礼  生はげ  - 04/11/24(水) 21:44 -

引用なし
パスワード
   ありがとうございます。
さっそく試してみます

10758 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free