http://www.iopus.com/download/
Save the following code into "testing.vbs" and double click to run, the extracted data will be stored in c:\extract.csv (in this demo, only 2 records has been extracted)
'Option Explicit
Dim iim1, iret
Dim rn, i, keyword, vals
'MsgBox ("This example script uses NO macros, but sends the macro code directly.")
set iim1= CreateObject ("imacros")
iret = iim1.iimInit
Dim MyMacroCode
iret = iim1.iimDisplay("Start demo")
dim arrayvars(843)
arrayvars(1)="601398"
arrayvars(2)="601988"
arrayvars(3)="600028"
arrayvars(4)="601628"
arrayvars(5)="601318"
arrayvars(6)="600036"
arrayvars(7)="601600"
arrayvars(8)="601328"
arrayvars(9)="601998"
arrayvars(10)="600019"
arrayvars(11)="600030"
arrayvars(12)="601166"
arrayvars(13)="600016"
arrayvars(14)="601006"
arrayvars(15)="600000"
arrayvars(16)="600018"
arrayvars(17)="601991"
arrayvars(18)="600837"
arrayvars(19)="600900"
arrayvars(20)="600104"
arrayvars(21)="600050"
arrayvars(22)="600519"
arrayvars(23)="601168"
arrayvars(24)="601919"
arrayvars(25)="600011"
arrayvars(26)="600005"
arrayvars(27)="601111"
arrayvars(28)="600048"
arrayvars(29)="600015"
arrayvars(30)="600009"
arrayvars(31)="600177"
arrayvars(32)="600688"
arrayvars(33)="600309"
arrayvars(34)="600585"
arrayvars(35)="600320"
arrayvars(36)="600026"
arrayvars(37)="600362"
arrayvars(38)="600188"
arrayvars(39)="600029"
arrayvars(40)="600739"
arrayvars(41)="600031"
arrayvars(42)="600642"
arrayvars(43)="600150"
arrayvars(44)="601333"
arrayvars(45)="600808"
arrayvars(46)="600717"
arrayvars(47)="600383"
arrayvars(48)="600583"
arrayvars(49)="600219"
arrayvars(50)="601588"
arrayvars(51)="601009"
arrayvars(52)="601872"
arrayvars(53)="600811"
arrayvars(54)="600795"
arrayvars(55)="600663"
arrayvars(56)="600027"
arrayvars(57)="600881"
arrayvars(58)="600377"
arrayvars(59)="600832"
arrayvars(60)="600037"
arrayvars(61)="601699"
arrayvars(62)="600350"
arrayvars(63)="600497"
arrayvars(64)="600660"
arrayvars(65)="600008"
arrayvars(66)="600208"
arrayvars(67)="600675"
arrayvars(68)="600115"
arrayvars(69)="600221"
arrayvars(70)="600649"
arrayvars(71)="600871"
arrayvars(72)="601001"
arrayvars(73)="601003"
arrayvars(74)="600098"
arrayvars(75)="600786"
arrayvars(76)="601666"
arrayvars(77)="600331"
arrayvars(78)="600690"
arrayvars(79)="600528"
arrayvars(80)="600895"
arrayvars(81)="600058"
arrayvars(82)="600010"
arrayvars(83)="600550"
arrayvars(84)="600835"
arrayvars(85)="600489"
arrayvars(86)="600143"
arrayvars(87)="600631"
arrayvars(88)="600266"
arrayvars(89)="600456"
arrayvars(90)="600022"
arrayvars(91)="600472"
arrayvars(92)="600089"
arrayvars(93)="600100"
arrayvars(94)="600500"
arrayvars(95)="600595"
arrayvars(96)="600685"
arrayvars(97)="600007"
arrayvars(98)="600109"
arrayvars(99)="600748"
arrayvars(100)="600348"
arrayvars(101)="600875"
arrayvars(102)="600428"
arrayvars(103)="600269"
arrayvars(104)="600001"
arrayvars(105)="600664"
arrayvars(106)="600655"
arrayvars(107)="600004"
arrayvars(108)="600236"
arrayvars(109)="600582"
arrayvars(110)="600569"
arrayvars(111)="600276"
arrayvars(112)="600839"
arrayvars(113)="600859"
arrayvars(114)="600598"
arrayvars(115)="600694"
arrayvars(116)="600299"
arrayvars(117)="600600"
arrayvars(118)="600085"
arrayvars(119)="600809"
arrayvars(120)="600611"
arrayvars(121)="600997"
arrayvars(122)="600635"
arrayvars(123)="600068"
arrayvars(124)="600158"
arrayvars(125)="600887"
arrayvars(126)="600102"
arrayvars(127)="600547"
arrayvars(128)="600978"
arrayvars(129)="600548"
arrayvars(130)="600006"
arrayvars(131)="600325"
arrayvars(132)="600111"
arrayvars(133)="600508"
arrayvars(134)="600153"
arrayvars(135)="600308"
arrayvars(136)="600879"
arrayvars(137)="600096"
arrayvars(138)="600123"
arrayvars(139)="600282"
arrayvars(140)="600052"
arrayvars(141)="600816"
arrayvars(142)="600021"
arrayvars(143)="600886"
arrayvars(144)="600196"
arrayvars(145)="600183"
arrayvars(146)="600804"
arrayvars(147)="600020"
arrayvars(148)="600961"
arrayvars(149)="600549"
arrayvars(150)="600270"
arrayvars(151)="600132"
arrayvars(152)="600432"
arrayvars(153)="600357"
arrayvars(154)="600823"
arrayvars(155)="600741"
arrayvars(156)="600863"
arrayvars(157)="600627"
arrayvars(158)="600271"
arrayvars(159)="600601"
arrayvars(160)="600597"
arrayvars(161)="600761"
arrayvars(162)="600415"
arrayvars(163)="600256"
arrayvars(164)="600033"
arrayvars(165)="600161"
arrayvars(166)="600591"
arrayvars(167)="600108"
arrayvars(168)="600596"
arrayvars(169)="600641"
arrayvars(170)="600963"
arrayvars(171)="600638"
arrayvars(172)="600307"
arrayvars(173)="600718"
arrayvars(174)="600210"
arrayvars(175)="600361"
arrayvars(176)="600533"
arrayvars(177)="600166"
arrayvars(178)="600380"
arrayvars(179)="600376"
arrayvars(180)="600062"
arrayvars(181)="600825"
arrayvars(182)="600418"
arrayvars(183)="600639"
arrayvars(184)="600588"
arrayvars(185)="600755"
arrayvars(186)="600868"
arrayvars(187)="600874"
arrayvars(188)="600535"
arrayvars(189)="600258"
arrayvars(190)="600066"
arrayvars(191)="600665"
arrayvars(192)="600067"
arrayvars(193)="600616"
arrayvars(194)="600064"
arrayvars(195)="600246"
arrayvars(196)="600220"
arrayvars(197)="600162"
arrayvars(198)="600012"
arrayvars(199)="600643"
arrayvars(200)="600517"
arrayvars(201)="600110"
arrayvars(202)="600125"
arrayvars(203)="600170"
arrayvars(204)="600628"
arrayvars(205)="600195"
arrayvars(206)="600322"
arrayvars(207)="600439"
arrayvars(208)="600970"
arrayvars(209)="600481"
arrayvars(210)="600864"
arrayvars(211)="600169"
arrayvars(212)="600072"
arrayvars(213)="601005"
arrayvars(214)="600851"
arrayvars(215)="600653"
arrayvars(216)="600829"
arrayvars(217)="600312"
arrayvars(218)="600779"
arrayvars(219)="600151"
arrayvars(220)="600820"
arrayvars(221)="600438"
arrayvars(222)="600737"
arrayvars(223)="600316"
arrayvars(224)="600426"
arrayvars(225)="600754"
arrayvars(226)="600787"
arrayvars(227)="600290"
arrayvars(228)="600138"
arrayvars(229)="600467"
arrayvars(230)="600249"
arrayvars(231)="600087"
arrayvars(232)="600298"
arrayvars(233)="601002"
arrayvars(234)="600896"
arrayvars(235)="600662"
arrayvars(236)="600118"
arrayvars(237)="600884"
arrayvars(238)="600386"
arrayvars(239)="600054"
arrayvars(240)="600176"
arrayvars(241)="600607"
arrayvars(242)="600198"
arrayvars(243)="600332"
arrayvars(244)="600888"
arrayvars(245)="600736"
arrayvars(246)="600797"
arrayvars(247)="600003"
arrayvars(248)="600416"
arrayvars(249)="600352"
arrayvars(250)="600088"
arrayvars(251)="600121"
arrayvars(252)="600677"
arrayvars(253)="600609"
arrayvars(254)="600725"
arrayvars(255)="600578"
arrayvars(256)="600686"
arrayvars(257)="600849"
arrayvars(258)="600075"
arrayvars(259)="600770"
arrayvars(260)="600410"
arrayvars(261)="600035"
arrayvars(262)="600315"
arrayvars(263)="600295"
arrayvars(264)="600780"
arrayvars(265)="600704"
arrayvars(266)="600586"
arrayvars(267)="600509"
arrayvars(268)="600812"
arrayvars(269)="600408"
arrayvars(270)="600733"
arrayvars(271)="600406"
arrayvars(272)="600648"
arrayvars(273)="600263"
arrayvars(274)="600747"
arrayvars(275)="600107"
arrayvars(276)="600103"
arrayvars(277)="600776"
arrayvars(278)="600790"
arrayvars(279)="600981"
arrayvars(280)="600190"
arrayvars(281)="600482"
arrayvars(282)="600117"
arrayvars(283)="600396"
arrayvars(284)="600623"
arrayvars(285)="600507"
arrayvars(286)="600267"
arrayvars(287)="600819"
arrayvars(288)="600511"
arrayvars(289)="600815"
arrayvars(290)="600053"
arrayvars(291)="600017"
arrayvars(292)="600525"
arrayvars(293)="600186"
arrayvars(294)="600106"
arrayvars(295)="600845"
arrayvars(296)="600518"
arrayvars(297)="600160"
arrayvars(298)="600729"
arrayvars(299)="600971"
arrayvars(300)="601008"
arrayvars(301)="600650"
arrayvars(302)="600240"
arrayvars(303)="600300"
arrayvars(304)="600038"
arrayvars(305)="600289"
arrayvars(306)="600726"
arrayvars(307)="600409"
arrayvars(308)="600651"
arrayvars(309)="600317"
arrayvars(310)="600637"
arrayvars(311)="600360"
arrayvars(312)="600973"
arrayvars(313)="600127"
arrayvars(314)="600826"
arrayvars(315)="600059"
arrayvars(316)="600459"
arrayvars(317)="600126"
arrayvars(318)="600880"
arrayvars(319)="600743"
arrayvars(320)="600831"
arrayvars(321)="600521"
arrayvars(322)="600824"
arrayvars(323)="600231"
arrayvars(324)="600698"
arrayvars(325)="600750"
arrayvars(326)="600060"
arrayvars(327)="600894"
arrayvars(328)="600800"
arrayvars(329)="600682"
arrayvars(330)="600744"
arrayvars(331)="600618"
arrayvars(332)="600872"
arrayvars(333)="600498"
arrayvars(334)="600287"
arrayvars(335)="600090"
arrayvars(336)="600890"
arrayvars(337)="600897"
arrayvars(338)="600806"
arrayvars(339)="600436"
arrayvars(340)="600621"
arrayvars(341)="600867"
arrayvars(342)="600640"
arrayvars(343)="600740"
arrayvars(344)="600581"
arrayvars(345)="600877"
arrayvars(346)="600069"
arrayvars(347)="600310"
arrayvars(348)="600191"
arrayvars(349)="600531"
arrayvars(350)="600602"
arrayvars(351)="600073"
arrayvars(352)="600337"
arrayvars(353)="600122"
arrayvars(354)="600584"
arrayvars(355)="600798"
arrayvars(356)="600674"
arrayvars(357)="600063"
arrayvars(358)="600171"
arrayvars(359)="600501"
arrayvars(360)="600275"
arrayvars(361)="600120"
arrayvars(362)="600834"
arrayvars(363)="600078"
arrayvars(364)="600858"
arrayvars(365)="600399"
arrayvars(366)="600589"
arrayvars(367)="600393"
arrayvars(368)="600129"
arrayvars(369)="600328"
arrayvars(370)="600460"
arrayvars(371)="600723"
arrayvars(372)="600202"
arrayvars(373)="600555"
arrayvars(374)="600827"
arrayvars(375)="600622"
arrayvars(376)="600178"
arrayvars(377)="600082"
arrayvars(378)="600654"
arrayvars(379)="600861"
arrayvars(380)="600131"
arrayvars(381)="600475"
arrayvars(382)="600702"
arrayvars(383)="600291"
arrayvars(384)="600865"
arrayvars(385)="600491"
arrayvars(386)="600135"
arrayvars(387)="600477"
arrayvars(388)="600327"
arrayvars(389)="600367"
arrayvars(390)="600841"
arrayvars(391)="600429"
arrayvars(392)="600570"
arrayvars(393)="600423"
arrayvars(394)="600708"
arrayvars(395)="600606"
arrayvars(396)="600339"
arrayvars(397)="600840"
arrayvars(398)="600084"
arrayvars(399)="600991"
arrayvars(400)="600366"
arrayvars(401)="600197"
arrayvars(402)="600130"
arrayvars(403)="600563"
arrayvars(404)="600189"
arrayvars(405)="600251"
arrayvars(406)="600252"
arrayvars(407)="600311"
arrayvars(408)="600206"
arrayvars(409)="600192"
arrayvars(410)="600765"
arrayvars(411)="600710"
arrayvars(412)="600777"
arrayvars(413)="600330"
arrayvars(414)="600821"
arrayvars(415)="600488"
arrayvars(416)="600217"
arrayvars(417)="600086"
arrayvars(418)="600791"
arrayvars(419)="600676"
arrayvars(420)="600173"
arrayvars(421)="600705"
arrayvars(422)="600866"
arrayvars(423)="600281"
arrayvars(424)="600200"
arrayvars(425)="600993"
arrayvars(426)="600391"
arrayvars(427)="600292"
arrayvars(428)="600074"
arrayvars(429)="600278"
arrayvars(430)="600333"
arrayvars(431)="600716"
arrayvars(432)="600156"
arrayvars(433)="600546"
arrayvars(434)="600626"
arrayvars(435)="600801"
arrayvars(436)="600479"
arrayvars(437)="600962"
arrayvars(438)="600056"
arrayvars(439)="600230"
arrayvars(440)="600854"
arrayvars(441)="600697"
arrayvars(442)="600516"
arrayvars(443)="600201"
arrayvars(444)="600468"
arrayvars(445)="600363"
arrayvars(446)="600168"
arrayvars(447)="600667"
arrayvars(448)="600720"
arrayvars(449)="600261"
arrayvars(450)="601007"
arrayvars(451)="600302"
arrayvars(452)="600387"
arrayvars(453)="600283"
arrayvars(454)="600159"
arrayvars(455)="600713"
arrayvars(456)="600203"
arrayvars(457)="600789"
arrayvars(458)="600805"
arrayvars(459)="600853"
arrayvars(460)="600215"
arrayvars(461)="600358"
arrayvars(462)="600469"
arrayvars(463)="600775"
arrayvars(464)="600862"
arrayvars(465)="600216"
arrayvars(466)="600814"
arrayvars(467)="600395"
arrayvars(468)="600830"
arrayvars(469)="600855"
arrayvars(470)="600145"
arrayvars(471)="600802"
arrayvars(472)="600522"
arrayvars(473)="600553"
arrayvars(474)="600529"
arrayvars(475)="600557"
arrayvars(476)="600390"
arrayvars(477)="600848"
arrayvars(478)="600580"
arrayvars(479)="600764"
arrayvars(480)="600838"
arrayvars(481)="600636"
arrayvars(482)="600378"
arrayvars(483)="600590"
arrayvars(484)="600810"
arrayvars(485)="600260"
arrayvars(486)="600966"
arrayvars(487)="600336"
arrayvars(488)="600527"
arrayvars(489)="600149"
arrayvars(490)="600844"
arrayvars(491)="600893"
arrayvars(492)="600212"
arrayvars(493)="600326"
arrayvars(494)="600382"
arrayvars(495)="600182"
arrayvars(496)="600612"
arrayvars(497)="600079"
arrayvars(498)="600368"
arrayvars(499)="600112"
arrayvars(500)="600695"
arrayvars(501)="600227"
arrayvars(502)="600141"
arrayvars(503)="600785"
arrayvars(504)="600496"
arrayvars(505)="600253"
arrayvars(506)="600738"
arrayvars(507)="600505"
arrayvars(508)="600175"
arrayvars(509)="600329"
arrayvars(510)="600284"
arrayvars(511)="600594"
arrayvars(512)="600285"
arrayvars(513)="600652"
arrayvars(514)="600288"
arrayvars(515)="600133"
arrayvars(516)="600303"
arrayvars(517)="600051"
arrayvars(518)="600323"
arrayvars(519)="600657"
arrayvars(520)="600301"
arrayvars(521)="600420"
arrayvars(522)="600673"
arrayvars(523)="600510"
arrayvars(524)="600372"
arrayvars(525)="600193"
arrayvars(526)="600388"
arrayvars(527)="600592"
arrayvars(528)="600683"
arrayvars(529)="600480"
arrayvars(530)="600610"
arrayvars(531)="600211"
arrayvars(532)="600128"
arrayvars(533)="600572"
arrayvars(534)="600279"
arrayvars(535)="600751"
arrayvars(536)="600818"
arrayvars(537)="600567"
arrayvars(538)="600730"
arrayvars(539)="600398"
arrayvars(540)="600273"
arrayvars(541)="600678"
arrayvars(542)="600400"
arrayvars(543)="600757"
arrayvars(544)="600523"
arrayvars(545)="600207"
arrayvars(546)="600630"
arrayvars(547)="600986"
arrayvars(548)="600526"
arrayvars(549)="600995"
arrayvars(550)="600701"
arrayvars(551)="600644"
arrayvars(552)="600039"
arrayvars(553)="600268"
arrayvars(554)="600280"
arrayvars(555)="600237"
arrayvars(556)="600458"
arrayvars(557)="600668"
arrayvars(558)="600731"
arrayvars(559)="600167"
arrayvars(560)="600724"
arrayvars(561)="600883"
arrayvars(562)="600243"
arrayvars(563)="600828"
arrayvars(564)="600095"
arrayvars(565)="600057"
arrayvars(566)="600684"
arrayvars(567)="600370"
arrayvars(568)="600693"
arrayvars(569)="600209"
arrayvars(570)="600536"
arrayvars(571)="600179"
arrayvars(572)="600487"
arrayvars(573)="600495"
arrayvars(574)="600247"
arrayvars(575)="600608"
arrayvars(576)="600782"
arrayvars(577)="600389"
arrayvars(578)="600576"
arrayvars(579)="600486"
arrayvars(580)="600238"
arrayvars(581)="600620"
arrayvars(582)="600499"
arrayvars(583)="600771"
arrayvars(584)="600987"
arrayvars(585)="600727"
arrayvars(586)="600199"
arrayvars(587)="600385"
arrayvars(588)="600605"
arrayvars(589)="600081"
arrayvars(590)="600313"
arrayvars(591)="600512"
arrayvars(592)="600769"
arrayvars(593)="600223"
arrayvars(594)="600732"
arrayvars(595)="600707"
arrayvars(596)="600343"
arrayvars(597)="600767"
arrayvars(598)="600604"
arrayvars(599)="600272"
arrayvars(600)="600842"
arrayvars(601)="600091"
arrayvars(602)="600319"
arrayvars(603)="600405"
arrayvars(604)="600152"
arrayvars(605)="600545"
arrayvars(606)="600061"
arrayvars(607)="600728"
arrayvars(608)="600692"
arrayvars(609)="600229"
arrayvars(610)="600163"
arrayvars(611)="600515"
arrayvars(612)="600071"
arrayvars(613)="600318"
arrayvars(614)="600645"
arrayvars(615)="600870"
arrayvars(616)="600356"
arrayvars(617)="600116"
arrayvars(618)="600470"
arrayvars(619)="600435"
arrayvars(620)="600359"
arrayvars(621)="600624"
arrayvars(622)="600565"
arrayvars(623)="600462"
arrayvars(624)="600099"
arrayvars(625)="600226"
arrayvars(626)="600778"
arrayvars(627)="600965"
arrayvars(628)="600633"
arrayvars(629)="600093"
arrayvars(630)="600983"
arrayvars(631)="600696"
arrayvars(632)="600055"
arrayvars(633)="600321"
arrayvars(634)="600746"
arrayvars(635)="600619"
arrayvars(636)="600860"
arrayvars(637)="600530"
arrayvars(638)="600232"
arrayvars(639)="600742"
arrayvars(640)="600679"
arrayvars(641)="600076"
arrayvars(642)="600538"
arrayvars(643)="600222"
arrayvars(644)="600476"
arrayvars(645)="600137"
arrayvars(646)="600305"
arrayvars(647)="600506"
arrayvars(648)="600293"
arrayvars(649)="600218"
arrayvars(650)="600172"
arrayvars(651)="600822"
arrayvars(652)="600157"
arrayvars(653)="600889"
arrayvars(654)="600257"
arrayvars(655)="600105"
arrayvars(656)="600379"
arrayvars(657)="600573"
arrayvars(658)="600869"
arrayvars(659)="600250"
arrayvars(660)="600155"
arrayvars(661)="600345"
arrayvars(662)="600255"
arrayvars(663)="600561"
arrayvars(664)="600749"
arrayvars(665)="600898"
arrayvars(666)="600680"
arrayvars(667)="600763"
arrayvars(668)="600083"
arrayvars(669)="600719"
arrayvars(670)="600101"
arrayvars(671)="600784"
arrayvars(672)="600180"
arrayvars(673)="600422"
arrayvars(674)="600846"
arrayvars(675)="600766"
arrayvars(676)="600397"
arrayvars(677)="600463"
arrayvars(678)="600277"
arrayvars(679)="600185"
arrayvars(680)="600577"
arrayvars(681)="600558"
arrayvars(682)="600381"
arrayvars(683)="600148"
arrayvars(684)="600796"
arrayvars(685)="600614"
arrayvars(686)="600235"
arrayvars(687)="600146"
arrayvars(688)="600371"
arrayvars(689)="600807"
arrayvars(690)="600094"
arrayvars(691)="600233"
arrayvars(692)="600448"
arrayvars(693)="600722"
arrayvars(694)="600478"
arrayvars(695)="600579"
arrayvars(696)="600262"
arrayvars(697)="600483"
arrayvars(698)="600306"
arrayvars(699)="600615"
arrayvars(700)="600975"
arrayvars(701)="600843"
arrayvars(702)="600969"
arrayvars(703)="600575"
arrayvars(704)="600556"
arrayvars(705)="600661"
arrayvars(706)="600758"
arrayvars(707)="600984"
arrayvars(708)="600666"
arrayvars(709)="600449"
arrayvars(710)="600836"
arrayvars(711)="600355"
arrayvars(712)="600080"
arrayvars(713)="600857"
arrayvars(714)="600485"
arrayvars(715)="600803"
arrayvars(716)="600540"
arrayvars(717)="600375"
arrayvars(718)="600452"
arrayvars(719)="600392"
arrayvars(720)="600756"
arrayvars(721)="600401"
arrayvars(722)="600539"
arrayvars(723)="600979"
arrayvars(724)="600781"
arrayvars(725)="600617"
arrayvars(726)="600114"
arrayvars(727)="600715"
arrayvars(728)="600714"
arrayvars(729)="600119"
arrayvars(730)="600425"
arrayvars(731)="600876"
arrayvars(732)="600817"
arrayvars(733)="600403"
arrayvars(734)="600712"
arrayvars(735)="600502"
arrayvars(736)="600891"
arrayvars(737)="600552"
arrayvars(738)="600537"
arrayvars(739)="600571"
arrayvars(740)="600587"
arrayvars(741)="600967"
arrayvars(742)="600882"
arrayvars(743)="600184"
arrayvars(744)="600773"
arrayvars(745)="600466"
arrayvars(746)="600259"
arrayvars(747)="600421"
arrayvars(748)="600228"
arrayvars(749)="600559"
arrayvars(750)="600783"
arrayvars(751)="600992"
arrayvars(752)="600760"
arrayvars(753)="600976"
arrayvars(754)="600297"
arrayvars(755)="600446"
arrayvars(756)="600335"
arrayvars(757)="600613"
arrayvars(758)="600850"
arrayvars(759)="600461"
arrayvars(760)="600982"
arrayvars(761)="600165"
arrayvars(762)="600603"
arrayvars(763)="600113"
arrayvars(764)="600543"
arrayvars(765)="600354"
arrayvars(766)="600833"
arrayvars(767)="600856"
arrayvars(768)="600960"
arrayvars(769)="600689"
arrayvars(770)="600735"
arrayvars(771)="600213"
arrayvars(772)="600365"
arrayvars(773)="600885"
arrayvars(774)="600351"
arrayvars(775)="600560"
arrayvars(776)="600239"
arrayvars(777)="600671"
arrayvars(778)="600658"
arrayvars(779)="600338"
arrayvars(780)="600433"
arrayvars(781)="600265"
arrayvars(782)="600734"
arrayvars(783)="600346"
arrayvars(784)="600774"
arrayvars(785)="600077"
arrayvars(786)="600490"
arrayvars(787)="600493"
arrayvars(788)="600599"
arrayvars(789)="600139"
arrayvars(790)="600768"
arrayvars(791)="600753"
arrayvars(792)="600792"
arrayvars(793)="600980"
arrayvars(794)="600794"
arrayvars(795)="600681"
arrayvars(796)="600340"
arrayvars(797)="600687"
arrayvars(798)="600793"
arrayvars(799)="600699"
arrayvars(800)="600892"
arrayvars(801)="600241"
arrayvars(802)="600503"
arrayvars(803)="600097"
arrayvars(804)="600711"
arrayvars(805)="600353"
arrayvars(806)="600520"
arrayvars(807)="600985"
arrayvars(808)="600225"
arrayvars(809)="600721"
arrayvars(810)="600990"
arrayvars(811)="600136"
arrayvars(812)="600070"
arrayvars(813)="600568"
arrayvars(814)="600988"
arrayvars(815)="600551"
arrayvars(816)="600234"
arrayvars(817)="600532"
arrayvars(818)="600373"
arrayvars(819)="600566"
arrayvars(820)="600656"
arrayvars(821)="600593"
arrayvars(822)="600647"
arrayvars(823)="600691"
arrayvars(824)="600444"
arrayvars(825)="600873"
arrayvars(826)="600634"
arrayvars(827)="600562"
arrayvars(828)="600513"
arrayvars(829)="600455"
arrayvars(830)="600242"
arrayvars(831)="600706"
arrayvars(832)="600847"
arrayvars(833)="600369"
arrayvars(834)="600248"
arrayvars(835)="600419"
arrayvars(836)="600703"
arrayvars(837)="600745"
arrayvars(838)="600759"
arrayvars(839)="600629"
arrayvars(840)="600187"
arrayvars(841)="600762"
arrayvars(842)="600629"
'Run the macro
for vals = 1 to 2
vals_string = CStr(arrayvars(vals))
MyMacroCode = "CODE:"
MyMacroCode = MyMacroCode+"VERSION BUILD=6000818" + vbNewLine
' MyMacroCode = MyMacroCode+"URL GOTO=http://www.hkex.com.hk/csm/result.asp?location=companySearch&SearchMethod=2&mkt=sh&LangCode=tc&StockType=ASHARES&Ranking=ByMC&x=62&y=16" + vbNewLine
MyMacroCode = MyMacroCode+"URL GOTO=http://www.hkex.com.hk/csm/company.asp?LangCode=sc&mkt=sh&StockCode="+vals_string + vbNewLine
MyMacroCode = MyMacroCode+"SIZE X=885 Y=611" + vbNewLine
' MyMacroCode = MyMacroCode+"TAG POS=1 TYPE=A ATTR=TXT:中國工商銀行股份有限公司
MyMacroCode = MyMacroCode+"WAIT SECONDS=1" + vbNewLine
MyMacroCode = MyMacroCode+"TAG POS=1 TYPE=A ATTR=CLASS:link2&&TXT:*&&HREF:http://www.hkex.com.hk/csm/company.asp?LangCode=sc&mkt=hk&StockCode=* EXTRACT=TXT" + vbNewLine
MyMacroCode = MyMacroCode+"TAG POS=37 TYPE=FONT ATTR=CLASS:font1&&TXT:* EXTRACT=TXT" + vbNewLine
MyMacroCode = MyMacroCode+"TAG POS=39 TYPE=FONT ATTR=CLASS:font1&&TXT:* EXTRACT=TXT" + vbNewLine
MyMacroCode = MyMacroCode+"TAG POS=41 TYPE=FONT ATTR=CLASS:font1&&TXT:* EXTRACT=TXT" + vbNewLine
MyMacroCode = MyMacroCode+"TAG POS=7 TYPE=B ATTR=TXT:* EXTRACT=TXT" + vbNewLine
MyMacroCode = MyMacroCode+"SAVEAS TYPE=EXTRACT FOLDER=C:\ FILE=*" + vbNewLine
iret = iim1.iimPlay(MyMacroCode)
next
if iret < 0 Then
MsgBox "Error in Macro: "+ iim1.iimGetLastError()
End If
iret = iim1.iimDisplay("Script completed.")
'MsgBox "Close iMacros browser"
iret = iim1.iimExit
WScript.Quit(0)
No comments:
Post a Comment