[[20100601184258]]　『セルの値と同じ名前のフォルダへのリンクと，同じ』（Massa）　ページの最後に飛ぶ

『セルの値と同じ名前のフォルダへのリンクと，同じ名前のファイルへのリンクを大量に作成』（Massa）

VBAやマクロに不慣れで，日ごろはここや他のサイトを検索して，自分がやりたいことに近い質問を検索して参考にさせていただいていますが，
検索したのですが　なかなか該当する質問を見つけられず，みなさまのお知恵を拝借させてください。

――――――――――――――――――――

      A          B   ......　 F   G
 1  2011001
 2  2011002 
 3  2011003
 4  2011004
 5  2011005

――――――――――――――――――――

\\Z\管理台帳　の中に，"リスト"というファイル名のシート１に上記のように記入しています。
A列に　数値が入力してあります。

そして，このファイルの保存フォルダとは別のところ（\\Z\データ）に，
上記A列の数値と同じ　"2011001","2011002"といった名前のフォルダが，
さらにその中に上記A列の数値と同じ　"2011001","2011002"といった名前のエクセルファイルがあります。
その場合，F列に　A列と同じ数値のフォルダへのリンクを，
G列に　A列と同じ数値のファイルへのリンクを貼る方法をご教示いただけますか。

VBAやマクロを自分で構築することはできない者です。

同じ質問が以前にあったようなら　そちらへの誘導を，
また　このやり方がお分かりの方は　実際に入力する式を教えて頂ければ助かります。

当方の環境は，OS　XP　SP3,　MicrosoftExcel2003　です。
フォルダパスが\\Zなのは，社内LANを組んでいるからです。
宜しくお願い致します。

 外してたらごめんなさい。
　
 ハイパーリンクって事でしょうか？
　
 F1 =HYPERLINK("\\Z:\データ"&A1,A1&"フォルダ")
 G1 =HYPERLINK("\\Z:\"&A1&"\"&A1&".xls",A1&".xls")
　
 まったく見当違いでしたら、ポイして下さいｗ
 （キリキ）（〃⌒o⌒)b

キリキさん，コメントありがとうございます。
教えて頂いたハイパーリンクの式は動作しませんでした。
MicrosoftExcel2003だからでしょうか。

また返信遅くなりましたが，自己解決できたのでご報告します。
該当フォルダへのリンクをVBAで作成しました。

他の方の参考になるかもしれないので，VBA式をコピペしておきます。

 Sub getFolder()
 Dim objFSO As New FileSystemObject
 Dim objFolder As Folder, objFolder1 As Folder
 Dim strPath As String, strFile As String
 Dim intLine As Integer
 Set objFolder = objFSO.getFolder(Range("A1").Value)
 intLine = 300
 For Each objFolder1 In objFolder.SubFolders
 Cells(intLine, 1).Value = objFolder1.Name
 ActiveSheet.Hyperlinks.Add Anchor:=Cells(intLine, 1), _
 Address:=objFolder1, TextToDisplay:=objFolder1.Name
 intLine = intLine + 1
 Next
 End Sub

by　Massa

 F1 =HYPERLINK("\\Z:\データ\"&A1,A1&"フォルダ")
 G1 =HYPERLINK("\\Z:\データ\"&A1&"\"&A1&".xls",A1&".xls")
 ではどうでしょうか？
 (独覚)

コメント返信：

[ 一覧(最新更新順) ]

[[20100601184258]] 『セルの値と同じ名前のフォルダへのリンクと，同じ』（Massa） ページの最後に飛ぶ

[[20100601184258]]　『セルの値と同じ名前のフォルダへのリンクと，同じ』（Massa）　ページの最後に飛ぶ