Hello. This is my fist posting on this forum, and first posting on any forum for that matter. I have been trying for some time to export the value in my access field into an excel cell. The user will dblclick a hyperlink, which will open the corresponding file, as well open an excel template. Here is where I'm stuck. I need the code to take the hyperlink(path and filename), and stick it in an excel cell. This is what I have so far.
------------------------------------------
Private Sub DEMOS_NAME_DblClick(Cancel As Integer)
Dim LinkStr As String
LinkStr = [DEMOS NAME]
Application.FollowHyperlink LinkStr
Dim ObjXLApp As Object
Dim ObjXLBook As EXCEL.Workbook
Dim OSheet As EXCEL.Worksheet
Set ObjXLApp = CreateObject("Excel.Application")
Set ObjXLBook = ObjXLApp.Workbooks.Open("z:\upload\UPLOAD TEMPLATEv5.xls")
Set OSheet = ObjXLBook.Worksheets("Demo and Coding Entry")
ObjXLApp.Visible = True
Set d = CurrentDb()
Set r = d.OpenRecordset("PROCESSING")
Set fvalue = r.Fields("DEMOS NAME")
OSheet.Cells(2, 3) = fvalue
End Sub
-------------------------------------------------------------
If I put fvalue in quotes, it will transfer the text over, but i need the actual value of the hyperlink. And i do not need it to transfer as a link. Any help would be much appreciated.
------------------------------------------
Private Sub DEMOS_NAME_DblClick(Cancel As Integer)
Dim LinkStr As String
LinkStr = [DEMOS NAME]
Application.FollowHyperlink LinkStr
Dim ObjXLApp As Object
Dim ObjXLBook As EXCEL.Workbook
Dim OSheet As EXCEL.Worksheet
Set ObjXLApp = CreateObject("Excel.Application")
Set ObjXLBook = ObjXLApp.Workbooks.Open("z:\upload\UPLOAD TEMPLATEv5.xls")
Set OSheet = ObjXLBook.Worksheets("Demo and Coding Entry")
ObjXLApp.Visible = True
Set d = CurrentDb()
Set r = d.OpenRecordset("PROCESSING")
Set fvalue = r.Fields("DEMOS NAME")
OSheet.Cells(2, 3) = fvalue
End Sub
-------------------------------------------------------------
If I put fvalue in quotes, it will transfer the text over, but i need the actual value of the hyperlink. And i do not need it to transfer as a link. Any help would be much appreciated.