VBAを実行するとエクセルが落ちる

質問

同一フォルダ内にあるCSVデータを一つのエクセルにワークブックにまとめるため
CSVデータを開いて、各シートに値を貼り付けるVBAを作成しました

デバックモードで1行毎に実行するとエクセルが落ちることはありませんが
普通に実行するとエクセルが閉じてしまいます

原因が分からないためご指摘いただけると幸いです

Win7のOffice2013です。

Sub contents()

Sheets("01").Select
Sheets("01").Cells.Select
Selection.ClearContents

Dim ShA As Worksheet
Dim FileA As String

Set ShA = ThisWorkbook.Sheets("01")
ChDir "C:\Users\Public\Documents"
FileA = "C:\Users\Public\Documents\01.csv"
If FileA <> "False" Then
Workbooks.OpenText Filename:=FileA, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlTextQualifierNone, Comma:=True
ActiveSheet.Cells.CurrentRegion.Copy Destination:=ShA.Range("A1")
ActiveWorkbook.Close False
End If
Set ShA = Nothing

Sheets("02").Select
Sheets("02").Cells.Select
Selection.ClearContents

Dim ShB As Worksheet
Dim FileB As String

Set ShB = ThisWorkbook.Sheets("02")
ChDir "C:\Users\Public\Documents"
FileB = "C:\Users\Public\Documents\02.csv"
If FileB <> "False" Then
Workbooks.OpenText Filename:=FileB, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlTextQualifierNone, Comma:=True
ActiveSheet.Cells.CurrentRegion.Copy Destination:=ShB.Range("A1")
ActiveWorkbook.Close False
End If
Set ShB = Nothing

Sheets("03").Select
Sheets("03").Cells.Select
Selection.ClearContents

Dim ShC As Worksheet
Dim FileC As String

Set ShC = ThisWorkbook.Sheets("03")
ChDir "C:\Users\Public\Documents"
FileC = "C:\Users\Public\Documents\03.csv"
If FileC <> "False" Then
Workbooks.OpenText Filename:=FileC, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlTextQualifierNone, Comma:=True
ActiveSheet.Cells.CurrentRegion.Copy Destination:=ShC.Range("A1")
ActiveWorkbook.Close False
End If
Set ShC = Nothing

End Sub

回答No.1

chie65536（@chie65535） · ベストアンサー

＞ActiveWorkbook.Close False

クローズするウィンドゥを「明示」してクローズする事。

FileA = "C:\Users\Public\Documents\01.csv"
（略）
ActiveWorkbook.Close False

を

FileA = "C:\Users\Public\Documents\01.csv"
（略）
Application.Windows("01.csv").Close SaveChanges:=False

に変更。同様に

FileB = "C:\Users\Public\Documents\02.csv"
（略）
ActiveWorkbook.Close False

を

FileB = "C:\Users\Public\Documents\02.csv"
（略）
Application.Windows("02.csv").Close SaveChanges:=False

に変更。同様に

FileC = "C:\Users\Public\Documents\03.csv"
（略）
ActiveWorkbook.Close False

を

FileC = "C:\Users\Public\Documents\03.csv"
（略）
Application.Windows("03.csv").Close SaveChanges:=False

に変更。

ステップ実行ではなく、一気に実行すると「アクティブなワークブック」が「ThisWorkbook」のまま切り替わらないで「ActiveWorkbook.Close False」が実行されてしまう。

つまり「csvファイルでなく、自分自身が閉じられてしまう」事になる。

自分自身が閉じられれば、エクセルそのものも閉じられてしまうことになる。

お礼

問題が解消されました
他の仕組みと競合しておりました

ありがとうございました

補足

ご回答ありがとうございます。

ご指摘いただいた箇所を修正してもまだ落ちてしまいます。

追加で

Workbooks("test.xlsm").Activate
Sheets("02").Select
Sheets("02").Cells.Select

とシートをアクティブにしても落ちる状態です。