いまさらですが、ExcelでHTML作成すると、リンクが同じウィンドウでしか表示できない。
なんで、Wordだとリンクで開くウィンドウを指定できるのに。でもWordって文書の中で表作って表示させても、ちょっと修正失敗すると、図も表もぐちゃぐちゃになるので、単純な文書ならいいけど、使う気にならない。
まして2003から2007/2010になってメニューの見通しが悪く使いづらくなってるのに、せめてこの程度の機能は改良して欲しかった。
ということでとりあえずExcel VBAマクロで対応。
と言っても、Excekで発行したWebページファイル（htmlファイル）名を指定して
そのファイルから、別ウィンドウで開きたいリンクアドレスを探して、そのうしろに
tagget="_blank" を追加するだけんですが。
下記Excelファイルです。Googoleドキュメントに入れてあります。
HtmlEdit.xlsm
https://docs.google.com/open?id=0B9iW4fsqrLw6cFhfQkNPaC1TWlU
＝＝＝マクロは下記です＝＝＝＝＝＝＝＝＝＝＝
Const adr_Fname As String = "C4"
Const Adr_HPLChkStart As String = "C6"
'**********************************************************************
'* 名称： HtmlEdit1
'* 概要： 出力されたHTMLでリンク時に新しい画面で表示するようにHtmlファイルを修正する
'*
'**********************************************************************
'* Rev.0：2012/12/14
Sub HtmlEdit1()
Const WorkAdd As String = "work"
Dim HypStr(100)
Dim A As String
Dim Cnt As Long
Dim P As Long
Dim HypCnt As Long
Dim Fname As String
Fname = Range(adr_Fname).Value
Do
A = Range(Adr_HPLChkStart).Offset(Cnt, 0).Value
HypStr(Cnt) = A
Cnt = Cnt + 1
Loop While A <> ""
HypCnt = Cnt - 1
Application.StatusBar = "HTMLファイル変換中"
Open Fname For Input As #1
Open Fname & WorkAdd For Output As #2
Do While Not EOF(1)
Line Input #1, A
For Cnt = 0 To HypCnt - 1
P = InStr(A, HypStr(Cnt))
If P > 0 Then
A = Replace(A, HypStr(Cnt), HypStr(Cnt) & """ target=""_blank")
End If
Next
Print #2, A
Loop
Close
Application.StatusBar = "WorkFile 削除"
Kill Fname
Name Fname & WorkAdd As Fname
Application.StatusBar = False
End Sub
なんで、Wordだとリンクで開くウィンドウを指定できるのに。でもWordって文書の中で表作って表示させても、ちょっと修正失敗すると、図も表もぐちゃぐちゃになるので、単純な文書ならいいけど、使う気にならない。
まして2003から2007/2010になってメニューの見通しが悪く使いづらくなってるのに、せめてこの程度の機能は改良して欲しかった。
ということでとりあえずExcel VBAマクロで対応。
と言っても、Excekで発行したWebページファイル（htmlファイル）名を指定して
そのファイルから、別ウィンドウで開きたいリンクアドレスを探して、そのうしろに
tagget="_blank" を追加するだけんですが。
下記Excelファイルです。Googoleドキュメントに入れてあります。
HtmlEdit.xlsm
https://docs.google.com/open?id=0B9iW4fsqrLw6cFhfQkNPaC1TWlU
＝＝＝マクロは下記です＝＝＝＝＝＝＝＝＝＝＝
Const adr_Fname As String = "C4"
Const Adr_HPLChkStart As String = "C6"
'**********************************************************************
'* 名称： HtmlEdit1
'* 概要： 出力されたHTMLでリンク時に新しい画面で表示するようにHtmlファイルを修正する
'*
'**********************************************************************
'* Rev.0：2012/12/14
Sub HtmlEdit1()
Const WorkAdd As String = "work"
Dim HypStr(100)
Dim A As String
Dim Cnt As Long
Dim P As Long
Dim HypCnt As Long
Dim Fname As String
Fname = Range(adr_Fname).Value
Do
A = Range(Adr_HPLChkStart).Offset(Cnt, 0).Value
HypStr(Cnt) = A
Cnt = Cnt + 1
Loop While A <> ""
HypCnt = Cnt - 1
Application.StatusBar = "HTMLファイル変換中"
Open Fname For Input As #1
Open Fname & WorkAdd For Output As #2
Do While Not EOF(1)
Line Input #1, A
For Cnt = 0 To HypCnt - 1
P = InStr(A, HypStr(Cnt))
If P > 0 Then
A = Replace(A, HypStr(Cnt), HypStr(Cnt) & """ target=""_blank")
End If
Next
Print #2, A
Loop
Close
Application.StatusBar = "WorkFile 削除"
Kill Fname
Name Fname & WorkAdd As Fname
Application.StatusBar = False
End Sub