エクセルの学校：全文検索：Hyper Estraier：（Mook）

Results of 1 - 1 of about 1215 for （Mook） (0.001 sec.)

[[20150120175628]]: #score: 9211; @digest: 0c458b439345415de31d925acb71586b; @id: 67080; @mdate: 2015-01-21T13:57:23Z; @size: 3553; @type: text/plain; #keywords: newwbmei (44989), autoopen (5365), 欠陥 (5084), コト (4264), savecopyas (3731), yymmdd (3710), fol (3682), ク自 (3489), ロ無 (3192), thisworkbook (2132), カリ (1854), ーニ (1671), saveas (1609), ニン (1575), displayalerts (1303), 授頂 (1096), activeworkbook (1070), マク (1019), クロ (973), 保存 (924), 対処 (781), リー (716), format (651), 2015 (583), テス (547), スク (527), 自体 (526), ・2 (515), 結果 (514), name (487), 勉強 (483), string (482); 『自動実行のマクロ、欠陥マクロになってしまったので対処法を教えてください。』（KUN）
根本的に問題の有るマクロになってしまいました。回避方法を教えてください。やりたい事は、 1)タスクスケジューラーでEXCELを起動。 2)AutoOpenでマクロを実行。 3)日付名で別ファイルに保存毎日に結果を蓄積できる!はずだったのですが、致命的な大欠陥が、見つかりました。原因は、「昨日の結果を確認しようと、日付のエクセルを開くと・・・ 2)のマクロが動き始め、最新の結果になってしまいその日の結果が絶対に見れないコトに気づきました。こんなダメマクロの、対処方法を教えてください。宜しくお願い致します。 ↓ダメなマクロです。 Sub Auto_Open() Application.DisplayAlerts = False Application.Run "Macro1" End Sub Sub Macro1() Range("A2").Select ActiveCell.FormulaR1C1 = "自動マクロ実行テスト中・・・保存" ActiveWorkbook.SaveAs Filename:= _ "C:¥Documents and Settings¥test¥デスクトップ¥結果¥" & Format(Range("a1").Value, "yymmdd") & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False End Sub ＜使用 Excel:Excel2007、使用 OS:WindowsXP ＞ ---- マクロ無しのファイルとして保存するようにしてはどうでしょうか。単一シートであれば、シートをコピーして保存しても良いですし、 xlsx フォーマットでマクロを落として保存するようにしてもできるかと思います。 （Mook） 2015/01/20(火) 18:36 ---- こんばんは SaveAs をかける前に、同名のブックの存在をチェックして、もし、存在すれば、メッセージを出して上書きするかどうかを聞いて処理分岐させればいいと思いますが、このブック自体は、だれがいつ閉じるんですか? それと、Application.DisplayAlerts = False は名のために記述しているんですか? （β） 2015/01/20(火) 19:51 ---- 横から失礼します。履歴を取りたいのなら >ActiveWorkbook.SaveAs ↓の方がよくないですか? ActiveWorkbook.SaveCopyAs （カリーニン） 2015/01/20(火) 21:10 ---- Mookさんありがとうございます。マクロ無しで保存できるなんて知りませんでした。早速、試して（勉強して）みます。 βさんありがとうございます。＞このブック自体は、だれがいつ閉じるんですか? そうなんです、自動でクローズするマクロを試したのですが今回、質問した内容と同じ原因で結果がまったく見れない・・・なんてコトになり諦めました。それと、Application.DisplayAlerts = False は、色々試したマクロの残骸が残ってしまいました。「マクロを有効にする・無効にする」を表示しない方法を探していました。ご教授ありがとうございます。カリーニンさんありがとうございます。まだまだ勉強不足で、ご教授頂いたマクロの違いがわかりません。勉強します。皆様本当にありがとうございました。これからも勉強して行きますので、宜しくお願い致します。（KUN） 2015/01/21(水) 09:44 ---- >ご教授頂いたマクロの違いがわかりません。簡単なサンプルを作ってみました。テスト用ブックを作成して一旦保存し、コードを標準モジュールに貼り付けて試してみてください。 Sub testA() Dim wbmei As String Dim newwbmei As String Dim fol As String fol = ThisWorkbook.Path newwbmei = Format(Now, "yymmdd_hhmmss") & "_" & ThisWorkbook.Name MsgBox ThisWorkbook.Name ThisWorkbook.SaveCopyAs fol & "¥" & newwbmei MsgBox ThisWorkbook.Name End Sub Sub testB() Dim wbmei As String Dim newwbmei As String Dim fol As String fol = ThisWorkbook.Path newwbmei = Format(Now, "yymmdd_hhmmss") & "_" & ThisWorkbook.Name MsgBox ThisWorkbook.Name ThisWorkbook.SaveAs fol & "¥" & newwbmei MsgBox ThisWorkbook.Name End Sub （カリーニン） 2015/01/21(水) 22:57 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201501/20150120175628.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ