Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10760 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   ありがとうございます。
さっそく試してみます
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10760 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free