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$

Start asking to get answers

Find the answer to your question by asking.

Ask question

Explore related questions

See similar questions with these tags.