2013年11月30日星期六
2013年11月27日星期三
2013年11月23日星期六
2013年11月20日星期三
2013年11月19日星期二
2013年11月12日星期二
Good Link
2013年11月11日星期一
雨文之投资.分享: 什么才是最好的投资？
雨文之投资.分享: 什么才是最好的投资？: 我常常都会遇到很多这一类型的顾客。他们开始玩股票时，输了钱，就觉得说股票很沉闷，就开始埋怨这些公司是骗人的，都被国内的基金操纵了。那么就转向玩期货，开始时赢了点钱，然后输回更多下去。然后就埋怨期指也是骗人的，股市也是被操纵了，小卡根本生存不到下去。结果听别人说，货币容易赚钱，...
雨文之投资.分享: 有形资产净值 Net Tangible Asset 怎样看？怎样算？
雨文之投资.分享: 有形资产净值 Net Tangible Asset 怎样看？怎样算？: Net Tangible Asset per share 简称为NTA 或NTA per Share，中文为每股有形资产净值。 一间公司的Total Asset（总资产）可以分为tangible asset（有形资产）和intangible asset（无形资产...
雨文之投资.分享: 收购程序，知多少？（第一篇）
雨文之投资.分享: 收购程序，知多少？（第一篇）: 一般的少数股东(minority shareholders)在收到献购书时，都会很茫然，那么一本书，里面都是一堆密密麻麻很难明白的字眼。在这个情况下，小股东们最担心就是自己的资本，所以就直接翻到最后一页，把自己的股转给了献购者(offeror)。有多少人会真正翻开，一页...
雨文之投资.分享: 收购程序，知多少？（完）
雨文之投资.分享: 收购程序，知多少？（完）: 继上一篇，笔者描述了整个收购过程后，这一篇主要是解开股东脑海里各式各样的问号。如果能了解整个过程的来龙去脉以及股东们的权利，那么就可以避免一些不必要的损失，又或者从中可以获取一些盈利。 迷思3：如果收购者开出的第一个价钱低过你的本钱，怎么办？ 在这个情况，股东最重要保持...
雨文之投资.分享: 与官有缘（Mr. Koon Yew Yin）一聚
雨文之投资.分享: 与官有缘（Mr. Koon Yew Yin）一聚: 也许一些人对Mr. Koon不熟悉，他是IJM，Mudajaya，Gamuda的创办人，或者谷歌一下他的名字，就会找到关于他的点滴。笔者第一次阅读Mr. Koon的文章是关于收购TWSPLNT。一直很想感谢他，那篇文章带给我对收购概念的启发，也激起了我对收购股的兴趣。星期四...
雨文之投资.分享: 凭单与认购凭单 (Warrant & Call Warrant) 2
雨文之投资.分享: 凭单与认购凭单 (Warrant & Call Warrant) 2: 打工有员工规则，在家有家规，国家要遵守国家法律，那么，玩游戏需不需要知道游戏规则？继上一篇《凭单与认购凭单 (Warrant & Call Warrant)》之后，应该有了一点点概念，我也收到了不少问题，所以在此综合一下，再次分享凭单与认购凭单里的游戏规则。 A...
2013年11月7日星期四
2013年11月6日星期三
2013年11月5日星期二
2013年11月4日星期一
投资与心理学 - Investment and Psychology: Instacom vs OCK vs RA
投资与心理学 - Investment and Psychology: Instacom vs OCK vs RA: Source: http://klse.i3investor.com/blogs/kianweiaritcles/39439.jsp Wednesday, 25 September Currently there are 3 companies ...
投资与心理学 - Investment and Psychology: HOVID BERHAD - Return To Health
投资与心理学 - Investment and Psychology: HOVID BERHAD - Return To Health: Source: http://klse.i3investor.com/blogs/PublicInvest/37010.jsp We visited Hovid‟s manufacturing plant in Chemor, Ipoh and were pleasantl...
投资与心理学 - Investment and Psychology: 受惠藥品專利到期‧何人可攀5年新高
投资与心理学 - Investment and Psychology: 受惠藥品專利到期‧何人可攀5年新高: Source: http://biz.sinchew.com.my/node/84142?tid=18 （吉隆坡21日訊）聯昌研究指出，未來5年將有高達1千330億美元的藥品專利到期，何人可（HOVID，7213，主板消費品組）勢必從中受益，刺激股價攀升至5年新高。 週一開市...
投资与心理学 - Investment and Psychology: 末季财报符合预期 企业总收益上修0.6%
投资与心理学 - Investment and Psychology: 末季财报符合预期 企业总收益上修0.6%: Source: http://www.nanyang.com/node/514678?tid=462 （吉隆坡2日讯）达证券指出，2012年第四季企业财报表现符合预期，该行连续6个季度下调收益预估后首度将2013年总体收益预估上修0.6%，建议增持油气、建筑、产业和电力...
2013年11月3日星期日
水也の投资、摄影部落: 冷眼分享锦集：大马吊机王- 辉高
水也の投资、摄影部落: 冷眼分享锦集：大马吊机王- 辉高: 以上四种工场，彼此之间没有一点关系，但是，假如你远望这四个场景的话，你一定会发现它们有一个共同点：吊机 (Crane) 林立，正在繁忙地工作。 没有了吊机，大厦根本无法施工，码头无法起卸货物，船坞无法操作，油井无法钻探石油煤气。 吊机是这些工作的核心器...
小郭投资部落: 即将腾飞的巨龙美景控股(MKH-6114)[中篇]
小郭投资部落: 即将腾飞的巨龙美景控股(MKH-6114)[中篇]: 上篇说到美景控股(MKH-6114)即将成为腾飞的巨龙,在一步一步重整蜕变计划后盈利也在2012年就大爆发,全年更创下5亿4529万1945令吉的营业额,盈利更比去年增加了96.34%,将近一倍的成长,成功录得7463万7613令吉的盈利。虽然带领盈利创新高的 产业发展项目Pel...
小郭投资部落: 沉睡中的巨龙=美景控股(MKH-6114)[上篇]
小郭投资部落: 沉睡中的巨龙=美景控股(MKH-6114)[上篇]: 小郭已经有很久没有发布新文章,所以今天就发表一个我本身认为的一个好公司美景控股(MKH-6114),就如标题所说,我把他誉为沉睡中的巨龙,为什么说他是巨龙,因为MKH Berhad前称Metro Kajang Berhad,意味着这间公司以Kajang(加影)为基地出发,创立于1...
2013年11月2日星期六
Extract Specific Link From Web Pages Using Excel VBA
A website visitor wants help on
how to automate the extraction of a specific hyper-link from web pages
using Excel VBA
'Hello Dr. Takyar,
It was pleasure talking to you the other day. Hope you and your friends/relatives were safe from the recent storm.
Here is the task that I would like to automate with Excel VBA and seeking help on. I liked your code for extracting table data from multiple web pages and creating and pasting it in respective worksheets - http://www.youtube.com/watch?v=qbOdUaf4yfI However my task is a bit different which is the following:
1) There are several (100s or 1000s) web-links in column A.
2) A connection is established with a web-link's webpage.
3) On the connected webpage, the first HREF link that contains the text "About" is copied and it's web-link is pasted in the adjacent cell in column B. If "About" HREF
link is not found on connected webpage, then the cell is populated with "NOT FOUND".
4) The connection is closed and steps 1 - 3 are repeated until there are no more web-links in column A.
Some examples we can try with are the following web-links in
column A:
Column A Column B
1) https://www.google.com/ https://www.google.com/intl/en/about/
2) https://www.facebook.com/ https://www.facebook.com/facebook
3) http://www.youtube.com/ http://www.youtube.com/yt/about/
4) http://www.yahoo.com/ http://info.yahoo.com/
5) http://www.wikipedia.org/ NOT FOUND
6) http://www.linkedin.com/ http://www.linkedin.com/about-us
Note:
1) When a respective "About" HREF link is copied from the webpage of a web-link in Column A, and the same is pasted in
Column B, the web-link of the "About" HREF link is displayed in Column B.
2) "About" HREF links on webpages can be one of several variations like - About, About Us, About "Company_Name", etc. Whatever it is, we want to capture the first HREF link that contains the text - "About".
Please feel free to email me with any questions or if you need me to call you.
best wishes,
Romi Ghose'
Here is the complete VBA with proper remarks:
Sub GetAboutUsLinks()
'First define all the variables
Dim ie As Object 'Internet Explorer
Dim html As Object ' HTML document
Dim myLinks As Object ' Links collection
Dim myLink As Object 'Single Link
Dim result As String
Dim myURL As String 'Web Links on worksheet
Dim LastRow As Integer ' VBA execution should stop here
Set ie = CreateObject("InternetExplorer.Application")
LastRow = Sheet1.Cells(Rows.Count, "A").End(xlUp).Row
'Loop through all the web links on the worksheet one by one and then do some things
For i = 2 To LastRow
'Get the link from the worksheet and assign it to the variable
myURL = Sheet1.Cells(i, 1).Value
'Now go to the website
ie.navigate myURL
'Keep the internet explorer visible
ie.Visible = True
'Ensure that the web page has downloaded completely
While ie.readyState <> 4
DoEvents
Wend
'Get the data from the web page that is in the links and assign it to the variable
result = ie.document.body.innerHTML
'create a new html file
Set html = CreateObject("htmlfile")
'now place all the data extracted from the web page into the new html document
html.body.innerHTML = result
Set myLinks = html.getElementsByTagName("a")
'loop through the collected links and get a specific link defined by the conditions
For Each myLink In myLinks
If Right$(myLink, 13) = "about-us.html" Or Right$(myLink, 10) = "about.html" Or Right$(myLink, 8) = "about-us" Or Right$(myLink, 5) = "about" Then
Sheet1.Cells(i, "B").Value = myLink
End If
'go to the next link
Next myLink
'once the last web link on the sheet has been visited close the internet explorer
If i = LastRow Then
ie.Quit
End If
' go to the next web link on the worksheet
Next i
End Sub
Watch the video on YouTube
'Hello Dr. Takyar,
It was pleasure talking to you the other day. Hope you and your friends/relatives were safe from the recent storm.
Here is the task that I would like to automate with Excel VBA and seeking help on. I liked your code for extracting table data from multiple web pages and creating and pasting it in respective worksheets - http://www.youtube.com/watch?v=qbOdUaf4yfI However my task is a bit different which is the following:
1) There are several (100s or 1000s) web-links in column A.
2) A connection is established with a web-link's webpage.
3) On the connected webpage, the first HREF link that contains the text "About" is copied and it's web-link is pasted in the adjacent cell in column B. If "About" HREF
link is not found on connected webpage, then the cell is populated with "NOT FOUND".
4) The connection is closed and steps 1 - 3 are repeated until there are no more web-links in column A.
Some examples we can try with are the following web-links in
column A:
Column A Column B
1) https://www.google.com/ https://www.google.com/intl/en/about/
2) https://www.facebook.com/ https://www.facebook.com/facebook
3) http://www.youtube.com/ http://www.youtube.com/yt/about/
4) http://www.yahoo.com/ http://info.yahoo.com/
5) http://www.wikipedia.org/ NOT FOUND
6) http://www.linkedin.com/ http://www.linkedin.com/about-us
Note:
1) When a respective "About" HREF link is copied from the webpage of a web-link in Column A, and the same is pasted in
Column B, the web-link of the "About" HREF link is displayed in Column B.
2) "About" HREF links on webpages can be one of several variations like - About, About Us, About "Company_Name", etc. Whatever it is, we want to capture the first HREF link that contains the text - "About".
Please feel free to email me with any questions or if you need me to call you.
best wishes,
Romi Ghose'
Here is the complete VBA with proper remarks:
Sub GetAboutUsLinks()
'First define all the variables
Dim ie As Object 'Internet Explorer
Dim html As Object ' HTML document
Dim myLinks As Object ' Links collection
Dim myLink As Object 'Single Link
Dim result As String
Dim myURL As String 'Web Links on worksheet
Dim LastRow As Integer ' VBA execution should stop here
Set ie = CreateObject("InternetExplorer.Application")
LastRow = Sheet1.Cells(Rows.Count, "A").End(xlUp).Row
'Loop through all the web links on the worksheet one by one and then do some things
For i = 2 To LastRow
'Get the link from the worksheet and assign it to the variable
myURL = Sheet1.Cells(i, 1).Value
'Now go to the website
ie.navigate myURL
'Keep the internet explorer visible
ie.Visible = True
'Ensure that the web page has downloaded completely
While ie.readyState <> 4
DoEvents
Wend
'Get the data from the web page that is in the links and assign it to the variable
result = ie.document.body.innerHTML
'create a new html file
Set html = CreateObject("htmlfile")
'now place all the data extracted from the web page into the new html document
html.body.innerHTML = result
Set myLinks = html.getElementsByTagName("a")
'loop through the collected links and get a specific link defined by the conditions
For Each myLink In myLinks
If Right$(myLink, 13) = "about-us.html" Or Right$(myLink, 10) = "about.html" Or Right$(myLink, 8) = "about-us" Or Right$(myLink, 5) = "about" Then
Sheet1.Cells(i, "B").Value = myLink
End If
'go to the next link
Next myLink
'once the last web link on the sheet has been visited close the internet explorer
If i = LastRow Then
ie.Quit
End If
' go to the next web link on the worksheet
Next i
End Sub
Watch the video on YouTube
订阅：
博文 (Atom)