Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11057 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【18354】VBAで名前を付けて保存 いるか 04/9/21(火) 20:50 質問[未読]
【18355】Re:VBAで名前を付けて保存 IROC 04/9/21(火) 20:55 回答[未読]
【18356】Re:VBAで名前を付けて保存 ちゃっぴ 04/9/21(火) 20:57 回答[未読]
【18363】VBAで名前を付けて保存 いるか 04/9/22(水) 9:32 質問[未読]
【18367】Re:VBAで名前を付けて保存 IROC 04/9/22(水) 10:31 回答[未読]
【18381】Re:VBAで名前を付けて保存 いるか 04/9/22(水) 14:31 質問[未読]
【18382】Re:VBAで名前を付けて保存 IROC 04/9/22(水) 14:34 回答[未読]
【18395】Re:VBAで名前を付けて保存 いるか 04/9/22(水) 16:29 お礼[未読]
【18397】Re:VBAで名前を付けて保存 IROC 04/9/22(水) 16:33 回答[未読]
【18401】Re:VBAで名前を付けて保存 いるか 04/9/22(水) 16:59 質問[未読]
【18405】Re:VBAで名前を付けて保存 IROC 04/9/22(水) 18:46 回答[未読]
【18410】Re:VBAで名前を付けて保存 いるか 04/9/22(水) 19:53 質問[未読]
【18411】Re:VBAで名前を付けて保存 IROC 04/9/22(水) 20:16 回答[未読]
【18421】Re:VBAで名前を付けて保存 いるか 04/9/23(木) 11:51 お礼[未読]
【18354】VBAで名前を付けて保存
質問  いるか  - 04/9/21(火) 20:50 -
引用なし
パスワード
   エクセルVBAで名前を付けて保存は、SaveAsを使って・・・というのは、解っているのですが、これだと指定した名前しか、保存できないですよね；；
とあるセルに入っている数字を利用して保存の名前にし、保存先を指定したいのですが、どなたかわかる方宜しくお願いいたします。
【18355】Re:VBAで名前を付けて保存
回答  IROC  - 04/9/21(火) 20:55 -
引用なし
パスワード
   >保存先を指定したいのですが
どのようにですか？


Saveas "c:\test\" & worksheets("Sheet1").range("A1").Value & ".xls"

でセルを参照出来ます。
【18356】Re:VBAで名前を付けて保存
回答  ちゃっぴ  - 04/9/21(火) 20:57 -
引用なし
パスワード
   >エクセルVBAで名前を付けて保存は、SaveAsを使って・・・というのは、解っているのですが、これだと指定した名前しか、保存できないですよね；；
>とあるセルに入っている数字を利用して保存の名前にし、保存先を指定したいのですが、どなたかわかる方宜しくお願いいたします。

変数を使えばいいだけです。

変数の使い方勉強してください。

例）

Dim A As String
Dim B As String

A = Range("A1").Value
B = ThisWorkbook.Path
ThisWorkbook.SaveAs = B & "\" & A & ".xls"
【18363】VBAで名前を付けて保存
質問  いるか  - 04/9/22(水) 9:32 -
引用なし
パスワード
   IROC様、ありがとうございます。
ちゃっぴ様、変数ですね、ありがとうございます ¢(.. )ﾒﾓﾒﾓ。

最近VBAを使い始めたばかりで、右も左も・・・です。

今は、こんな感じです。
Dim fName
　fName = Application.GetSaveAsFilename( _
　　　　　　fileFilter:="Excel(*.xls), *.xls")
　If fName <> False Then
　　　MsgBox "保存するファイル :" & Filename
　　
これにセルの文字列を保存する名前にし、特定のフォルダに保存をしたかったのです。（これだと全然だめですね、お恥ずかしい）

自動記録をしながらいろいろとやっていたのですが、頭が爆発してしまって（(^_^;)
【18367】Re:VBAで名前を付けて保存
回答  IROC  - 04/9/22(水) 10:31 -
引用なし
パスワード
   GetSaveAsFilename　を使うのですか？

ファイル名はセルから取得して、
フォルダは、ダイアログから選択させたいのでしょうか？


Dim Obj As Object
Dim myDir As String

　　Set Obj = CreateObject("Shell.Application"). _
　　BrowseForFolder(0, "フォルダを選択してください", 0)

　　If Obj Is Nothing Then Exit Sub
　
　　myDir = Obj.Items.Item.Path

　　・・・.Saveas myDir & "\" & Worksheets("Sheet1").Range("A1").value & ".xls"
【18381】Re:VBAで名前を付けて保存
質問  いるか  - 04/9/22(水) 14:31 -
引用なし
パスワード
   IROC様、ありがとうございます。

ネットや自動記録でいろいろ試しながらしていたら、GetSaveAsFilenameに辿り着いたのです。（急ぎのために勉強をろくにせずにやっているもので・・・）

いろいろと試行錯誤しながらしているのですが、Bookを新規保存、上書き保存という形で保存をしていきたいのですが、上書き保存はどうにかできたのですが、新規保存がどうも思ったようにいかなくて。(ToT)

相変わらず頭が爆発しているもので、セルの文字列から保存する名前にし、新しいフォルダを作成してBookを保存しようかとも考えています。

爆発しているもので、自分が何をしたいのか分からなくなっています。
乱筆お許しください。
【18382】Re:VBAで名前を付けて保存
回答  IROC  - 04/9/22(水) 14:34 -
引用なし
パスワード
   >いろいろと試行錯誤しながらしているのですが、Bookを新規保存、
>上書き保存という形で保存をしていきたいのですが、
>上書き保存はどうにかできたのですが、新規保存

別フォルダにバックアップでも保存したいのでしょうか？

SaveCopyAs メソッドは使えませんか？
【18395】Re:VBAで名前を付けて保存
お礼  いるか  - 04/9/22(水) 16:29 -
引用なし
パスワード
   >別フォルダにバックアップでも保存したいのでしょうか？

はい！その通りなのです。

SaveCopyAs???というレベルなんですよ（TOT）

少し勉強してきます。
【18397】Re:VBAで名前を付けて保存
回答  IROC  - 04/9/22(水) 16:33 -
引用なし
パスワード
   保存先フォルダは固定ですか？
それともユーザーが選択？
【18401】Re:VBAで名前を付けて保存
質問  いるか  - 04/9/22(水) 16:59 -
引用なし
パスワード
   ▼IROC さん、本当にありがとうございます。

今、考えているのは「新しいフォルダを作成し保存」「コピーを保存」の２通りです。

ActiveWorkBook.SaveCopyAs filename="ActiveSheet.Range("A1")"

これで試したのですが、全く・・・・・。
【18405】Re:VBAで名前を付けて保存
回答  IROC  - 04/9/22(水) 18:46 -
引用なし
パスワード
   >今、考えているのは「新しいフォルダを作成し保存」
mkdirステートメントで出来ます。


「コピーを保存」の２通りです。
SaveCopyAsメソッドで出来ます。


>ActiveWorkBook.SaveCopyAs filename="ActiveSheet.Range("A1")"
>これで試したのですが、全く・・・・・。

私の掲載したサンプルを、しっかり見て下さい。
value プロパティも抜けています。
文字列は "" で囲みますが、構文は囲んでは行けません。
【18410】Re:VBAで名前を付けて保存
質問  いるか  - 04/9/22(水) 19:53 -
引用なし
パスワード
   ▼IROC さん、失礼いたしました。
>私の掲載したサンプルを、しっかり見て下さい。
>value プロパティも抜けています。
>文字列は "" で囲みますが、構文は囲んでは行けません。

ActiveWorkBook.SaveCopyAs filename=ActiveSheet.Range("A1").value&".xls"

成功しましたが、保存先がマイドキュメントになっているんです。
【18411】Re:VBAで名前を付けて保存
回答  IROC  - 04/9/22(水) 20:16 -
引用なし
パスワード
   >ActiveWorkBook.SaveCopyAs filename=ActiveSheet.Range("A1").value&".xls"
>成功しましたが、保存先がマイドキュメントになっているんです。


以下のようにパスを指定してください。

ActiveWorkBook.SaveCopyAs _
filename= "c:\test\" & ActiveSheet.Range("A1").value & ".xls"
【18421】Re:VBAで名前を付けて保存
お礼  いるか  - 04/9/23(木) 11:51 -
引用なし
パスワード
   IROCさん、大変お世話になりました。

やっと、完成しました。まだまだ勉強不足ですが、これからもご教授お願いいたします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11057 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free