Senin, 23 Mei 2016

Re: [MS_AccessPros] Re: Get return value from Excel user function in Access

 

Thanks Crystal,
Just download it and will be working with it this week.
Thanks again
Rod



---In MS_Access_Professionals@yahoogroups.com, <strive4peace2008@...> wrote :

Hi Rod,

I just uploaded a sample for you to look at in Files > Crystal

https://groups.yahoo.com/neo/groups/MS_Access_Professionals/files/Crystal/

Call_Excel_GetMyInformation_fromAccess.zip

the GetMyInformation function if defined in Excel and can, of course, return whatever you like (smile)
 
warm regards,
crystal

~ have an awesome day ~

On 5/22/2016 3:37 PM, desertscroller@... [MS_Access_Professionals] wrote:
Thanks Bill for the response.  That is good about getting the version of Excel.  I think I did not present my issue correctly.  I have added created a vba add-in for Excel that is used to make changes to the data Excel prior to importing the data into Access.  I establish a version/revision variable in the add-in plus a function to return the version information but not sure how to call the function in Access so the version information can be verified to ensure that the current version is being used.

Your response helps by verifying which version of Excel is being used.

Rod


---In MS_Access_Professionals@yahoogroups.com, <wrmosca@...> wrote :

I forgat to mention that doing it that way requires that you add the Excel library to your references. You probably should not do it that way. Use late binding like this:


Public Function ExcelVersion() As String
    Dim objXL As Object         'Excel.Application
    Dim strVersNum As String
    
    Set objXL = CreateObject("Excel.Application")
    strVersNum = objXL.Version
    ExcelVersion = strVersNum
    Set objXL = Nothing
    
    
End Function


-Bill


---In MS_Access_Professionals@yahoogroups.com, <wrmosca@...> wrote :

Rod

Here is a very simplified snippet that returns the Excel version number.


Public Function ExcelVersion() As String
    Dim objXL As Excel.Application
    Dim strVersNum As String
    
    Set objXL = CreateObject("Excel.Application")
    strVersNum = objXL.Version
    ExcelVersion = strVersNum
    
    Set objXL = Nothing
    
    
End Function

Regards,
Bill Mosca, Founder - MS_Access_Professionals
Microsoft Office Access MVP
My nothing-to-do-with-Access blog



---In MS_Access_Professionals@yahoogroups.com, <desertscroller@...> wrote :

My application links a spreadsheet from Excel to Access (both 2010).  To get the data ready several user defined functions were created in Excel.  The issue is I would like to ensure that the user is using the current version of the add-in.  My idea is to create a Excel function to identify the current version.  Access would run the function and retrieve the version number and compare it to the latest released version.  I realize I will need to activate Excel with the add-in loaded to accomplish the data request.  Just not sure how to get the return value.

Any suggestions would be greatly appreciated.
Rod



 

__._,_.___

Posted by: desertscroller@cox.net
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (6)

Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.


.

__,_._,___

Tidak ada komentar:

Poskan Komentar