マクロを含むxlsファイルの軽量化

Question

実現したいこと

マクロを使用するxlsファイルの軽量化

前提

マクロを使用するごとに、増えるデータ量のわりにファイル容量が大きくなり、動きが遅くなっています。

重たくなるファイルはxlsファイルで、他のCSVファイルのデータを読込し、数値計算(読み込んだCSVデータの単価と数量をかけ、金額を出力)や、
読み込んだデータの中に、xlsファイル内別シートのマスタと同一データがあれば、マスタデータを参照し書き換えるなどの処理をするVBAを使っています。

xlsmファイルにしない理由としては、連携しているAccessファイルがあり、xlsm形式にするとAccessがなぜか動作しなくなるため(ここも問題なのですがひとまずxlsファイルで継続して使用することになり)、xlsファイルを使い続けています。

発生している問題・エラーメッセージ

マクロ実行後のファイル容量の増加

VBAの場合は、設定によりますが、コードの中間言語が保存され、修正されたあとに再び上書きされずに保存されるので、サイズが膨らんでいく、と別サイトでみたのですが、具体的な解決策がわかりません。

該当のソースコード

'読込した出荷シートにCSVファイルをインポートする
Sub 出庫データ読込()
    Dim FilePath As String
    Dim lastRow As Integer
    Dim lastcol As Long
    Dim rng As Range
'    Dim Sheets("読込した出庫") As Worksheet
    Dim cell As Range
'    Set Sheets("読込した出庫") = Sheets("読込した出庫")
    
    Sheets("読込した出庫").Cells.Clear
    FilePath = Application.GetOpenFilename("CSV Files (*.csv), *.csv", 1, "Select the CSV file", "Open", False)
    If FilePath = "False" Then Exit Sub
    With Sheets("読込した出庫").QueryTables.Add(Connection:="TEXT;" & FilePath, Destination:=Sheets("読込した出庫").Range("a1"))
        .TextFileParseType = xlDelimited
        .TextFileCommaDelimiter = True
        .TextFilePlatform = 932
        .Refresh
    End With
    
    'クエリで読み込んだ接続を削除する
    Dim conn As WorkbookConnection
    For Each conn In ActiveWorkbook.Connections
        conn.Delete
    Next conn

End Sub

試したこと

ここに問題に対して試したことを記載してください。
Ctrl　+ END などで、使用する箇所以上にスペースがとっていないか確認
不要なオブジェクトがないか確認。いずれもなし。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[Zuishin]

まず、適当なサイトからの憶測ではなく、遅くなる本当の原因を突き止めるところから始めましょう。
例えば、不要になったシートの削除が成されているようには見えませんが、ちゃんと削除していますか？

[yamayama8931]

ありがとうございます。
不要シートの削除はすべて行っております。
非表示で隠れているシートもありませんでした。

[yamayama8931]

読込した出庫シートで処理し、①CSV出力②出庫ログシートへの転記を行っており、ファイルを継続して利用するうえで、シートを削除処理する処理はありません。

[yamayama8931]

ありがとうございました。

[Zuishin]

アドインでどうにかなるとは思えませんけど、どうにかならなくても同じ質問を繰り返すことはしないでください。

[Zuishin]

本人に聞いてみればすぐにわかることですが、あなたがベストアンサーに選んだ回答はただの当てずっぽうです。

[yamayama8931]

はい。ありがとうございました。

Answer 1

マクロが争点ならマクロだけxlaやxlamに分離してアドインとして動作させてください
それでもxlsのファイルがおおきいならそれはデータの取得方法がおかしいだけだと思います

Comments

[yamayama8931]

ありがとうございます。アドインで対応します。

Answer 2

前提

一度、外部の専門家に相談しないと最終的な解決は難しいと思います。『杜撰な設計ではない、設計者の責任を果たしている』とのお墨付きを得ておくほうが無難です。損害と見做されれば責任を追求されるお仕事です。時代や世代の交代に備えて、しっかり自衛しましょう。

Comments

[yamayama8931]

ありがとうございました。