マクロの解読に困っています
マクロの仕事がきましたが、初めてで苦戦しています。
5冊くらい本を読みながら、今あるマクロの解読をしています。
しかし、次のErrShori:の意味がどうしてもわかりません。
わかる方がいらっしゃいましたらぜひ教えてください。
ErrShori:
Open sFilename & ".csv" For Output Shared As #1
その前の文もつけておきます。
Sub Auto_Close()
On Error GoTo ErrShori
Dim MaxPage As Integer
Dim sFilename As String
Dim sFilename2 As String
Dim i As Integer
Dim j As Integer
Dim sKensaku As String
MaxPage = 0
Do
MaxPage = MaxPage + 1
Loop Until Cells(MaxPage * 17 + 21, 1) = ""
ChDrive "W"
ChDir "W:\"
sFilename = Range("O22")
sFilename2 = sFilename & ".csv"
Workbooks(sFilename2).Close SaveChanges:=False
ErrShori:
Open sFilename & ".csv" For Output Shared As #1
以上です。
質問の仕方が悪かったらすみません。
お礼
回答ありがとうございます。 いまいち文としてよくわからないですね・・・ 他に回答ないようですので締め切らせて頂きます。