Excel VBAを使用してファイルを開く際、相対パスを活用する方法は非常に便利で効率的です。
当サイトでは、他にもExcelで業務効率・作業効率を上げる記事を投稿しています。興味があればそちらも合わせてご覧いただけると幸いです。
それではいってみましょー。
相対パスとは？
Excelで使われる相対パスとは、セル参照の方法の一つで、セルの位置を基準にして参照する方法です。
例えば、セルC2からセルA2を参照する場合、実際には同じ行(2)の左側の2列(CからAを引いた列)のセルを参照します。相対セル参照を含む数式をコピーすると、数式内の参照が変更されます。
相対パスを使うことで、リンク先のファイルが移動しても、リンク元のファイルから見た相対的な位置関係でリンクが保持されます。
なので、相対パスのメリットとしては、リンク先のファイルが移動しても、リンク元のファイルから見た相対的な位置関係でリンクが保持される点です。
また、絶対パスに比べて記述量が少なくて済むというメリットがあります。
注意点としては、「C:\Users\ユーザー名\…」のようにユーザー名を含むパスや、「D:\…」のように環境よっては存在しないドライブレターを含むパスは要注意です。
ちょっとここまででわからないという方向けに、実際にExcel VBAでコードを書いていきますね。
わからない人もコードを書いて動かしていけばイメージしやすいと思います。
以下のコードは、相対パスを使用してExcel VBAでファイルを開く一般的なコードです。
'相対パスを使用して
Dim fName As String
Dim mPath As String
mPath = ThisWorkbook.Path
fName = "Test1.xls"
i = Len(mPath) - Len(Replace(mPath, "\", ""))
If i > 1 Then
mPath = Mid(mPath, 1, InStrRev(mPath, "\") - 1)
Workbooks.Open mPath & "\" & fName
End If
カレントフォルダの誤解と正しい理解
カレントフォルダとは、ザックリ言うと、Excelで作業する際に既定で参照する場所のことです。
カレントフォルダは、相対パス指定の起点になるため重要です。
しかし、Excelの場合、前後の「ファイルを開く」操作でカレントフォルダは一定しません。この状況を理解せずにカレントフォルダを使用すると問題が発生することがあります。
相対パスの活用方法
相対パスを使用する際には、カレントフォルダの状態をコントロールする必要があります。以下の方法でカレントフォルダを任意のフォルダに移動させることができます。
'カレントフォルダを任意の場所へ移動
ChDrive ThisWorkbook.Path
ChDir ThisWorkbook.Path
また、ネットワーク上の共有名などのフォルダをカレントフォルダにする場合は、以下のような方法を採ることができます。
'ネットワーク上の共有名などのフォルダをカレントフォルダにする場合
CreateObject("WScript.Shell").CurrentDirectory = ThisWorkbook.Path
まとめ
この記事では、Excel VBAで相対パスを使用してファイルを開く方法について解説しました。以下は、主なポイントの簡単なまとめです。
- 相対パスの基本的な理解と使用方法。
- カレントフォルダの誤解と正しい扱い方。
- カレントフォルダのコントロールと相対パスの活用。
これらの知識を活用することで、Excel VBAでのファイル操作がより効率的かつ柔軟になります。
この記事を少しでもためになった！と思ったならコメントやSNSでシェアをしていただけるととても励みになります！これからも、パソコンの作業効率を上げる方法やパソコンのちょっとした疑問や困ったを解決情報を発信していきますので、たまにサイトをチェックしていただけると、とっても嬉しいです(‘ω’)ノ。
SNSのフォローボタンを、ポチってくれるとめっちゃ嬉しいです👍
ではでは、最後までご覧いただきありがとうございました。
Twitter：＠Uriuri_writer
Follow @Uriuri_writer
Instagram：＠uriuri_writer
Instagram
コメント