锘??xml version="1.0" encoding="utf-8" standalone="yes"?>亚洲日本va一区二区三区,91嫩草私人成人亚洲影院,亚洲成综合人影院在院播放http://www.tkk7.com/crazycoding/category/46060.htmlGod helps those who help themselves. zh-cnWed, 08 Sep 2010 15:28:39 GMTWed, 08 Sep 2010 15:28:39 GMT60VBA瀹炵敤浠ｇ爜鑺傞?/title><link>http://www.tkk7.com/crazycoding/archive/2010/09/08/331418.html</link><dc:creator>Ying-er</dc:creator><author>Ying-er</author><pubDate>Wed, 08 Sep 2010 10:15:00 GMT</pubDate><guid>http://www.tkk7.com/crazycoding/archive/2010/09/08/331418.html</guid><wfw:comment>http://www.tkk7.com/crazycoding/comments/331418.html</wfw:comment><comments>http://www.tkk7.com/crazycoding/archive/2010/09/08/331418.html#Feedback</comments><slash:comments>0</slash:comments><wfw:commentRss>http://www.tkk7.com/crazycoding/comments/commentRss/331418.html</wfw:commentRss><trackback:ping>http://www.tkk7.com/crazycoding/services/trackbacks/331418.html</trackback:ping><description><![CDATA[<div style="background-color: #eeeeee; font-size: 13px; border: 1px solid #cccccc; padding: 4px 5px 4px 4px; width: 98%;"><!--<br /> <br /> Code highlighting produced by Actipro CodeHighlighter (freeware)<br /> http://www.CodeHighlighter.com/<br /> <br /> --><span style="color: #008000;">'</span><span style="color: #008000;">/////////////////////////////////////////////////////////////</span><span style="color: #008000;"><br /> '</span><span style="color: #008000;">            -銉兗銈偡銉箋儓鍐呫伄銉囥兗銈褲伄鍒濇湡鍖栥倰琛屻亞-</span><span style="color: #008000;"><br /> '</span><span style="color: #008000;">/////////////////////////////////////////////////////////////</span><span style="color: #008000;"><br /> </span><span style="color: #0000ff;">Function</span><span style="color: #000000;"> CmdClear()<br />     </span><span style="color: #0000ff;">Dim</span><span style="color: #000000;"> sakiSH </span><span style="color: #0000ff;">As</span><span style="color: #000000;"> Worksheet<br />     </span><span style="color: #0000ff;">Beep</span><span style="color: #000000;"><br />         </span><span style="color: #0000ff;">Set</span><span style="color: #000000;"> sakiSH </span><span style="color: #000000;">=</span><span style="color: #000000;"> ThisWorkbook.Sheets(</span><span style="color: #000000;">2</span><span style="color: #000000;">) </span><span style="color: #008000;">'</span><span style="color: #008000;">杌㈣鍏堛伄銈楓兗銉?/span><span style="color: #008000;"><br /> </span><span style="color: #000000;">        sakiSH.Range(</span><span style="color: #000000;">"</span><span style="color: #000000;">A4:O1000</span><span style="color: #000000;">"</span><span style="color: #000000;">).ClearContents<br />         sakiSH.Range(</span><span style="color: #000000;">"</span><span style="color: #000000;">A4:O1000</span><span style="color: #000000;">"</span><span style="color: #000000;">).Clear<br />         </span><span style="color: #0000ff;">Set</span><span style="color: #000000;"> sakiSH </span><span style="color: #000000;">=</span><span style="color: #000000;"> </span><span style="color: #0000ff;">Nothing</span><span style="color: #000000;"><br /> </span><span style="color: #0000ff;">End Function</span></div> <br /> <div style="background-color: #eeeeee; font-size: 13px; border: 1px solid #cccccc; padding: 4px 5px 4px 4px; width: 98%;"><!--<br /> <br /> Code highlighting produced by Actipro CodeHighlighter (freeware)<br /> http://www.CodeHighlighter.com/<br /> <br /> --><span style="color: #008000;">'</span><span style="color: #008000;">/////////////////////////////////////////////////////////////</span><span style="color: #008000;"><br /> '</span><span style="color: #008000;">paintCellsLine</span><span style="color: #008000;"><br /> '</span><span style="color: #008000;">浣褲亜鏂癸細(xì)</span><span style="color: #008000;"><br /> '</span><span style="color: #008000;">    Dim startCell As Range</span><span style="color: #008000;"><br /> '</span><span style="color: #008000;">    Dim endCell   As Range</span><span style="color: #008000;"><br /> '</span><span style="color: #008000;">    Set startCell = Workbooks(1).Sheets(2).Cells(4, 1)</span><span style="color: #008000;"><br /> '</span><span style="color: #008000;">    Set endCell   = Workbooks(1).Sheets(2).Cells(48, 9)</span><span style="color: #008000;"><br /> '</span><span style="color: #008000;">    Call paintCellsLine(startCell, endCell)</span><span style="color: #008000;"><br /> '</span><span style="color: #008000;">@param startCell</span><span style="color: #008000;"><br /> '</span><span style="color: #008000;">@param endCell</span><span style="color: #008000;"><br /> '</span><span style="color: #008000;">/////////////////////////////////////////////////////////////</span><span style="color: #008000;"><br /> </span><span style="color: #0000ff;">Function</span><span style="color: #000000;"> paintCellsLine(startCell </span><span style="color: #0000ff;">As</span><span style="color: #000000;"> Range, endCell </span><span style="color: #0000ff;">As</span><span style="color: #000000;"> Range)<br />     </span><span style="color: #0000ff;">With</span><span style="color: #000000;"> Range(startCell, endCell)<br />         </span><span style="color: #0000ff;">For</span><span style="color: #000000;"> i </span><span style="color: #000000;">=</span><span style="color: #000000;"> </span><span style="color: #000000;">7</span><span style="color: #000000;"> </span><span style="color: #0000ff;">To</span><span style="color: #000000;"> </span><span style="color: #000000;">12</span><span style="color: #000000;"><br />             .Borders(i).LineStyle </span><span style="color: #000000;">=</span><span style="color: #000000;"> xlContinuous<br />         </span><span style="color: #0000ff;">Next</span><span style="color: #000000;"><br />     </span><span style="color: #0000ff;">End</span><span style="color: #000000;"> </span><span style="color: #0000ff;">With</span><span style="color: #000000;"><br /> </span><span style="color: #0000ff;">End Function</span></div> <br /> VBA榪濪B<br /> <div style="background-color: #eeeeee; font-size: 13px; border: 1px solid #cccccc; padding: 4px 5px 4px 4px; width: 98%;"><!--<br /> <br /> Code highlighting produced by Actipro CodeHighlighter (freeware)<br /> http://www.CodeHighlighter.com/<br /> <br /> --><span style="color: #0000ff;">Dim</span><span style="color: #000000;"> sqlStr </span><span style="color: #0000ff;">As</span><span style="color: #000000;"> </span><span style="color: #0000ff;">String</span><span style="color: #000000;"><br />             sqlStr </span><span style="color: #000000;">=</span><span style="color: #000000;"> getSqlStr()<br />         </span><span style="color: #0000ff;">Dim</span><span style="color: #000000;"> connection </span><span style="color: #0000ff;">As</span><span style="color: #000000;"> </span><span style="color: #0000ff;">New</span><span style="color: #000000;"> ADODB.connection<br />         </span><span style="color: #0000ff;">Dim</span><span style="color: #000000;"> resultSet </span><span style="color: #0000ff;">As</span><span style="color: #000000;"> ADODB.recordSet<br />         </span><span style="color: #0000ff;">Dim</span><span style="color: #000000;"> connStr </span><span style="color: #0000ff;">As</span><span style="color: #000000;"> </span><span style="color: #0000ff;">String</span><span style="color: #000000;"><br />             connStr </span><span style="color: #000000;">=</span><span style="color: #000000;"> </span><span style="color: #000000;">"</span><span style="color: #000000;">Provider=SQLOLEDB;Server=127.0.0.1;Database=BMS;Trusted_Connection=yes;Uid=sa;Pwd=</span><span style="color: #000000;">"</span><span style="color: #000000;"><br />             connection.Open connStr<br />             </span><span style="color: #0000ff;">Set</span><span style="color: #000000;"> resultSet </span><span style="color: #000000;">=</span><span style="color: #000000;"> </span><span style="color: #0000ff;">New</span><span style="color: #000000;"> ADODB.recordSet<br />             resultSet.Open sqlStr, connection</span></div> <br /> Dictionary鐨勪嬌鐢紙add Microsoft Scripting Runtime.錛? <div style="background-color: #eeeeee; font-size: 13px; border: 1px solid #cccccc; padding: 4px 5px 4px 4px; width: 98%;"><!--<br /> <br /> Code highlighting produced by Actipro CodeHighlighter (freeware)<br /> http://www.CodeHighlighter.com/<br /> <br /> --><span style="color: #0000ff;">Dim</span><span style="color: #000000;"> dict<br /> <br /> </span><span style="color: #008000;">'</span><span style="color: #008000;"> 鍒涘緩Dictionary</span><span style="color: #008000;"><br /> </span><span style="color: #0000ff;">Set</span><span style="color: #000000;"> dict </span><span style="color: #000000;">=</span><span style="color: #000000;"> </span><span style="color: #0000ff;">CreateObject</span><span style="color: #000000;">(</span><span style="color: #000000;">"</span><span style="color: #000000;">Scripting.Dictionary</span><span style="color: #000000;">"</span><span style="color: #000000;">)<br /> <br /> </span><span style="color: #008000;">'</span><span style="color: #008000;"> 澧炲姞欏圭洰</span><span style="color: #008000;"><br /> </span><span style="color: #000000;">dict.Add </span><span style="color: #000000;">"</span><span style="color: #000000;">A</span><span style="color: #000000;">"</span><span style="color: #000000;">, </span><span style="color: #000000;">300</span><span style="color: #000000;"><br /> dict.Add </span><span style="color: #000000;">"</span><span style="color: #000000;">B</span><span style="color: #000000;">"</span><span style="color: #000000;">, </span><span style="color: #000000;">400</span><span style="color: #000000;"><br /> dict.Add </span><span style="color: #000000;">"</span><span style="color: #000000;">C</span><span style="color: #000000;">"</span><span style="color: #000000;">, </span><span style="color: #000000;">500</span><span style="color: #000000;"><br /> <br /> </span><span style="color: #008000;">'</span><span style="color: #008000;"> 緇熻欏圭洰鏁?/span><span style="color: #008000;"><br /> </span><span style="color: #000000;">n </span><span style="color: #000000;">=</span><span style="color: #000000;"> dict.Count<br /> <br /> </span><span style="color: #008000;">'</span><span style="color: #008000;"> 鍒犻櫎欏圭洰</span><span style="color: #008000;"><br /> </span><span style="color: #000000;">dict.Remove (</span><span style="color: #000000;">"</span><span style="color: #000000;">A</span><span style="color: #000000;">"</span><span style="color: #000000;">)<br /> <br /> </span><span style="color: #008000;">'</span><span style="color: #008000;"> 鍒ゆ柇瀛楀吀涓槸鍚﹀寘鍚叧閿瓧</span><span style="color: #008000;"><br /> </span><span style="color: #000000;">dict.exists (</span><span style="color: #000000;">"</span><span style="color: #000000;">B</span><span style="color: #000000;">"</span><span style="color: #000000;">)<br /> <br /> </span><span style="color: #008000;">'</span><span style="color: #008000;"> 鍙栧叧閿瓧瀵瑰簲鐨勫鹼紝娉ㄦ剰鍦ㄤ嬌鐢ㄥ墠闇瑕佸垽鏂槸鍚﹀瓨鍦╧ey錛屽惁鍒檇ict涓細(xì)澶氬嚭涓鏉¤褰?/span><span style="color: #008000;"><br /> </span><span style="color: #000000;">Value </span><span style="color: #000000;">=</span><span style="color: #000000;"> dict.Item(</span><span style="color: #000000;">"</span><span style="color: #000000;">B</span><span style="color: #000000;">"</span><span style="color: #000000;">)<br /> <br /> </span><span style="color: #008000;">'</span><span style="color: #008000;"> 淇敼鍏抽敭瀛楀搴旂殑鍊?濡備笉瀛樺湪鍒欏垱寤烘柊鐨勯」鐩?/span><span style="color: #008000;"><br /> </span><span style="color: #000000;">dict.Item(</span><span style="color: #000000;">"</span><span style="color: #000000;">B</span><span style="color: #000000;">"</span><span style="color: #000000;">) </span><span style="color: #000000;">=</span><span style="color: #000000;"> </span><span style="color: #000000;">1000</span><span style="color: #000000;"><br /> dict.Item(</span><span style="color: #000000;">"</span><span style="color: #000000;">D</span><span style="color: #000000;">"</span><span style="color: #000000;">) </span><span style="color: #000000;">=</span><span style="color: #000000;"> </span><span style="color: #000000;">800</span><span style="color: #000000;"><br /> <br /> </span><span style="color: #008000;">'</span><span style="color: #008000;"> 瀵瑰瓧鍏歌繘琛屽驚鐜?/span><span style="color: #008000;"><br /> </span><span style="color: #000000;">k </span><span style="color: #000000;">=</span><span style="color: #000000;"> dict.keys<br /> v </span><span style="color: #000000;">=</span><span style="color: #000000;"> dict.Items<br /> </span><span style="color: #0000ff;">For</span><span style="color: #000000;"> i </span><span style="color: #000000;">=</span><span style="color: #000000;"> </span><span style="color: #000000;">0</span><span style="color: #000000;"> </span><span style="color: #0000ff;">To</span><span style="color: #000000;"> dict.Count </span><span style="color: #000000;">-</span><span style="color: #000000;"> </span><span style="color: #000000;">1</span><span style="color: #000000;"><br />   key </span><span style="color: #000000;">=</span><span style="color: #000000;"> k(i)<br />   Value </span><span style="color: #000000;">=</span><span style="color: #000000;"> v(i)<br />   </span><span style="color: #0000ff;">MsgBox</span><span style="color: #000000;"> key </span><span style="color: #000000;">&</span><span style="color: #000000;"> Value<br /> </span><span style="color: #0000ff;">Next</span><span style="color: #000000;"><br /> <br /> </span><span style="color: #008000;">'</span><span style="color: #008000;"> 鍒犻櫎鎵鏈夐」鐩?/span><span style="color: #008000;"><br /> </span><span style="color: #000000;">dict.Removeall</span></div> <br /> VBA緙栫▼榛勯噾娉曞垯錛?br /> 褰曞埗瀹忥紝淇敼褰曞埗鐨勫畯涓哄繁鎵鐢?br /> <br /> <img src ="http://www.tkk7.com/crazycoding/aggbug/331418.html" width = "1" height = "1" /><br><br><div align=right><a style="text-decoration:none;" href="http://www.tkk7.com/crazycoding/" target="_blank">Ying-er</a> 2010-09-08 18:15 <a href="http://www.tkk7.com/crazycoding/archive/2010/09/08/331418.html#Feedback" target="_blank" style="text-decoration:none;">鍙戣〃璇勮</a></div>]]></description></item><item><title>VBA鏃墮棿鍑芥暟http://www.tkk7.com/crazycoding/archive/2010/09/08/331415.htmlYing-erYing-erWed, 08 Sep 2010 09:32:00 GMThttp://www.tkk7.com/crazycoding/archive/2010/09/08/331415.htmlhttp://www.tkk7.com/crazycoding/comments/331415.htmlhttp://www.tkk7.com/crazycoding/archive/2010/09/08/331415.html#Feedback0http://www.tkk7.com/crazycoding/comments/commentRss/331415.htmlhttp://www.tkk7.com/crazycoding/services/trackbacks/331415.htmlNow 榪斿洖涓涓?Variant (Date)錛屾牴鎹綆楁満緋葷粺璁劇疆鐨勬棩鏈熷拰鏃墮棿鏉ユ寚瀹氭棩鏈熷拰鏃墮棿銆?br /> Date 榪斿洖鍖呭惈緋葷粺鏃ユ湡鐨?Variant (Date)銆?br /> Time 榪斿洖涓涓寚鏄庡綋鍓嶇郴緇熸椂闂寸殑 Variant (Date)銆?br /> Timer 榪斿洖涓涓?Single錛屼唬琛ㄤ粠鍗堝寮濮嬪埌鐜板湪緇忚繃鐨勭鏁般?br /> TimeSerial(hour, minute, second) 榪斿洖涓涓?Variant (Date)錛屽寘鍚叿鏈夊叿浣撴椂銆佸垎銆佺鐨勬椂闂淬?br /> DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]]) 榪斿洖 Variant (Long) 鐨勫鹼紝琛ㄧず涓や釜鎸囧畾鏃ユ湡闂寸殑鏃墮棿闂撮殧鏁扮洰
Second(time) 榪斿洖涓涓?Variant (Integer)錛屽叾鍊間負(fù) 0 鍒?59 涔嬮棿鐨勬暣鏁幫紝琛ㄧず涓鍒嗛挓涔嬩腑鐨勬煇涓
Minute(time) 榪斿洖涓涓?Variant (Integer)錛屽叾鍊間負(fù) 0 鍒?59 涔嬮棿鐨勬暣鏁幫紝琛ㄧず涓灝忔椂涓殑鏌愬垎閽?br /> Hour(time) 榪斿洖涓涓?Variant (Integer)錛屽叾鍊間負(fù) 0 鍒?23 涔嬮棿鐨勬暣鏁幫紝琛ㄧず涓澶╀箣涓殑鏌愪竴閽熺偣
Day(date) 榪斿洖涓涓?Variant (Integer)錛屽叾鍊間負(fù) 1 鍒?31 涔嬮棿鐨勬暣鏁幫紝琛ㄧず涓涓湀涓殑鏌愪竴鏃?br /> Month(date) 榪斿洖涓涓?Variant (Integer)錛屽叾鍊間負(fù) 1 鍒?12 涔嬮棿鐨勬暣鏁幫紝琛ㄧず涓騫翠腑鐨勬煇鏈?br /> Year(date) 榪斿洖 Variant (Integer)錛屽寘鍚〃紺哄勾浠界殑鏁存暟銆?br /> Weekday(date, [firstdayofweek]) 榪斿洖涓涓?Variant (Integer)錛屽寘鍚竴涓暣鏁幫紝浠ｈ〃鏌愪釜鏃ユ湡鏄槦鏈熷嚑

Ying-er 2010-09-08 17:32 鍙戣〃璇勮
]]>VBA緙栫▼涔婣pplication瀵硅薄http://www.tkk7.com/crazycoding/archive/2010/09/07/331322.htmlYing-erYing-erTue, 07 Sep 2010 08:34:00 GMThttp://www.tkk7.com/crazycoding/archive/2010/09/07/331322.htmlhttp://www.tkk7.com/crazycoding/comments/331322.htmlhttp://www.tkk7.com/crazycoding/archive/2010/09/07/331322.html#Feedback0http://www.tkk7.com/crazycoding/comments/commentRss/331322.htmlhttp://www.tkk7.com/crazycoding/services/trackbacks/331322.html    Application.UserName '榪斿洖搴旂敤紼嬪簭鐨勭敤鎴峰悕
銆銆Application.Caller '榪斿洖浠ｈ〃璋冪敤鍑芥暟鐨勫崟鍏冩牸
銆銆Application.Caller.Parent.Parent '榪斿洖璋冪敤鍑芥暟鐨勫伐浣滅翱鍚嶇О
銆銆Application.StatusBar=”璇風(fēng)瓑寰?#8230;…” '灝嗘枃鏈啓鍒扮姸鎬佹爮
銆銆Application.StatusBar=”璇風(fēng)瓑寰?#8230;…” & Percent & “% Completed” '鏇存柊鐘舵佹爮鏂囨湰錛屼互鍙橀噺Percent浠ｈ〃瀹屾垚鐨勭櫨鍒嗘瘮
銆銆Application.StatusBar=False '灝嗙姸鎬佹爮閲嶆柊璁劇疆鎴愭甯哥姸鎬?/span>
銆銆Application.Goto Reference:=Range(“A1:D4”) '鎸囧畾鍗曞厓鏍煎尯鍩烝1鑷矰4錛岀瓑鍚屼簬閫夋嫨“緙栬緫鈥斺斿畾浣?#8221;錛屾寚瀹氬崟鍏冩牸鍖哄煙涓篈1鑷矰4錛屼笉浼?xì)鍑虹?#8220;瀹氫綅”瀵硅瘽妗?/span>
銆銆Application.Dialogs(xlDialogFormulaGoto).Show '鏄劇ず“瀹氫綅”瀵硅瘽妗嗭紝浣嗗畾浣嶆潯浠舵寜閽棤鏁?/span>
銆銆Application.Dialogs(xlDialogSelectSpecial).Show '鏄劇ず“瀹氫綅鏉′歡”瀵硅瘽妗?/span>
銆銆 Application.Dialogs(xlDialogFormatNumber).show '鏄劇ず“鍗曞厓鏍兼牸寮?#8221;涓殑“鏁板瓧”閫夐」鍗?/span>
銆銆Application.Dialogs(xlDialogAlignment).show '鏄劇ず“鍗曞厓鏍兼牸寮?#8221;涓殑“瀵歸綈”閫夐」鍗?/span>
銆銆Application.Dialogs(xlDialogFontProperties).show '鏄劇ず“鍗曞厓鏍兼牸寮?#8221;涓殑“瀛椾綋”閫夐」鍗?/span>
銆銆Application.Dialogs(xlDialogBorder).show '鏄劇ず“鍗曞厓鏍兼牸寮?#8221;涓殑“杈規(guī)”閫夐」鍗?/span>
銆銆Application.Dialogs(xlDialogPatterns).show '鏄劇ず“鍗曞厓鏍兼牸寮?#8221;涓殑“鍥炬”閫夐」鍗?/span>
銆銆Application.Dialogs(xlDialogCellProtection).show '鏄劇ず“鍗曞厓鏍兼牸寮?#8221;涓殑“淇濇姢”閫夐」鍗?/span>
銆銆娉細(xì)鏃犳硶涓嬈℃樉紺哄甫閫夐」鍗＄殑“鍗曞厓鏍兼牸寮?#8221;瀵硅瘽妗嗭紝鍙兘涓嬈℃樉紺轟竴涓夐」鍗°?br /> Application.Dialogs(xlDialogFormulaGoto).show Range("b2"), True '鏄劇ず“寮曠敤浣嶇疆”鐨勯粯璁ゅ崟鍏冩牸鍖哄煙騫舵樉紺哄紩鐢ㄤ嬌鍏跺嚭鐜板湪紿楀彛宸︿笂瑙?娉細(xì)鍐呯疆瀵硅瘽妗嗗弬鏁扮殑浣跨敤)
銆銆Application.CommandBars(1).Controls(2).Controls(16).Execute '鎵ц“瀹氫綅”璇濇錛岀浉褰撲簬閫夋嫨鑿滃崟“緙栬緫鈥斺斿畾浣?#8221;鍛戒護(hù)
銆銆Application.Transpose(Array(“Sun”,”Mon”,”Tur”,”Wed”,”Thu”,”Fri”,”Sat”)) '榪斿洖涓涓瀭鐩寸殑鏁扮粍
銆銆Application.Version '榪斿洖浣跨敤鐨凟xcel鐗堟湰鍙?/span>
銆銆Application.Cursor = xlNorthwestArrow '璁劇疆鍏夋爣褰㈢姸涓哄寳瑗垮悜綆ご
銆銆Application.Cursor = xlIBeam '璁劇疆鍏夋爣褰㈢姸涓衡厾瀛楀艦
銆銆Application.Cursor = xlWait '璁劇疆鍏夋爣褰㈢姸涓烘矙婕?絳夊緟)褰?/span>
銆銆Application.Cursor = xlDefault '鎭㈠鍏夋爣鐨勯粯璁よ緗?/span>
銆銆Application.WindowState '榪斿洖紿楀彛褰撳墠鐨勭姸鎬?/span>
銆銆Application.WindowState = xlMinimized '紿楀彛鏈灝忓寲
銆銆Application.WindowState = xlMaximized '紿楀彛鏈澶у寲
銆銆Application.WindowState = xlNormal '紿楀彛姝ｅ父鐘舵?/span>
銆銆Application.UsableHeight '鑾峰彇褰撳墠紿楀彛鐨勯珮搴?/span>
銆銆Application.UsableWidth '鑾峰彇褰撳墠紿楀彛鐨勫搴?/span>
銆銆Application.ActiveCell.Address '榪斿洖媧誨姩鍗曞厓鏍肩殑鍦板潃(娉?榪斿洖鐨勬槸緇濆鍦板潃)
銆銆Application.ActivePrinter '榪斿洖褰撳墠鎵撳嵃鏈虹殑鍚嶇О
銆銆Application.ActiveSheet.Name '榪斿洖媧誨姩宸ヤ綔琛ㄧ殑鍚嶇О
銆銆Application.ActiveWindow.Caption '榪斿洖媧誨姩紿楀彛鐨勬爣棰?/span>
銆銆Application.ActiveWorkbook.Name '榪斿洖媧誨姩宸ヤ綔綈跨殑鍚嶇О
銆銆Application.Selection.Address '榪斿洖鎵閫夊尯鍩熺殑鍦板潃
銆銆Application.ThisWorkbook.Name '榪斿洖褰撳墠宸ヤ綔綈跨殑鍚嶇О
銆銆Application.CalculationVersion '榪斿洖Excel璁＄畻寮曟搸鐗堟湰(鍙寵竟鍥涗綅鏁板瓧)鍙?qiáng)Excel鐗堟湰(宸﹁竟涓や綅鏁板瓧)
銆銆Application.MemoryFree '浠ュ瓧鑺備負(fù)鍗曚綅榪斿洖Excel鍏佽浣跨敤鐨勫唴瀛樻暟(涓嶅寘鎷凡緇忎嬌鐢ㄧ殑鍐呭瓨)
銆銆Application.MemoryUsed '浠ュ瓧鑺備負(fù)鍗曚綅榪斿洖Excel褰撳墠浣跨敤鐨勫唴瀛樻暟
銆銆Application.MemoryTotal '浠ュ瓧鑺備負(fù)鍗曚綅榪斿洖Excel鍙互浣跨敤鐨勫唴瀛樻暟(鍖呮嫭宸蹭嬌鐢ㄧ殑鍐呭瓨,鏄疢emoryFree鍜孧emoryUsed鐨勬誨拰)
銆銆Application.OperatingSystem '榪斿洖鎵浣跨敤鐨勬搷浣滅郴緇熺殑鍚嶇О鍜岀増鏈?/span>
銆銆Application.OrganizationName '榪斿洖Excel浜у搧鐧昏浣跨敤鐨勭粍緇囨満鏋勭殑鍚嶇О
銆銆Application.FindFormat '鏌ユ壘鐨勬牸寮忕綾?/span>
銆銆Application.ReplaceFormat '鏇挎崲鏌ユ壘鍒扮殑鍐呭鐨勬牸寮忕綾?/span>
銆銆ActiveSheet.Cells.Replace What:=” “, _
Replacement:=” “,SearchFormat:=True,ReplaceFormat:=True '鏇挎崲鏌ユ壘鍒扮殑鏍煎紡
銆銆Application.Interactive=False '蹇界暐閿洏鎴栭紶鏍囩殑杈撳叆
銆銆Application.Evaluate("Rate") '鑻ュ湪宸ヤ綔琛ㄤ腑瀹氫箟浜?jiǎn)甯搁?.06鐨勫悕縐頒負(fù)”Rate”,鍒欐湰璇彞灝嗚繑鍥炲?.06
銆銆Application.OnUndo “Undo Option”,“Undo Procedure” '閫夋嫨UndoOption鍚庯紝灝嗘墽琛孶ndo Procedure榪囩▼

Ying-er 2010-09-07 16:34 鍙戣〃璇勮
]]>VBA 榪?SQLServer open鏃?鎶ラ敊錛?0040e4dhttp://www.tkk7.com/crazycoding/archive/2010/08/30/330293.htmlYing-erYing-erMon, 30 Aug 2010 07:37:00 GMThttp://www.tkk7.com/crazycoding/archive/2010/08/30/330293.htmlhttp://www.tkk7.com/crazycoding/comments/330293.htmlhttp://www.tkk7.com/crazycoding/archive/2010/08/30/330293.html#Feedback0http://www.tkk7.com/crazycoding/comments/commentRss/330293.htmlhttp://www.tkk7.com/crazycoding/services/trackbacks/330293.htmlSub SQLTest()
Dim connection As New ADODB.connection
Dim recordSet As ADODB.recordSet
Dim searchStr As String
Dim connStr As String
Dim currSheet As Worksheet
    connStr = "Provider=SQLOLEDB;Server=127.0.0.1;Database=BMS;Trusted_Connection=yes;Uid=sa;Pwd="
    connection.Open connStr
    Set currSheet = Workbooks(1).Sheets(2)
    Dim sqlStr As String
        sqlStr = "SELECT * FROM M_瀣堟煁鍍懼剶鍎?/span>"
        Set recordSet = New ADODB.recordSet
        recordSet.Open sqlStr, connection
        
        Dim i As Integer
        i = 1
        While Not recordSet.EOF
        currSheet.Cells(i, 1).Value = recordSet.Fields(0).Value
        currSheet.Cells(i, 2).Value = recordSet.Fields(1).Value
        recordSet.MoveNext
        i = i + 1
        Wend
End Sub
鍔犱笂Trusted_Connection=yes



Ying-er 2010-08-30 15:37 鍙戣〃璇勮
]]>VBA 瀛︿範(fàn)絎旇錛?錛?/title><link>http://www.tkk7.com/crazycoding/archive/2010/08/26/329963.html</link><dc:creator>Ying-er</dc:creator><author>Ying-er</author><pubDate>Thu, 26 Aug 2010 05:35:00 GMT</pubDate><guid>http://www.tkk7.com/crazycoding/archive/2010/08/26/329963.html</guid><wfw:comment>http://www.tkk7.com/crazycoding/comments/329963.html</wfw:comment><comments>http://www.tkk7.com/crazycoding/archive/2010/08/26/329963.html#Feedback</comments><slash:comments>0</slash:comments><wfw:commentRss>http://www.tkk7.com/crazycoding/comments/commentRss/329963.html</wfw:commentRss><trackback:ping>http://www.tkk7.com/crazycoding/services/trackbacks/329963.html</trackback:ping><description><![CDATA[     鎽樿: 緋葷粺錛氭棩鏂嘩in7 褰曞埗綆鍗曠殑瀹忥紙macro錛屻優(yōu)銈儹錛?1)鎵撳紑鏂板伐浣滅翱錛岀‘璁ゅ叾浠栧伐浣滅翱宸茬粡鍏抽棴銆? Normal 0 0 2 false false false EN-US JA X-NONE MicrosoftInternetExplo...  <a href='http://www.tkk7.com/crazycoding/archive/2010/08/26/329963.html'>闃呰鍏ㄦ枃</a><img src ="http://www.tkk7.com/crazycoding/aggbug/329963.html" width = "1" height = "1" /><br><br><div align=right><a style="text-decoration:none;" href="http://www.tkk7.com/crazycoding/" target="_blank">Ying-er</a> 2010-08-26 13:35 <a href="http://www.tkk7.com/crazycoding/archive/2010/08/26/329963.html#Feedback" target="_blank" style="text-decoration:none;">鍙戣〃璇勮</a></div>]]></description></item></channel></rss> <footer> <div class="friendship-link"> <p>感谢您访问我们的网站，您可能还对以下资源感兴趣：</p> <a href="http://www.tkk7.com/" title="亚洲av成人片在线观看">亚洲av成人片在线观看</a> <div class="friend-links"> </div> </div> </footer> 主站蜘蛛池模板： <a href="http://520xiang.com" target="_blank">免费观看的毛片手机视频</a>| <a href="http://aqddv.com" target="_blank">亚洲AV无码国产精品色午友在线</a>| <a href="http://glhrsydc.com" target="_blank">九九免费久久这里有精品23</a>| <a href="http://69ct.com" target="_blank">亚洲精品无码专区</a>| <a href="http://znboxcdn107.com" target="_blank">美丽的姑娘免费观看在线播放</a>| <a href="http://my637.com" target="_blank">久久亚洲国产成人亚</a>| <a href="http://gg596gg.com" target="_blank">成年女人午夜毛片免费看</a>| <a href="http://benjiebf.com" target="_blank">亚洲jjzzjjzz在线观看</a>| <a href="http://dsdkg.com" target="_blank">亚洲高清最新av网站</a>| <a href="http://hnlchb.com" target="_blank">久久精品毛片免费观看</a>| <a href="http://sswg2.com" target="_blank">另类小说亚洲色图</a>| <a href="http://35xyz.com" target="_blank">一本色道久久88综合亚洲精品高清</a>| <a href="http://www-9970.com" target="_blank">成全视成人免费观看在线看</a>| <a href="http://webgame86.com" target="_blank">亚洲人成无码www久久久</a>| <a href="http://zzxngk.com" target="_blank">久久99国产乱子伦精品免费</a>| <a href="http://mt569.com" target="_blank">狠狠热精品免费观看</a>| <a href="http://yes5555.com" target="_blank">亚洲第一网站男人都懂</a>| <a href="http://zz1220.com" target="_blank">24小时在线免费视频</a>| <a href="http://wlamyx.com" target="_blank">一级毛片免费不卡直观看</a>| <a href="http://oupur.com" target="_blank">亚洲一区二区三区高清视频</a>| <a href="http://xsjxp.com" target="_blank">国产亚洲精品久久久久秋霞</a>| <a href="http://zhidianzh.com" target="_blank">久久国产乱子伦精品免费午夜 </a>| <a href="http://179228.com" target="_blank">亚洲毛片基地4455ww</a>| <a href="http://www282pp.com" target="_blank">免费A级毛片无码无遮挡内射</a>| <a href="http://cuuka.com" target="_blank">亚洲videos</a>| <a href="http://jgxsdst.com" target="_blank">国产亚洲欧洲精品</a>| <a href="http://youkabaitiao.com" target="_blank">国产又粗又长又硬免费视频</a>| <a href="http://69xjk.com" target="_blank">成人免费网站久久久</a>| <a href="http://yulongfilm.com" target="_blank">亚洲免费人成视频观看</a>| <a href="http://c2277.com" target="_blank">亚洲大尺度无码专区尤物</a>| <a href="http://x5k9.com" target="_blank">四虎永久在线精品视频免费观看</a>| <a href="http://www-533999.com" target="_blank">视频免费1区二区三区</a>| <a href="http://jastrelax.com" target="_blank">亚洲人成在线免费观看</a>| <a href="http://kencery.com" target="_blank">亚洲av中文无码乱人伦在线r▽</a>| <a href="http://ynyinglie.com" target="_blank">免费人妻无码不卡中文字幕18禁</a>| <a href="http://xhm33.com" target="_blank">91嫩草国产在线观看免费</a>| <a href="http://udlmw.com" target="_blank">亚洲AV成人精品日韩一区</a>| <a href="http://327www.com" target="_blank">中文字幕亚洲无线码a</a>| <a href="http://yuejiju.com" target="_blank">日本免费一区二区三区最新</a>| <a href="http://6609929.com" target="_blank">国产乱码免费卡1卡二卡3卡</a>| <a href="http://www-44455588.com" target="_blank">伊人久久免费视频</a>| <script> (function(){ var bp = document.createElement('script'); var curProtocol = window.location.protocol.split(':')[0]; if (curProtocol === 'https') { bp.src = 'https://zz.bdstatic.com/linksubmit/push.js'; } else { bp.src = 'http://push.zhanzhang.baidu.com/push.js'; } var s = document.getElementsByTagName("script")[0]; s.parentNode.insertBefore(bp, s); })(); </script> </body>