修正・・・マクロがUSBメモリ内では実行できるのに、VirtualStoreでは実行できない

Question

以下のマクロがUSBメモリ内では実行できるのに、C:\Users\xxxx\AppData\Local\VirtualStore\Program Files\XXXX\YYYYYYY

では実行できない

Sub Macro4()

 Dim BB, CC, DD As String    'db＊.mdbを消します。

    CC = ActiveWorkbook.Path   'CCに開いたファイルのパスが格納

    BB = "\db*.mdb"

    DD = CC & BB                       'DDにファイル名までを入れる

         Kill DD

End Sub

以下が出てしまいます。

「実行時エラー****ファイルが見つかりません。」

「デバッグ」を押すと、Kill DDの文字が逆転します。

参照設定は以下の4つです。

Visual Basic For App・・・

Microsoft Excel16.0　Object Liｂa ry 

OLE Automation

Microsoft Office16.0　Object Liｂa ry 

また、USBメモリのExcelをVirtualStoreに張り付けるとマクロの内容が変わってしまいます。

以前に入れたものです。

よろしくお願いします。

Answer 1

VirtualStore から実行した場合はパス名が正しく取得できていないのでは？

デバッグして変数 CC の中身を確認してみましょう。