[[20050225143722]]　『自動的に名前を付ける』（さ）　ページの最後に飛ぶ

『自動的に名前を付ける』（さ）

実行したい事：あるシートのA1セルに附番されている（この番号も、別のシートからコピーして値のみ貼り付け、しています）のですが、このシートを①新しいブックにコピーして、②番号をブックの名前にして保存、したい。

過去ログをみて挑戦してみましたが、エラーになってしまいました。超初心者ですみません。試してみたのは、
activesheet.name="見積書"&activesheet.range("A1").value

です。
セルの("A1")のところが黄色くなっていました。

最終的にはこれを
Activeworkbook.SaveAs Filename:=_

　　　
　　　　"\C\xxxx\見積書\（見積書0005）.xls"_

       , FileFormat:xlNormal, Password:="",WriteResPassword:="",_
       ReadOnlyREcommended:=False, CreateBackup:=False
と組み合わせてやって見たいのですが。
基本的な事が全然わかっていないので申し訳ないですが、どなたかご教示ください。よろしくお願い致します。

 ActiveSheet.Name = "見積書" & ActiveSheet.Range("A1").Value

 で問題ないようですが、セルA1には何が入っていますでしょうか。
 シート名に使えない　/　などは入っていませんか。

 （川野鮎太郎）

お返事ありがとうございます。
セルA1には、別のブックから参照してきた採番をコピーして貼り付けています。

ただ、セルの書式設定で表示形式を「ユーザー定義："NO."@」としておりました。
もしかしてこれが原因でしょうか。

ちなみにこのマクロは、単純に原紙に別のブックの最終行を検索して、
最終行に書いてある各列の情報をコピーして張り付ける・・、というようなマクロです。

セルの書式設定は、マクロで行っているわけではなく、原紙に設定してしまったのです。
なにしろ初心者なので・・・。
すみません。

なにか別の方法があれば教えていただきたくお願いします。（さ）

 上でも書きましたけど、＞セルA1には何が入っていますでしょうか。
 A1のセルの値で、手入力ならシート名は変更できますでしょうか。

 （川野鮎太郎）

すみません・・。どう説明して良いのかわからなくて・・。

A1のセルには"A-0003S" という形で番号が入っています。手入力だったらシート名の変更は可能でした。
（さ）

 Excel2000だけど、問題ないみたいですよ？
もう、すでにその名前のシートがあるとか？？
（SoulMan）

そうですか・・・。自分でも何がだめなのかわからないんです・・・。
もう一度やってみます。

ありがとうございます。

と、ところで最終的にはこのシートを新しいブックに（A-0003Sという名前をつけて）保存したいのですがそうするには、どうすれば良いでしょうか。図々しいですが教えていただきたく・・。

 こんな感じでどうでしょうか？
Option Explicit
Sub てすと()
Dim MyPath As String
Dim MyFileName As String
MyPath = ThisWorkbook.Path
ActiveSheet.Name = "見積書" & ActiveSheet.Range("A1").Value
MyFileName = ActiveSheet.Name
ActiveWorkbook.SaveAs Filename:=MyPath & "\" & MyFileName & ".xls"
End Sub
（SoulMan）

Soul Man さんありがとうございました！
超初心者ですが、自分でもマクロが組める！って少し楽しくなってきました。

さらに勉強して頑張ります！ありがとうございました！（さ）

コメント返信：

[ 一覧(最新更新順) ]

[[20050225143722]] 『自動的に名前を付ける』（さ） ページの最後に飛ぶ

[[20050225143722]]　『自動的に名前を付ける』（さ）　ページの最後に飛ぶ