2
$\begingroup$

I have two lists. One is hyperlinks, the other is the title for each link

I see that there was a bug in exporting this in 11.2

which I hope has been fixed. All I want to do is export to Excel my list of names with the hyperlinks embedded in them, a kind of merge operation

Here is a sample

Transpose[{shortlist, shortnames}]

Which outputs this

(*{{"https://www.imdb.com/title/tt3053860/?ref_=nv_sr_srsg_0","The Chef's Wife (2014)"},{"https://www.imdb.com/title/tt1073241/?ref_=nv_sr_srsg_2","Nothing But the Truth (2008)"},{"https://www.imdb.com/title/tt1226774/?ref_=nv_sr_srsg_0","In the Loop (2009)"},{"https://www.imdb.com/title/tt8925546/?ref_=nv_sr_srsg_0","Getting to Know You (2020)"}}*)
Improve this question
$\endgroup$

2 Answers 2

Reset to default
0
$\begingroup$

I am running v12.2.0, Win7-x64 and 2013 Excel.

data = {{"https://www.imdb.com/title/tt3053860/?ref_=nv_sr_srsg_0", 
   "The Chef's Wife (2014)"}, \
{"https://www.imdb.com/title/tt1073241/?ref_=nv_sr_srsg_2", 
   "Nothing But the Truth (2008)"}, \
{"https://www.imdb.com/title/tt1226774/?ref_=nv_sr_srsg_0", 
   "In the Loop (2009)"}, \
{"https://www.imdb.com/title/tt8925546/?ref_=nv_sr_srsg_0", 
   "Getting to Know You (2020)"}}

dataexp = {Hyperlink @@ {Last@#, First@#}, Last@#} & /@ data

Export["C:/test.xlsx", dataexp]

enter image description here

Improve this answer
$\endgroup$
1
  • $\begingroup$ If it is not inconvenient, please leave a helpful comment as you downvote. $\endgroup$ Commented Feb 14, 2023 at 16:39
2
$\begingroup$ 
With[
    {
        links = {
                    {"https://www.imdb.com/title/tt3053860/?ref_=nv_sr_srsg_0","The Chef's Wife (2014)"},
                    {"https://www.imdb.com/title/tt1073241/?ref_=nv_sr_srsg_2","Nothing But the Truth (2008)"},
                    {"https://www.imdb.com/title/tt1226774/?ref_=nv_sr_srsg_0","In the Loop (2009)"},
                    {"https://www.imdb.com/title/tt8925546/?ref_=nv_sr_srsg_0","Getting to Know You (2020)"}
                }
    },
    Export[
        "test.XLSX",
        Apply[Hyperlink,Reverse[#]] & /@ links 
    ]
]

enter image description here

Improve this answer
$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Start asking to get answers

Find the answer to your question by asking.

Ask question

Explore related questions

See similar questions with these tags.