• ベストアンサー

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

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

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

  • ベストアンサー
  • argument
  • ベストアンサー率63% (21/33)
回答No.1

はじめまして　77TAKETAKA　さん この問題は恐らく質問するより検索したほうが回答に早くたどりつけたと思います。まぁですが何をもって手間とするかは自由ですね。 ActiveWorkbook.SaveAs _ Filename:="C:\発注書\" & "発注済" & Format(Date, "mm.dd") & "(" & Range("U12").Value & ").xls" こう記述してください 発注済09.23(なんばー).xls などというように保存できると思います。 あともうひとつ気づいていただきたいのは「_(アンダースコア)」は次行と処理を続けて行うという意味ですので Filename:="C:\発注書\" _& "発注済" の　_&　となっている部分が問題なのかも知れません。 セルの指定の仕方： セルの値はcells(数値,数値).valueという指定とrange("セル番地").valueという指定方法があります。 まぁ相対でセルを扱わないならrangeで十分だと思われます。 処理違い・補足・追加処理等必要でしたらいってください。

77TAKETAKA
質問者

お礼

ありがとうございます。出来ました。 検索は行ったのですが、検索項目が悪かったのか なかなかたどりつけなかったため質問させていただきました。 「_(アンダースコア)」については 実際行おうとしているブックの保存先、名前を 加工してコピーしたためです。 もう少し確認して質問文面を作成すればよかったと 反省しております。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. 画像・動画・音楽編集

関連するQ&A

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

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

  • VBA　前月の月の名前でブックを保存

    VBA　前月の月の名前でブックを保存 お世話になっております。 上記の通りです。 今月の月で名前は保存できるのですが、先月の月にすることは可能なのでしょうか？ ＊001.東京　7月分 　　　↓ ＊001.東京　6月分 //////現在使用しているコード//////// Dim Filename As String Filename = Range("K1") & "." & Range("A3") & Format(Date, "mm""月分") & ".xls" ActiveWorkbook.SaveAs "保存先" & Filename ActiveWindow.Close 宜しくお願い致します。

  • エクセル2010で2003形式でマクロ保存したい

    マクロ初心者ですので、よろしくお願いいたします。類似例が無いかと検索しましたが見つからないので質問いたします。 会社のパソコンがエクセル2003から2010に変更されました。しかし、XP環境でエクセル2003しか使えないソフトがあり、そのパソコンも残してあります。2010で作成したマクロブック（xlsm）が、2003でも使えるようファイル名を付けてエクセル2003（xls）で保存できるマクロを作成したのですが、うまくいきません。 2010で保存できた構文に、「m」を削除し、Excel8の構文を付加するのですが、構文「FileFormat:」がハイライトされ、コンパイルエラーと表示され、「名前付き引数がありません」となります。 ActiveWorkbook.SaveCopyAs Filename:=FPATH & "\" & book3 & ".xls", _ FileFormat:=xlExcel8　 「ActiveWorkbook.SaveAs」では拡張子が合わないとなりますが、保存はできています。「ActiveWorkbook.SaveCopyAs」で名前付け保存したいのですが、上記のエラーとなります。 よろしくご回答をお願いいたします。

  • Excel　VBA　で困っています。

    Excel　VBA　で困っています。 下記のプログラムで、「名前を付けて保存」→「キャンセル」 を選択した場合のエラーは回避できたのですが、 「名前を付けて保存」→「保存」→「同じ名前のファイルが既に ありますが置き換えますか？」→「いいえ（またはキャンセル）」 の時にエラーが出てしまいます。 どう直したら良いでしょうか。 よろしくお願いいたします。 Public Sub SaveBook() Dim myBook As Variant '「名前を付けて保存」ダイアログ myBook = Application.GetSaveAsFilename("test.xls", _ "Excelファイル,*.xls", , "Excelブックを保存") 'キャンセル時の処理 If StrConv(myBook, vbUpperCase) = "FALSE" Then Exit Sub 'ブックの保存 ActiveWorkbook.SaveAs Filename:=myBook End Sub

  • ExcelのVBAでブックの保存

    ExcelのVBAでブックを追加し保存を行っています。 その際、保存は、どこに行うのがよいのですか bookですか。sheetですか。 両方で、SaveAsができまが、使い分けがあるのでしょうか。 どのように使い分けするのでしょうか。 Workbooks.Add ActiveSheet.Name = "サンプル" ActiveSheet.SaveAs OutFileName ActiveWorkbook.SaveAs OutFileName ActiveWorkbook.Close

  • VBAで名前を付けて保存

    テキストファイルをエクセル出力する処理を考えております。 テキストファイルを開き、名前をつけて保存する処理が上手くできません。 シート１のある２つのセルに入力パスと出力パスが設定されているとします。 例えばcells(4,4)に入力パスが設定されており（￥～～～.txt） cells(6,4）に出力パスが設定されており（￥～～～xls） 上記のような状態とします。 cells(4,4)にあるテキストファイルを開き、 それを拡張子をエクセルにしてcells(6.4)にある出力先に名前をつけて保存をしたいのです。 オープンする場合は Workbooks.OpenText Filename:=Workbooks("○○.xlsm").Sheets(1).Cells(4, 4).Value & ".TXT" で上手くいきました。 しかし保存の際に ActiveWorkbook.SaveAs Filename:=Sheets(1).Cells(6, 4).Value & ".xls" で実行するとエラーがでてしまいます。 どうすれば良いでしょうか。

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

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

  • Excelシート１シートのみを指定フォルダへ保存

    Excelのシート1のみを、本日の日付と名前の入ったセル（I7）を保存する時の名前にして指定したフォルダへ保存したいと思っています。 1、シートは本日の日付+I7セルに入っている値を名前にする。 2、フォルダはCではなくV:\○○\○○\○○\○○\○○\○○\○○に格納 3、シート1以外のシート2、シート3は保存せず閉じる 4、格納後○○に保存しました。と表示 試行錯誤し、下記のように記述してみたのですが、 Sub Macro1() 'Option Explicit Sub Sample() Dim xSheet As Worksheet Dim myFile As String Dim myName As String Set xSheet = ActiveSheet ThisWorkbook.Worksheets("シート名").Copy 'myName = ActiveWorkbook.Worksheets(1).Name 'myFile = ThisWorkbook.Path & "\" & myName & ".xls" myFile = ThisWorkbook.Path & "\" & xSheet.Range("I7").Value & ".xls" Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=myFile Application.DisplayAlerts = True ActiveWorkbook.Close End Sub 日付を指定して保存 Sub test() 　Dim Filename As String 　Filename = Format(Date, "yyyy年mm月dd日") & ".xls" 　ActiveWorkbook.SaveAs "C:\My Documents\" & Filename End Sub 日付とI7セルの名前を合せてブックの名前としたい場合どうVBEで記述すればいいのかわからないので詳しい方がおられましたら、 よろしくお願いいたします。 あまり詳しくないので、そのままコピーできるか、○○の部分を指定フォルダ名に変えてください。等の注釈を付けていただけると助かります。

  • エクセルVBAについて

    ＜sheet1＞フォーマット（コピーするシート） ＜sheet2＞　　　 A列　　　　B列 ○○支店　　15 △△支店　　10 ××支店　　28 ■■支店　　25 ◎◎支店　　18 sheet1のフォーマットをsheet2のB列の数コピーして、sheet2のA列の支店別に新しいブックへ保存するという作業のマクロを組みたいのですがどのようにしたらよいでしょうか？お教えください。VBAに関しまして初心者で、勉強しているのですがいまいちわかりません。どうぞよろしくお願いします。 今、一つだけコピーして保存するということはできていますが、上記のように全部を自動的にしたいのですが・・・ Sub グラフをコピーして別ブックへ保存() Dim mySheet As Worksheet Set mySheet = ActiveWorkbook.Worksheets("グラフ") mySheet.Copy ActiveWorkbook.SaveAs Filename:="大阪第一" '別名を付けてブックを保存する ActiveWorkbook.Close '別名ブックを閉じる End Sub よろしくお願いします。

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

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

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する