ファイルを開くマクロで質問です

質問

ファイルを開くマクロで質問です。

セルC20にファイルのパスが入力されています。
例：V:\Book1.xlsx

セルI9～I18　M9～M18でダブルクリックしたときに
C20セルにあるパスをひらくにはどうしたらよいでしょうか？
現在はどのセルでダブルクリックをしてもC20のパスが開いてしまいます。

またC20のパスがすでに開いている時、エラーなどにならずに
そのエクセルシートを開く方法はありますでしょうか？
読み取り専用や、一度保存して閉じるとかではなく
そのまま開いているシートにとびたいです。

もしこれが無理であれば保存してとじて再度開き直す方法でも大丈夫です。

さらにこれはもし分かればでいいのですが、その開いたエクセルシートの
【計測データ読み込み】という名前のシートのD列の一番下のデータを
ダブルクリックしたセルに貼り付ける方法も分かれば教えて下さい。

とりあえず、現状のマクロをはりつけて置きます。現状はシートを開くところまでしか
作れていません。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)

Cancel = True

Dim i As Integer
Dim filepath As String
filepath = Range("C20").Value '☆
If Dir(filepath) = "" Then
MsgBox filepath & vbCrLf & "はファイルが見つかりません。" '★
Exit Sub
End If

For i = 1 To Workbooks.Count
If filepath = Workbooks(i).FullName Then
MsgBox filepath & vbCrLf & "は既に開いています。" '★
Exit Sub
End If
Next i

Workbooks.Open Filename:=Range("C20").Value
End Sub

回答No.4

keithin · ベストアンサー

private sub WorkSheet_BeforeDoubleClick(byval Target as excel.range, Cancel as boolean)
　dim myFile as string
　if application.intersect(target, range("I9:I18,M9:M18")) is nothing then exit sub
　cancel = true
　myfile = range("C20").value

　if dir(myfile) = "" then
　　msgbox "FILE NOT FOUND"
　　exit sub
　end if

’開いていれば表に出す
　on error goto errhandle
　workbooks(dir(myfile)).activate
　target.value = activesheet.range("D65536").end(xlup).value
　exit sub

errhandle:
’開いてなければ開く
　workbooks.open myfile
　resume
end sub

＞このマクロの続きで

こうやってダラダラといつまでもついでについでにのご相談が随分多いので、原則としてついでのご質問は回答しない事にしています。
続きのご質問に気持ちが行ってしまい、いつのまにか最初のご相談の解決が無かったことになってしまうのもイヤですしね。
当初の目的が果たせたら、このご相談はしっかり解決で一度閉じてから、新たなご質問内容は新しいご相談として「詳しい状況をキチンと添えて」別途投稿するようにしてください。

＞開いたシートのD列の一番下のデータ

開いたのは「ブック」です。
そのブックの「どのシート」が今開いているかは、何も規定されていない事に留意してください。
それとも？シートの指定は全くしないまま、「成り行きで今開いている（不定の）シート」を無条件に対象にしてよかったのでしょうか。

＞ダブルクリックしたセルに貼り付ける

コピーして貼り付けなきゃいけないのか、それとも値を転記してくれば良いのか、どういう状況でしょうか。それによって適当なマクロの書き振りも変わってくる事に留意してください。

回答No.3

chie65536（@chie65535）

＞セルI9～I18　M9～M18でダブルクリックしたときに
＞C20セルにあるパスをひらくにはどうしたらよいでしょうか？
＞ 現在はどのセルでダブルクリックをしてもC20のパスが開いてしまいます。

適当な場所に
If Target.Row < 9 Or Target.Row > 18 Or Target.Column < 12 Or Target.Column > 13 Then Exit Sub
を入れる。

＞またC20のパスがすでに開いている時、エラーなどにならずに
＞そのまま開いているシートにとびたいです。

MsgBox filepath & vbCrLf & "は既に開いています。" '★
を
Workbooks(i).Activate
にする。

あと、蛇足ですが
If filepath = Workbooks(i).FullName Then
は
If Ucase(filepath) = UCase(Workbooks(i).FullName) Then
にすべき。

このようにして「大文字小文字を区別しない」ようにしておかないと、大文字小文字を区別してしまって、既に開いているブックを「開いていないと判断してしまう」場合がある。

補足

ありがとうございます。

まだまだ至らぬところだらけで、ネットで拾ってきたマクロをかき消ししてたので、めちゃくちゃなマクロですよね。すみません。

ご回答とアドバイスまで頂きありがとうございます。

このマクロの続きで開いたシートの列の一番下のデータを
ダブルクリックしたセルに貼り付ける方法の方はお分かりになりますでしょうか？

回答No.2

keithin

やりようは様々あると思いますが

private sub WorkSheet_BeforeDoubleClick(byval Target as excel.range, Cancel as boolean)
　dim myFile as string
　if application.intersect(target, range("I9:I18,M9:M18")) is nothing then exit sub
　cancel = true
　myfile = range("C20").value

　if dir(myfile) = "" then
　　msgbox "FILE NOT FOUND"
　　exit sub
　end if

’開いていれば表に出す
　on error goto errhandle
　workbooks(dir(myfile)).activate
　exit sub

errhandle:
’開いてなければ開く
　workbooks.open myfile
end sub

補足

昨日に引き続き、ご回答ありがとうございます。
目的が果たせました。

このマクロの続きで開いたシートのD列の一番下のデータを
ダブルクリックしたセルに貼り付ける方法などはお分かりになりますでしょうか？

回答No.1

takncom

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)

のあとに

If Target.Row = 1 And Target.Column = 1 Then Exit Sub

というようなのを入れて 指定したセル以外は、抜けるようにすればよいです。

お礼

お礼が大変遅くなってしまい申し訳ありませんでした。
ありがとうございます。