Re: ]] XL-mania [[ vba code hyperlink from excel 2007 to pdf

"mungkin karena tidak ada nya file PDF yang di tuju...mengakibatkan file Excell Error.."

Sebenarnya bukan error, hanya excel nya freezing tampilannya (paling tidak itu yang terjadi di excel 2007 saya) karena sedang ngeronda mencari file yang ternyata tidak ketemu, jika ditunggu kira-kira 5-10 detik (tergantung kecepatan komputer) maka akan terbuka Internet Explorer namun Blank Page (karena tidak ketemu Filenya), jika ketemu maka akan membuka isi file pdf-nya.

Berikut ini update dengan sedikit perubahannya yaitu tanpa membuka Internet Explorer jika File tidak ditemukan (dibuat dengan excel 2007, tidak dilakukan pengujian dengan Excel 2003).

Sub GoToPdfPage()
    Dim IE As Object, x As String, y As Integer, z As String
    On Error Resume Next
    x = "E:\Folder\Source.pdf" 'Ganti dengan alamat file
    y = 3 'ke hal 3
    z = GetAttr(x) And 0
    If Err = 0 Then
        Set IE = CreateObject("InternetExplorer.Application")
        IE.Navigate x & "#Page=" & y
        IE.Visible = True
    Else
        MsgBox "File tidak ditemukan!"
    End If
    On Error GoTo 0
End Sub


"tolong doong solusinya selain menginstall ulang,karena aku menggunakan Portable Office 2003"

coba kunjungi link berikut ini:
http://www.kbalertz.com/898512/receive.installed.current.error.message.start.Office.program.first.aspx
atau
http://support.microsoft.com/kb/898512

atau googling dengan kata: "microsoft excel has not been installed for the current user"

jika masih belum bisa, silakan posting lagi mungkin saya atau kawan yang lain bisa bantu. Atau Solved tapi dengan cara lain? member xl-mania pasti senang mengetahui cara-nya.



>semoga bermanfaat

---

From: PP 03 <ppc_03@sami.co.id>
To: XL-mania@yahoogroups.com
Sent: Fri, May 7, 2010 8:35:02 AM
Subject: Re: ]] XL-mania [[ vba code hyperlink from excel 2007 to pdf

 



mas anton waktu aku coba jalanin lampiran dari mas anton gagal mungkin karena tidak ada nya file PDF yang di tuju

mengakibatkan file Excell Error dan aku tutup paksa menggunakan Taks Manager

setelah aku buka Excel lagi selalu muncul

 

dan tidak bisa di gunakan bila di klik Ok Excel jadi menutup sendiri

tolong doong solusinya selain menginstall ulang,karena aku menggunakan Portable Office 2003

 

trimakasih

 

 

----- Original Message -----

From: anton suryadi

To: XL-mania@yahoogroup s.com

Sent: Thursday, May 06, 2010 12:51 PM

Subject: Re: ]] XL-mania [[ vba code hyperlink from excel 2007 to pdf

 

Tinggal ditemplokin ke worksheet event Worksheet_BeforeDou bleClick,

Sheet1:
Private Sub Worksheet_BeforeDou bleClick( ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$B$2" Then
Target.Offset( 1).Activate
GoToPdfPage
End If
End Sub

Module1:
Sub GoToPdfPage( )
    Dim IE As Object, x As String, y As Integer
    x = "E:\Folder\File. pdf" 'Ganti dengan alamat file
    y = 3 'ke hal 3
    On Error Resume Next
    Set IE = CreateObject( "InternetExplore r.Application" )
    IE.Navigate x & "#Page=" & y
    IE.Visible = True
    On Error GoTo 0
End Sub

File terlampir


>semoga bermanfaat

---

From: "denny_4milanisti@ yahoo.com" <denny_4milanisti@ yahoo.com>
To: XL-mania@yahoogroup s.com
Sent: Wed, May 5, 2010 2:02:44 PM
Subject: Re: ]] XL-mania [[ vba code hyperlink from excel 2007 to pdf

 

Dear all xl-mania member...

Pertanyaan tambahan

Kalo saya ingin membuat hyperlink dari cell saja tanpa object shape,dll. Contohnya di cell B1 saya ketik "link" dan mau saya hyperlink ke halaman tertentu file pdf dengan tambahan vba code bisa tidak ya?

Mohon bantuannya master-master

Terimakasih

Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT

---

From: anton suryadi <summonery@yahoo. com>

Date: Mon, 3 May 2010 09:05:46 +0800 (SGT)

To: <XL-mania@yahoogroup s.com>

Subject: Re: ]] XL-mania [[ vba code hyperlink from excel 2007 to pdf

 

ADA,
















Sub GoToPdfPage( )
    Dim IE As Object, x As String, y As Long
    x = "E:\Folder\File. pdf" 'Ganti dengan alamat file
    y = 11 'ke hal 11
    Set IE = CreateObject( "InternetExplore r.Application" )
    IE.Navigate x & "#Page=" & y
    IE.Visible = True
End Sub


>semoga bermanfaat

---

From: denny_4milanisti <denny_4milanisti@ yahoo.com>
To: XL-mania@yahoogroup s.com
Sent: Fri, April 30, 2010 7:06:14 PM
Subject: ]] XL-mania [[ vba code hyperlink from excel 2007 to pdf

 

Dear master-master excel.....

Mohon bantuannya dong,ada yang tau gak vba codenya hyperlink dari excel 2007 ke file pdf. Hyperlink ini langsung merujuk ke halaman tertentu pada file pdf yang di hubungkan.

Terimakasih

salam
denny