Excel VBA質問箱 IV

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

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


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

【36077】シートをコピーして別名保存【至急】 harama 06/3/20(月) 15:11 質問[未読]
【36081】Re:シートをコピーして別名保存【至急】 Kein 06/3/20(月) 15:42 回答[未読]
【36098】Re:シートをコピーして別名保存【至急】 harama 06/3/20(月) 18:58 お礼[未読]
【36084】Re:シートをコピーして別名保存【至急】 とおりすがり 06/3/20(月) 16:45 発言[未読]
【36099】Re:シートをコピーして別名保存【至急】 harama 06/3/20(月) 19:04 発言[未読]
【36100】Re:シートをコピーして別名保存【至急】 とおりすがり2号 06/3/20(月) 19:12 発言[未読]
【36112】Re:シートをコピーして別名保存【至急】 よろずや 06/3/21(火) 13:02 発言[未読]

【36077】シートをコピーして別名保存【至急】
質問  harama E-MAIL  - 06/3/20(月) 15:11 -

引用なし
パスワード
   不慣れなため試行錯誤しておりますが、
行き詰っていますのでどなたかお助けください。

複数シートから1枚のシートをコピーして
別名を付けて保存をしたいと思っています。

シート名は、コピーしたシートのセルの値(A1)
とし、指定ディレクトリィ(¥C¥テスト)と
したい場合、どのようにコードを変更すれば
良いでしょうか?

アドバイス頂けると大変助かります。


Dim myfolder As String, mycode As String
      Const mypath As String = "C:\テスト\"    
     
      Sheets("利用明細(部門)").Copy
     
     Dim foldnm As String
     
     mycode = Sheets("利用明細(部門)").Range("A2") & "-"
    
     ActiveWorkbook.SaveAs Filename:=mypath & mycode & ".xls"
     ActiveWorkbook.Close

【36081】Re:シートをコピーして別名保存【至急】
回答  Kein  - 06/3/20(月) 15:42 -

引用なし
パスワード
   >シート名は、コピーしたシートのセルの値(A1)
シート名を変更したいのでしょーか ? あと、提示されているコードでは A2 の値と
ハイフンで名前(何の?)を作成しているようですが・・。
仮に「固定した保存先フォルダー + A1 の入力値」を保存パスにするとすれば

  Dim FnM As String
  Const SvFol As String = "C:\テスト\"

  If IsEmpty(Range("A1").Value) Then Exit Sub
  FnM = SvFol & Range("A1").Value & ".xls"
  If Dir(FnM) <> "" Then
   MsgBox "その名前のファイルは既に作成されています", 48
   Exit Sub
  End If
  ActiveSheet.Copy
  ActiveWorkbook.Close True, FnM

などとすれば良いでしょう。

【36084】Re:シートをコピーして別名保存【至急】
発言  とおりすがり  - 06/3/20(月) 16:45 -

引用なし
パスワード
   ▼harama さん:
【至急】ってあなたの都合だけで掲示板を見ている人は動いてるわけじゃないんだから辞めたほうがいいと思いますよ。
しかも【至急】とかタイトルにつけておきながらまだレスをしてないところを見るとそれほど急いでないんじゃないって思う人は多いと思いますよ。

【36098】Re:シートをコピーして別名保存【至急】
お礼  harama E-MAIL  - 06/3/20(月) 18:58 -

引用なし
パスワード
   ▼Kein さん:
有難うございました。
お蔭様で完成しました。

今後、自分で出来るように精進します。
これに懲りずよろしくお願いしたします。

【36099】Re:シートをコピーして別名保存【至急】
発言  harama E-MAIL  - 06/3/20(月) 19:04 -

引用なし
パスワード
   ▼とおりすがり さん:
はい。わかりました。

ただ、お答えしていただいた人に言われるならば
深く反省しますが、ただ注意するだけの人には
他のスレッドでも拝見しますが憤りを感じることがあります。

お礼のメールが遅いとの事ですが、人それぞれ
試す時間がかかるのは仕方が無いかと思います。

今後「至急」という文字は決して使いませんが
それだけで、注意するというのも人間が狭いと思います。

不快でしたら、スルーしてください。

【36100】Re:シートをコピーして別名保存【至急】
発言  とおりすがり2号  - 06/3/20(月) 19:12 -

引用なし
パスワード
   呆れてものも言えんな。
ネット検索したらすぐに分かることだが。

「至急」という言葉は、「マルチポスト」と同じく
ネットでは忌み嫌われる言葉です。

http://www.geocities.co.jp/SiliconValley/5634/t82B5_0003.html#2027

よくQ&Aサイトで見られるのが、耳に痛い意見には猛反発し、答えを全部
書いてくれる人にだけ礼を言う、というのは逆に質問者の了見の狭さ、人間
的な未熟さを感じさせます。

【36112】Re:シートをコピーして別名保存【至急】
発言  よろずや  - 06/3/21(火) 13:02 -

引用なし
パスワード
   ▼とおりすがり さん:
>▼harama さん:
>【至急】ってあなたの都合だけで掲示板を見ている人は動いてるわけじゃないんだから辞めたほうがいいと思いますよ。
>しかも【至急】とかタイトルにつけておきながらまだレスをしてないところを見るとそれほど急いでないんじゃないって思う人は多いと思いますよ。

私はそうは思いません。

【至急】と書いてあったら、あらゆる手段で解決策を探してるハズ。
      ↓
既にどこかで解決してる可能性が高い。
      ↓
回答を付けてもナシのつぶてになる可能性が高い。
      ↓
だから、回答は付けない。

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