返回列表 上一主題 發帖

[發問] VBA抓取報表疑問

s93213241

帖子
8 
主題
3 
精華
0 
積分
16 
點名
0  
作業系統
XP  
軟體版本
2007 OR 2010 
閱讀權限
10 
註冊時間
2013-12-18 
最後登錄
2014-1-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-12-24 14:30 | 只看該作者

[發問] VBA抓取報表疑問

最近發現 我要抓的報表 必須先使用EXCEL的WEB登入 才可以抓入資料
實驗1.  EXCEL不登入  IE登入  結果 抓不到資料
        2.   EXCEL登入      IE不登入  結果 抓得到資料


請問有人有遇過這問題嗎!!??
我順道PO出程式碼
  1. function UserId_onkeydown() {
  2.   if (window.event.keyCode == 13)
  3.     document.forms[0].pUserPWD.focus();
  4. }
  5. function Password_onkeydown() {
  6.   if (window.event.keyCode == 13)
  7.     document.forms[0].btn1.focus();
  8. }
  9. function fSubmit(){  
  10.     var str =document.forms[0].pUserID.value;
  11.     var stri =document.forms[0].pUserPWD.value;
  12.     var Chgstr ="";
  13.     var Chgstri ="";
  14.     for (i = 0; i<=str.length; i++){
  15.       if (str.charCodeAt(i) >= 65281 && str.charCodeAt(i) <= 65374){
  16.         Chgstr = Chgstr + String.fromCharCode(str.charCodeAt(i) - 65248);
  17.       }else{
  18.         Chgstr += str.substr(i,1);
  19.       }
  20.     }
  21.     for (i = 0; i<=stri.length; i++){
  22.       if (stri.charCodeAt(i) >= 65281 && stri.charCodeAt(i) <= 65374){
  23.         Chgstri = Chgstri + String.fromCharCode(stri.charCodeAt(i) - 65248);
  24.       }else{
  25.         Chgstri += stri.substr(i,1);
  26.       }
  27.     }
  28.     document.forms[0].pUserID.value = Chgstr;
  29.     document.forms[0].pUserPWD.value = Chgstri;
  30.     document.forms[0].submit();
  31. }
  32. //-->
  33. </SCRIPT>

  35. <STYLE type=text/css>P {
  36.         FONT-WEIGHT: 300
  37. }
  38. </STYLE>

  40. <META name=GENERATOR content="MSHTML 8.00.6001.19170"></HEAD>
  41. <BODY bgColor=#eeeeee>
  42. <CENTER><BR>
  43. <FORM method=post action=C_PIPAS011_NEW><INPUT value=N type=hidden name=pINIT>
  44. <INPUT type=hidden name=pURL>
  45. <P align=center><FONT color=red><STRONG>第一次登入者，密碼為身份證字號後四碼</STRONG></FONT></P>
  46. <TABLE border=1 cellSpacing=1 cellPadding=3 width=320 bgColor=#c0c0c0 height=136
  47. cellspacing?2?>
  48.   <TBODY>
  49.   <TR height=25 bgColor=#9999ff>
  50.     <TD height=23 width="35%" align=middle>帳 號:&nbsp;&nbsp;</TD>
  51.     <TD height=23 width="65%" align=left>&nbsp;&nbsp;<INPUT
  52.       onkeydown="return UserId_onkeydown()" maxLength=5 size=15
  53.   name=pUserID></TD></TR>
  54.   <TR height=25 bgColor=#9999ff>
  55.     <TD height=23 width="35%" align=middle>密 碼:&nbsp;&nbsp;</TD>
  56.     <TD height=23 width="65%" align=left>&nbsp;&nbsp;<INPUT
  57.       onkeydown="return Password_onkeydown()" maxLength=6 size=8 type=password
  58.       name=pUserPWD></TD></TR>
  59.   <TR height=25 bgColor=#9999ff>
  60.     <TD height=60 colSpan=2 align=middle><INPUT onclick=fSubmit() value=登入 type=button name=btn1>
  61.   </TD></TR></TBODY></TABLE></FORM></CENTER>
複製代碼
收藏 分享

        靜思自在 : 自己害自己，莫過於亂發脾氣。
返回列表 上一主題