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

≪