|
フォルダー名など変更されていた場合ファイルを開く際エラーで止まる為
パスを所得してセルに書きこんでおいてそれを使用してファイルを開こうと
しているのですが、初めに開いているファイル(マクロが書かれているファイル)
は下記様にして所得したパスをセルに書き込んでいます。
Sub パス所得()
Dim FNam As String
Dim Ret As String
Dim Fso As Object
FNam = ThisWorkbook.FullName
Set Fso = CreateObject("Scripting.FileSystemObject")
Ret = Fso.GetParentFolderName(FNam)
Range("A30").Value = FNam
Range("A31").Value = Ret
End Sub
ちなみにマクロ記述のファイルは下記の様なパスで
\\Ssum2330\com01_p\****\出来高\報告.xls"
開いていないファイルのパスは下記の様な感じです
\\Ssum2330\com01_p\****\累積\枚数.xls"
で****のフォルダー名が勝手に変更されていた為エラーでマクロが動作しなくなったのでこの様な方法に使用と思ったのですが
一応関数を使って上のマクロに下の記述を追加して処理使用と考えたのですが
Range("A32").Select
ActiveCell.FormulaR1C1 = "=SUBSTITUTE(R[-1]C,""\出来高"",""\累積"")"
枚数.xlsのファイルが別のフォルダーに移動された場合上の関数では対応出来ません。
開いていないファイルのパスを所得する方法が判りませんご教授いただけないでしょうか?(Excel97です)
|
|