ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] VBA ªºSQL»yªk½Ð±Ð¦U¦ìÀ´SQLªº¤j¤j

[µo°Ý] VBA ªºSQL»yªk½Ð±Ð¦U¦ìÀ´SQLªº¤j¤j

¤@¡B·í¨ú±oSQLªº¸ê®Æ«á(¤w¸g±o¨ì¸ê®Æ),¥Î­þ¤@ºØ»yªk,¯à°÷³Ì§Ö³tªº±N¸ê®Æ¿é¥X¦Üexcel
EX:rng°}¦C¿é¤Jªº¤è¦¡,¦]¸Ó¬O:range("a1").resize(ubound(rng),ubound(rng,2)).value=rng
¥i¬OSQL¨ú±o¸ê®Æ«áµLªk¨Ï¥Î¦¹»yªk,¤£¾å±o°ª¤â¤j¤j­Ì³£¬O¥Î­þ¤@ºØ»yªk
¤p§Ì¥uÀ´±o¤U¦C2ºØ»yªk,½Ð°Ý¦³§ó§Ö³tªº¿é¥X»yªk¶Ü?©Î¬O±q­þÃä¥i¥H±oª¾¬ÛÃöªº»¡©úºô¯¸
conn¬°ADODB.Connection
1
ActiveSheet.Range("a1").CopyFromRecordset conn.Execute(strSQL)
2
Rng = conn.Execute(strSQL).GetRows  'Âର°}¦C(¬Û¤Ïªº)
Range("a1").Resize(UBound(Rng, 2) + 1, UBound(Rng) + 1).Value = Application.Transpose(Rng)


¤G¡B·í¨ú±oSQLªº¸ê®Æ«á(¤w¸g±o¨ì¸ê®Æ),¥Î­þ¤@ºØ»yªk,¯à°÷³Ì§Ö³tªº±N¸ê®ÆÂà´«¬°°}¦C
¤p§Ì¥u·|¥Îgetrowsªº¤èªkÂà´«¬°°}¦C(¦ýÁٻݭnÂà¸m¡A¤~¬O¥¿±`ªº¶¶§Ç)
©Î¬O¤£¥ÎÂà´«¬°°}¦C,­n¦p¦óŪ¨ú¥X¦¹­È(¦b¤£¿é¥X¦ÜexcelÀx¦s®æ¤Wªº±¡ªp¤§¤U¡A¦]¬°¿é¥X¤§«á¦AŪ¨ú¹ê¦b¤ÓºC¦Ó¥B¤£«K)
PKKO

¦^´_ 2# joey0415


    ·PÁ¤j¤j,±z«Øijªº¤è¦¡¤]¬O§Ú¥Ø«e¥¿¦b¨Ï¥Îªº¤è¦¡

¥t¥~±zÂàpoªº¤å³¹,¤]¦³À°§U
¤U¤ècode,§Ú¨Ã¤£¾å±o¥i¥H¥Î³oºØ¤è¦¡,Ū¨ú¸ê®Æ
Set rs = conn.Execute(strSQL)
[E1] = rs.Fields(0)

¦ý¦¹¤è¦¡¥u¯àŪ¨úFieldsÄæ¦ì
µLªk±N¾ã­Ó¬d¸ßªºµ²ªG³£Åª¨ú
¤p§Ì¥u¬ã¨s¥XGetRowsªº¤è¦¡¥i¥HÂର°}¦C
¤£¹LÁÙ­nÂà¸m,¦]¦¹·|¦hªá¤@¨Ç®É¶¡
¤£¾å±o¤j¤j¦³§Oªº¤èªk¶Ü?
PKKO

TOP

¦^´_ 4# joey0415


    ·PÁ¤j¤j
PKKO

TOP

        ÀR«ä¦Û¦b : ¯¸¦b¥b¸ô¡A¤ñ¨«¨ì¥Ø¼Ð§ó¨¯­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD