Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


57926 / 76732 ←次へ | 前へ→

【23540】開いていないファイルのパスを所得する方...
質問  たいくん  - 05/3/26(土) 11:41 -

引用なし
パスワード
    フォルダー名など変更されていた場合ファイルを開く際エラーで止まる為
パスを所得してセルに書きこんでおいてそれを使用してファイルを開こうと
しているのですが、初めに開いているファイル(マクロが書かれているファイル)
は下記様にして所得したパスをセルに書き込んでいます。
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です)

1 hits

【23540】開いていないファイルのパスを所得する方... たいくん 05/3/26(土) 11:41 質問
【23542】Re:開いていないファイルのパスを所得する... IROC 05/3/27(日) 9:30 回答
【23543】Re:開いていないファイルのパスを所得す... たいくん 05/3/27(日) 12:49 質問
【23544】Re:開いていないファイルのパスを所得す... ponpon 05/3/27(日) 13:28 発言
【23545】Re:開いていないファイルのパスを所得す... たいくん 05/3/27(日) 14:24 お礼

57926 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free