Excel VBA 質問スレッド No.81 (未解決)

ExcelVBAでVBE操作

投稿者 : スズキ     投稿日時 : 2020/06/09(Tue) 15:13:14     OS : Windows 10     EXCEL : Excel 2016
ExcelVBA初心者です。

調べても解決策が分からないため質問させていただきます。

下記コードは
指定したフォルダ内のファイルのThisWorkbookモジュールの中身を消して保存をするマクロです。

しかし実行すると、Excelが落ちてしまい作業が中断されてしまいます。
原因または解決策をご教示いただきたいです。

以上、宜しくお願い致します。

Sub Sumple()

Dim FolPath As String
Dim FileName As String
Dim DelCnt As Long

'マクロを更新したいフォルダパス
FolPath = "\hoge"

'取り込むファイルの条件設定
FileName = Dir(FolPath & "*.xlsm")

'ファイルが存在しなくなるまで繰り返す
Do Until FileName = ""

'ファイルを開く
Workbooks.Open FolPath & FileName, UpdateLinks:=0

'ThisWorkbook をリセットする
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook")
DelCnt = .CodeModule.CountOfLines
.CodeModule.DeleteLines 1, DelCnt
End With

'ファイルを閉じる
Workbooks(FileName).Close SaveChanges:=True

FileName = Dir()

Loop

MsgBox "完了"

End Sub

[返信 1] Re : ExcelVBAでVBE操作
投稿者 : たかはし     投稿日時 : 2020/06/09(Tue) 20:37:32
とりあえず、上記マクロのループ内にブレークポイントを設定して実行し、

どこで落ちているか確認してください。


単純に FolPath に誤りがある可能性もあると思います。

[返信 2] Re : ExcelVBAでVBE操作
投稿者 : スズキ     投稿日時 : 2020/06/09(Tue) 21:53:12
■[返信 1] たかはしさん(2020-06-09 20:37:32)の記事
> とりあえず、上記マクロのループ内にブレークポイントを設定して実行し、

> どこで落ちているか確認してください。


> 単純に FolPath に誤りがある可能性もあると思います。


ご返信ありがとうございます。
何度やってもファイルを閉じるときに落ちることが分かりました。
しかし原因がわかりません。
以上、宜しくお願い致します。

[返信 3] Re : ExcelVBAでVBE操作
投稿者 : たかはし     投稿日時 : 2020/06/13(Sat) 18:35:31
返信がだいぶ遅くなってすみません。

ファイルを閉じるときに落ちるのであれば、

以下のように修正してみてください。


修正前:Workbooks(FileName).Close SaveChanges:=True
修正後:ActiveWorkbook.Close SaveChanges:=True

スポンサード リンク
 
 
当掲示板について
返信入力フォーム
お 名 前  :
内  容   :
ステータス  : この質問を解決済みにする

認証コード  :
        キャプチャ画像


( 処理日時 : 2020-08-10 18:46:46 )

Page
Top