• ベストアンサー

取得した名前で、新規起動のエクセルに名称をつけての保存方法

お世話になります 新規にエクセルを立ち上げ、そのエクセルを取得した名称で保存するのはどう書けば良いでしょうか 今現在My Docの下のAAと言うホルダーの中へSn1に入ってくる文字で エクセルを保存したいのですが、どう書けば分かりません。 ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\My Documents\AA:=format ("Sn1")&."xls" よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • hige_082
  • ベストアンサー率50% (379/747)
回答No.1

＞ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\My Documents\AA:=format ("Sn1")&."xls" こう言うことでは？ ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\My Documents\AA\" & Sn1 & ".xls"

masaojisan
質問者

お礼

ありがとうございます 出来ました

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • EXCEL/VBA：WORDファイルの上書き保存を確認する方法

    以下のvbaを実行すると、次のように動作します。　 　test1.xlsを開いて、Atest1.xlsの名前で保存するときに、既にファイルが存在する場合、excelでは上書き保存するか聞いてきます。 　しかし、test1.docを開いて、Atest1.docの名前で保存するときは、いきなり上書き保存されます。 wordの場合も上書き保存するか聞くようにするには、どうしたら良いか教えてください。 Workbooks.OpenText Filename:="test1.xls" ActiveWorkbook.SaveAs Filename:="Atest1.xls" ActiveWindow.Close Dim wordApp As Word.Application Dim wordDoc As Word.Document Dim wordRange As Word.Range Set wordApp = New Word.Application wordApp.Visible = True Set wordDoc = wordApp.Documents.Open(ThisWorkbook.Path & "\test1.doc") Set wordRange = wordDoc.Content wordDoc.SaveAs Filename:="Atest1.doc" wordDoc.Close wordApp.Quit

  • VB.NETにてエクセルファイルの保存方法

    VB.NET 2003を使っています。 以前の6.0の場合　***.SaveAs(FileName:="C:\My Documents\ " & Tex1.Text & " .xls")とすると、テキストBOXの名前で保存が出来ましたが、.NETだとSaveAsが無いようです。どうすれば同じように出来るのでしょうか。

  • エクセル2007でエクセル2003形式で保存しようとしたときに、互換性

    エクセル2007でエクセル2003形式で保存しようとしたときに、互換性チェックのアラートを出さずに保存するには、どのようにマクロ記述すればよいですか。 ActiveWorkbook.SaveAs Filename:= "book1.xls", FileFormat:=xlExcel8 の前か後に何かを記述すれば良いと思うのですが、それがわかりません。 よろしくお願いいたします。

  • エクセル　VBAによる名前を付けて保存？

    エクセルのVBAにて名前(本日日付&NO.)を付けてブックを保存 したいのですが下記のように書込作成しました。 ActiveWorkbook.SaveAs _ Filename:="C:\発注書\" _& "発注済" & Format(Date, "mm.dd") 　　& "(" & ".xls" 上記で　発注済(　　までの名前を付けの保存は出来たのですが （　　のあとに発注書シート内のセルU12にあるNOを入れたいのですが 色々試してみましたがコンパイルエラーが出てしまいます。 セルをどの様に指定すれば宜しいでしょうか？

  • ExcelVBAでファイルの名前をつけて保存

    こんばんは！ Workbooks.Add ChDir "C:\Documents and Settings\test\My Documents\住所録" ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\test\My Documents\住所録\友達.xls", FileFormat _ :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False ActiveWindow.Close として現在開いているファイルから、新規ファイルを作成してデータを写しこみたいと考えているのですが、この書き方だと自分のパソコンでしか出来ないので困っています。 ThisWorkbook.Pathを使うんだろうと思うのですが、どの様に使えばよいのか判らず困っています。 現在開いているファイルと同じフォルダの中に住所録というフォルダを更に作成し、その住所録フォルダの中に新しいファイルを作りたいのですが。。 ご伝授願います。

  • Excel ファイル保存マクロ

    Excel で、[ファイル][名前を付けて保存]を ActiveWorkbook.SaveAs で行うようにしました。 新しいファイルを \My Documents の中の別のフォルダーに保存したいのですが、どうしたらよいでしょうか。教えて下さい。よろしくお願いします。

  • エクセルVBAで　名前を付けて保存の方法、もしくは・・・

    エクセルVBAで名前を付けて保存は、 SaveAsを使って・・・というのは、解っているのですが、 これだと指定した名前しか、保存できないですよね；； 自分的には、エクセルの名前を付けて保存を押すと出てくる、画面を出したいのです。 それか、とあるセルに入っている数字を利用して保存の名前にしたいのですが、どなたかわかる方宜しくお願いいたします。 （本当は下のほうのやり方が良いんですけどね；；） ActiveWorkbook.SaveAs FileName:= ("A1")"月分" 見たいな感じで　VBAを打てたら良いのにな・・・と思っています；； 宜しくお願いいたします。

  • 名前の取得のマクロ

    マクロを使って、ファイルの保存をしようと考えています。 CSVファイルをコピーして、Excelファイルに貼り付けて、名前を付けて保存する。 という流れの処理を考えています。 そこで、CSVファイルの名前を取得して、その名前を Excelファイルの名前にしたいのですが、上手くいきません。 Dim filname As String Application.FindFile filname = ActiveWorkbook.Name Namezu = ActiveWorkbook.Name Cells.Select Selection.Copy Windows("000.xls").Activate Sheets("測定データ").Select ActiveSheet.Paste '名前を付けて保存 　　ActiveWorkbook.SaveAs Filename:= _ "C:\新しいフォルダ\filname.xls", FileFormat:=xlNormal

  • ワークブックに名前をつけて保存するマクロ

    教えてください！！ ワークブックで名前をつけて保存するときのマクロなんですが、 自動記録すると下記のように記述されています。 ActiveWorkbook.SaveAs Filename:="C:\○○○\○○○\□□□□□.xls" この□□□□□の部分はインプットボックスを表示させたいのですが、 こういうマクロを組むことはできますか？

  • ＥＸＣＥＬマクロで上書きメッセージ無しで保存する方法

    ＥＸＣＥＬマクロで上書きメッセージ無しで保存する方法をお願いします ActiveWorkbook.SaveAs "C:\Documents　andSettings\Nakatani\MyDocuments\Book1.xls" の様にするとすでにファイルがある場合上書きメッセージが出ます メッセージを出さずに上書きするプログラミングを教えて下さい 宜しくお願いします

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する