戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
警告とデパックの処置

    [192010] 警告とデパックの処置-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ chabin -(2020/05/17(19:19))
    □U R L/
      いつもお世話にㇻります。
      
      OSはWin10 エクセルは2016 です・
      
      下記の問題の構文をテストしますと下記の注意事項がでます。
      
      
      やりたいのは。
      警告とデパックの対策をし
      
      ブックのの中の一部シートのみを
      数式を除き値のあるシートでコピーして保存したい。
      
      
      恐れいりますがご指導願えないでしょうか。
      
       ※数式がなく値みのシートでBook1は手作業では保存できます。
      
      
      
      警告
      次の機能はマクロなしのブックに保存できません。
       ・VB プロジェクト
         これらの機能が含まれるファイルは保存する場合は、{いいえ}
          をクリックし、{ファイルの種類}ボックスでマクロ有効ファイルの種類を選択してください。
         マクロなしのブックとして保存する場合は、{はい}をクリックしてください。
      
      デパック 黄色の反転
        ActiveWorkbook.SaveAs Filename:="C:\Users\sndora\Documents\00 AB" & sNewName & ".xlsm"
      
      
      
       問題の構文
         Sub Sample()
            Sheets("1").Copy
            sNewName = Format(Now, "mmdd") & Range("A2")
            ActiveWorkbook.SaveAs Filename:="C:\Users\sndora\Documents\00 AB" & sNewName & ".xlsm"
          ActiveWindow.Close
          MsgBox "00 AaB に保存しました"
      
          'ここから下は、元ブックを保存せずに終了する処理
           'ThisWorkbook.Saved = True
          'Application.Quit    '←Excelを終了しなくても良い場合は削る
          'ThisWorkbook.Close False
      
       End Sub


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [192011] Re[1]: 警告とデパックの処置-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2020/05/17(21:53))
    □U R L/
      簡単なテストをした限りでは、
      単にファイルフォーマットを指定していないセイの様でしたけど。




    [192012] Re[1]: 警告とデパックの処置-

    記事引用/メール受信=OFF■

    □投稿者/ 下書き退助 -(2020/05/17(21:56))
    □U R L/
      マクロの記録を使えば、わかると思いますけども。
      
      下は、手作業で、シートを新規ブックにコピーし、その新規ブックを保存した時の「マクロの記録」の結果です。
      
      Sub Macro1()
          Sheets("Sheet1").Copy
          ChDir "D:\test"
          ActiveWorkbook.SaveAs Filename:="D:\test\Book2.xlsm", FileFormat:= _
              xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
          ActiveWindow.Close
      End Sub
      
      これと、あなたの提示したプログラムとの違いはどこでしょうか?
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [192013] Re[2]: 警告とデパックの処置-

    記事引用/メール受信=OFF■

    □投稿者/ chabin -(2020/05/18(05:50))
    □U R L/

      おはようございます。
      ご指導ありがとございます。

      テストさせていただいての違いは
       コピーされたものは私との違いはただ一つ、
        数式がリンクされていました。

       私の構文んでは、
        
        "mmdd&xA2"の名前が付かず
      指定したところに自動保存しない


      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [192014] Re[3]: 警告とデパックの処置-

    記事引用/メール受信=OFF■

    □投稿者/ chabin -(2020/05/18(06:03))
    □U R L/

      半平太さん
      おはようございます。
      ご指導ありがとうございます。

      単にファイルフォーマットを指定していないセイの様でしたけど

      仰る通りでここで難儀してあの手この手で困り果てました。

       それ故にこに質問させていただきました、
      ご協力お願いいたしす。


      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [192016] Re[4]: 警告とデパックの処置-

    記事引用/メール受信=OFF■

    □投稿者/ ふふん -(2020/05/18(11:01))
    □U R L/

      >仰る通りでここで難儀してあの手この手で困り果てました。

      意味が解らない
      エラーになるっコードをパクって、エラーになって動きませんでは・・・。
      マクロ記録した物をベースにしたらよろしい。




    [192017] Re[5]: 警告とデパックの処置-

    記事引用/メール受信=OFF■

    □投稿者/ chabin -(2020/05/18(11:53))
    □U R L/

      お言葉が過ぎませんか
      いくらなんでも
      頑張っていますので


      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [192018] Re[6]: 警告とデパックの処置-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2020/05/18(12:45))
    □U R L/
      >ActiveWorkbook.SaveAs Filename:="C:\Users\sndora\Documents\00 AB" & sNewName & ".xlsm"
      
      それをこうしたらどうですか、と言うことなんですけど。
          ↓
        ActiveWorkbook.SaveAs Filename:="C:\Users\sndora\Documents\00 AB" & sNewName & ".xlsm", FileFormat:= xlOpenXMLWorkbookMacroEnabled
                                                  ~~~~~~~~~~~~~~↑~~~~~~~~~~~~~~~~~~~~~~~~~~
                                                   チャンとファイル形式を明示する
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [192019] Re[7]: 警告とデパックの処置-

    記事引用/メール受信=OFF■

    □投稿者/ chabin -(2020/05/18(14:56))
    □U R L/
      ご指導を有難うございます。
      
        ActiveWorkbook.SaveAs Filename:="C:\Users\sndora\Documents\00 AB" & sNewName & ".xlsm", FileFormat:= xlOpenXMLWorkbookMacroEnabled
      
      この構文にして上手く保存は出来たのですが
       保存場所が Document に保存されます。
       ブック名が 00 AB05190012東京 です。
      
       最後の是非のお願いですが
       保存先が Document/00 AB にしたいのでご指導ください。
      
      一つの例
      \Documents\00 AB\sNewName"   \を入れるとコンバインエラーになります。
      
      我がままを本当に恐縮します。


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [192020] Re[8]: 警告とデパックの処置-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2020/05/18(15:23))
    □U R L/
      >  \Documents\00 AB\sNewName"   \を入れるとコンバインエラーになります。
      
      ・・ \Documents\00 AB\" & sNewName & ".xlsm", ・・・・・
      
      じゃないですか? 




    [192021] Re[9]: 警告とデパックの処置-

    記事引用/メール受信=OFF■

    □投稿者/ chabin -(2020/05/18(16:25))
    □U R L/
      ごめんなさい
      最後と言いながら
      
      色々とトライしましたがその一例ですがコンバインエラーが出ます。
      下記の構文に黄色の反転です 
      
      ActiveWorkbook.SaveAs Filename:="C:\Users\sndora\Documents\00 AB" \ sNewName & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [192022] Re[10]: 警告とデパックの処置-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2020/05/18(16:39))
    □U R L/
      >色々とトライしましたがその一例ですがコンバインエラーが出ます。
      >下記の構文に黄色の反転です 
      
      >ActiveWorkbook.SaveAs Filename:="C:\Users\sndora\Documents\00 AB" \ sNewName & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
      
      私のところではコンパイルエラーになりませんけど?
      
      どんなメッセージなんですか?
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [192023] Re[11]: 警告とデパックの処置-

    記事引用/メール受信=OFF■

    □投稿者/ chabin -(2020/05/18(17:00))
    □U R L/

      型が一致しません。

      です


      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [192024] Re[12]: 警告とデパックの処置-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2020/05/18(17:28))
    □U R L/
      可能性のありそうなのは sNewName ですかねぇ。
      
      データ型は何になっていますか?




    [192025] Re[13]: 警告とデパックの処置-

    記事引用/メール受信=OFF■

    □投稿者/ chabin -(2020/05/18(18:03))
    □U R L/

      A2は文字列です。

      英文字表記していますが
      \Users\sndora\Documents

      エクスプローラーでの表記は
      \ユーザー\sndora\ドキュメント
      変えてみても関係なかったです



      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [192026] Re[14]: 警告とデパックの処置-

    記事引用/メール受信=OFF■

    □投稿者/ ふふん -(2020/05/18(19:01))
    □U R L/

      >AB" \ sNewName & ".xlsm",

      文字列の連結できないの?




    [192027] Re[15]: 警告とデパックの処置-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2020/05/18(19:08))
    □U R L/
      あれー、私が言ったのと違うじゃないですか?
      
            私はこれですよ。
             ↓
         ・・ \Documents\00 AB\" & sNewName & ".xlsm", ・・・・・
         ・・ \Documents\00 AB" \ sNewName & ".xlsm", ・・・
                    ↑ 
                 そっち




    [192028] Re[16]: 警告とデパックの処置-

    記事引用/メール受信=OFF■

    □投稿者/ chabin -(2020/05/18(20:02))
    □U R L/
      新たなエラーが出ました。
      
      コンパイルエラー
      変数が定義されていません。
      
      sNewName  青色反転
      
      
      再度 参考のために構文を
      Sub Sample()
            Sheets("1").Copy
            sNewName = Format(Now, "mmdd") & Range("A2")
            ActiveWorkbook.SaveAs Filename:="C:\Users\sndora\Documents\00 AB\" & sNewName & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
          ActiveWindow.Close
          MsgBox "00 AaB に保存しました"
      
          'ここから下は、元ブックを保存せずに終了する処理
           'ThisWorkbook.Saved = True
          'Application.Quit    '←Excelを終了しなくても良い場合は削る
          'ThisWorkbook.Close False
      
       End Sub
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [192029] Re[17]: 警告とデパックの処置-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2020/05/18(20:19))
    □U R L/
       >コンパイルエラー
       >変数が定義されていません。
       
       それは流石にご自分の判断で定義してくださいよ。
      
       プログラムの冒頭の辺りで
       
       Dim sNewName 
      
       とする方法ですけど、知らないですか?
       
       


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [192031] Re[18]: 警告とデパックの処置-

    記事引用/メール受信=OFF■

    □投稿者/ chabin -(2020/05/19(06:09))
    □U R L/
      おはようございます。
      昨夜から頑張りましたが上手くできませんでした。
      ここで又コンバインエラー 1004 がでました。
      
      ご迷惑をおかけしては申し訳がないので終わりにさせてください。
      
      これ迄のご協力に感謝します。
      ありがとうございました。
      
      現在の構文です・
      Option Explicit
      Sub Sample()
           Dim sNewName As String
           Dim ws As Worksheet
           Dim i As Integer
          For i = 1 To 7
             Set ws = Worksheets(1).Copy
           Next
            
            sNewName = Format(Now, "mmdd") & Range("A2")
            ActiveWorkbook.SaveAs Filename:="C:\Users\sndora\Documents\00 AB\" & sNewName & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
          ActiveWindow.Close
          MsgBox "00 AaB に保存しました"
      
          'ここから下は、元ブックを保存せずに終了する処理
           'ThisWorkbook.Saved = True
          'Application.Quit    '←Excelを終了しなくても良い場合は削る
          'ThisWorkbook.Close False
      
       End Sub
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [192032] Re[19]: 警告とデパックの処置-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2020/05/19(10:29))
    □U R L/
      もう一度やりたいことを明確にした方がいい様な気がします。
      
      印象では以下の通りですが、正しく修正してください。
      
      1.基本ブックが開かれていて、そこの標準モジュールにこのマクロは書かれる。
      
      2.基本ブックは7シートで構成されており、各シートを順次一つのブックに作り替える。
        その際、数式のまま残さず値に換える。
      
      3.順次作成される7ブックは、保存時して閉じる時、
       (1)拡張子をxlsmにする。
       (2)ブック名は、当該ブック(1シートしかない)のA2セルにある日付を活かして作成する
      
      




    [192033] Re[20]: 警告とデパックの処置-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2020/05/19(11:09))
    □U R L/
      > (2)ブック名は、当該ブック(1シートしかない)のA2セルにある日付を活かして作成する
      
      A2セルは日付じゃなかったですね。
      
      上の整理でよければ、以下一案。
      
      Sub Sample()
          Dim sNewName As String
          Dim Wb As Workbook
          Dim i As Integer
          
          For i = 1 To 7
              ThisWorkbook.Worksheets(i).Copy
              
              Set Wb = ActiveWorkbook
              
              Wb.Sheets(1).UsedRange.Value = Wb.Sheets(1).UsedRange.Value '値変換
              sNewName = Format(Now, "mmdd") & Wb.Sheets(1).Range("A2")  'ブック名作成
              Wb.SaveAs Filename:="C:\Users\sndora\Documents\00 AB\" & sNewName & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
              Wb.Close
              MsgBox "00 AaB に保存しました"
          Next i
          'ここから下は、元ブックを保存せずに終了する処理
          'ThisWorkbook.Saved = True
          
          'Application.Quit    '←Excelを終了しなくても良い場合は削る
          'ThisWorkbook.Close False
          
      End Sub
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [192035] Re[21]: 警告とデパックの処置-

    記事引用/メール受信=OFF■

    □投稿者/ chabin -(2020/05/19(13:19))
    □U R L/

      返事が大変遅くなりました。

      又エラーが出ました。

      実行時エラー 1004

      ファイルC:\Users\sndora\Documents\00 AB\1DF4A100にアクセス出ません。
      次のいずれかの理由がかんがえられます。

      ?ファイル名またはパスがそんざいしません。
      ?ファイルが他のプログラムによって使用されています。
      ?保存しようとしているブックと同じ名前のブックが現在開かれています。

      気になるのはこれなのですが
      1
      1回目
      \00 AB\1DF4A100   \00 AB\05190020 なら理解出゙来ますが
      2回目
      \00 AB\85ADB100 \00 AB\05190100
      2コピーがウインドウズに Book2 があります。


      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [192036] Re[22]: 警告とデパックの処置-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2020/05/19(14:06))
    □U R L/
      私の書いたコードに"00 AB\" は1個しかないんですが、
      なぜ、2つもあるんですか?
      
        ↓          ↓
      >\00 AB\1DF4A100   \00 AB\05190020 なら理解出゙来ますが
      
      Range("A2") に何が入っているんですか? 
      
      ※具体的に書いてください。もし漠然とした回答なら私はここまでです。
      




    [192037] Re[23]: 警告とデパックの処置-

    記事引用/メール受信=OFF■

    □投稿者/ chabin -(2020/05/19(15:12))
    □U R L/

      実行時エラー 1004

      ファイルC:\Users\sndora\Documents\00 AB\1DF4A100にアクセス出ません。
      エラー表示の中を引用しています。

      本来ならブックネームはこうあるべきではないかと推測しました。
      それが右側に

      二つはありません。 誤解しないでください。


      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [192038] Re[24]: 警告とデパックの処置-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2020/05/19(15:38))
    □U R L/
      これでなんと表示されますか?
      
      Sub test()
       MsgBox "#" & Format(Now, "mmdd") & ThisWorkbook.Sheets(1).Range("A2") & "#"
      End Sub


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [192039] Re[25]: 警告とデパックの処置-

    記事引用/メール受信=OFF■

    □投稿者/ chabin -(2020/05/19(16:56))
    □U R L/

      下記です

      #05190200#

      ありがとう


      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [192040] Re[26]: 警告とデパックの処置-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2020/05/19(16:59))
    □U R L/
      でしたら、こうなる訳ないと思うんですが。
            ↓
      >ファイルC:\Users\sndora\Documents\00 AB\1DF4A100にアクセス出ません。




    [192047] Re[27]: 警告とデパックの処置-

    記事引用/メール受信=OFF■

    □投稿者/ 通りすがり -(2020/05/20(00:39))
    □U R L/

      エクセルブックを保存中にエラーが発生している?

      「05190200.xlsm」という名前で保存しようとした際、
      エクセルでは、一旦ダミーのファイル名
      (今回のケースでは「1DF4A100」)で書き込みを行い、
      書き込み終了した段階で、
      ダミーのファイル名(今回のケースでは「1DF4A100」)を
      正式なファイル名(今回のケースでは「05190200.xlsm」)に
      リネームするような動作になります。

      (chabinさんが勘違いや記載ミスをしていないのであれば)
      ブック自体が壊れているとかの可能性もあるかもしれませんね。




    [192049] Re[28]: 警告とデパックの処置-

    保留中です・・・ / 記事引用/メール受信=OFF■

    □投稿者/ chabin -(2020/05/20(12:48))
    □U R L/

      半平太さん
      絶大なるご協力をいただきありがとうございました。

      再度原点に戻り再チャレンジしたいと思っています。

      あなた色々なことを学びましたので それを元にです。

      心から感謝するともにお礼申し上げます。


      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->  図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決!!ありがとうございました! 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜! Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内) 


- Child Forum -
Edit:ゆう-G