[[20140729173617]]　『Excel2000(.xls)のハイパーリンク関数で、Excel20』（すこやか茶）　ページの最後に飛ぶ

『Excel2000(.xls)のハイパーリンク関数で、Excel2007(.xlsx)を開く』（すこやか茶）

Excel2000(.xls)で顧客データベースを作成しており、
フォーム上で、顧客情報の登録を行っております。

このExcelファイルは多くの人が使用（登録・閲覧）する為、
共有ドライブにおいてあり、「ブックの共有」をしております。

ブックの共有状態の為、従来のハイパーリンク機能が使用不可であることから、
ハイパーリンク関数を用いて、PDF/Excel(.xls)/JPGのハイパーリンクを行っております。

私のPC(Win XP)では、Excel2007(.xlsx)を開けない為、
ファイル変換ソフト(2007 Office system互換機能パック）により、
読み取り専用では開くことができます。

質問内容として、
現状のコードでは、xlsは正常に開けるのですが、
xlsxは文字化けし開けません。正常（従来の読み取り専用）に開ける様、
ご教授頂けたら幸いで御座います。
（もちろんですが、xlsxが開けるPCでは、書き込み可能で開ける様に）

現状の、xlsをハイパーリンク関数で開くコードを記載いたします。
Private Sub CommandButton2_Click()
Dim ACR As Long
Dim WK_Link As String
Dim WSH
Dim XLApp As Excel.Application

    Worksheets("Sheet2").Activate
    ACR = ActiveCell.Row
    Cells(ACR, 141).Select
    ActiveCell.FormulaR1C1 = "=HYPERLINK(RC[-5],RC[-5])"

    WK_Link = Cells(ACR, 141).Value
    If Cells(ACR, 136) = "" Then
    Cells(ACR, 141).ClearContents
    Exit Sub
    End If
    If Right(WK_Link, 3) = "xls" Then
    Set XLApp = CreateObject("Excel.Application")
    XLApp.Workbooks.Open WK_Link
    XLApp.Visible = True
    Set XLApp = Nothing
    Else
    If Right(WK_Link, 3) = "pdf" Then
    Set WSH = CreateObject("Wscript.Shell")
    WSH.Run """" & WK_Link & """", 3
    Set WSH = Nothing
    Else
    If Right(WK_Link, 3) = "jpg" Then
    Set WSH = CreateObject("Wscript.Shell")
    WSH.Run """" & WK_Link & """", 3
    Set WSH = Nothing
    End If
    End If
    End If
Worksheets("Sheet1").Select
End Sub

上記コードの、
　　If Right(WK_Link, 3) = "xls" Then

    Set XLApp = CreateObject("Excel.Application")
    XLApp.Workbooks.Open WK_Link
    XLApp.Visible = True
    Set XLApp = Nothing
を
　　If Right(WK_Link, 4) = "xlsx" Then
    Set XLApp = CreateObject("Excel.Application")
    XLApp.Workbooks.Open WK_Link
    XLApp.Visible = True
    Set XLApp = Nothing
としてのですが、上手く動作しませんでした。
申し訳御座いませんが、宜しくお願い致します。

＜使用アプリ：Excel2000、使用 OS：WindowsXP ＞

マクロの動作するPCをExcel2007以上のものにするか、リンク先のファイルにxlsxを使わず、すべてxlsファイルで統一するかのどちらかでしょう。
（???） 2014/07/30(水) 08:31

コメント返信：

[ 一覧(最新更新順) ]

[[20140729173617]] 『Excel2000(.xls)のハイパーリンク関数で、Excel20』（すこやか茶） ページの最後に飛ぶ

[[20140729173617]]　『Excel2000(.xls)のハイパーリンク関数で、Excel20』（すこやか茶）　ページの最後に飛ぶ