[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『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 >
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.