Excel vbaの実行について

Question

同じ処理を二回行った場合に
上書きさらるようにしたいのですが
実行した場合、処理中にファイルが閉じてしまいます。
解決策がありましたら教えていただきたいです。

Sub

Comments

[y_waiwai]

ファイルが落ちる、というのはどういうことでしょうか。
ちと意味不明です

[Kanami]

閉じてしまいます。

[Zuishin]

ソースが消えてしまいましたが、解決する気があるんでしょうか？

Answer 1

どうみてもActiveWindow.Closeでウィンドウを閉じさせているからにしか見えませんが、これが意図的なものであるなら、具体的にどうしたいのか、仕様を明確にしてください。

Comments

[Kanami]

ファイル出力の処理を二回続けて行った場合に
一回目の出力結果を上書きして作成できるようにしたいです。

[ttyp03]

で、ActiveWindow.Closeは意図的な処理なんでしょうか？

[ttyp03]

なんとなく、こうではないでしょうか？
ActiveWindow.Close
↓
ActiveWorkbook.Close

[Kanami]

以前に確認してみましたが駄目でした。

[ttyp03]

駄目って何が駄目なんですか？
ActiveWindow.Closeは意図的なんですか？
ウィンドウを閉じる命令が書いてあるのに閉じたくないというのは矛盾している話です。
まずはウィンドウが閉じない処理を施し、その後どう駄目なのか明確にし、それについて対応策を考えないと。

Answer 2

こちらで、動作確認してみました。
あなたのソースで問題なく、動作しますが、
明示的にブックを追加するようにしてみました。
Sub シート⇒ブック(シート名 As String, フルパス名 As String)
のプロシージャのみ、以下のようにしてみてください。
これで、どうでしょうか。

Sub シート⇒ブック(シート名 As String, フルパス名 As String)
    Dim wb As Workbook
    Set wb = Workbooks.Add(xlWBATWorksheet)
    ThisWorkbook.Worksheets(シート名).Cells.Copy
    wb.Activate
    wb.Worksheets(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    wb.Worksheets(1).Cells.Replace What:="#DIV/0!", Replacement:="", LookAt:=xlWhole
    wb.Worksheets(1).Name = シート名
    'If Dir(フルパス名) <> "" Then Kill (フルパス名)
    wb.SaveAs Filename:=フルパス名, FileFormat:=51
    wb.Close
End Sub

Comments

[Kanami]

ありがとうございます！
解決しました(ToT)

なにが原因だったのでしょうか？(泣)

Answer 3

まず、ActiveWindow.Closeを削除してみてください。

Comments

[Kanami]

ActiveWindow.Closeを削除すると
そもそも実行できません。