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

¥»ª©­È±oÃöª`ªº¥DÃD±N³°Äò¼W¥[

¥»ª©­È±oÃöª`ªº¥DÃD±N³°Äò¼W¥[

¾Ç®üµL²P_¤£®¢¤U°Ý

¥»©«³Ì«á¥Ñ jillhuang ©ó 2012-2-1 12:05 ½s¿è

±z¦n!!¥Ø«e¤½¥q¦³­Ó¸û¬°½ÆÂøªºµ{¦¡»Ý¨D,¦]¬°§Ú¦Û¤v¹ïExcel¥u¦³ªì¨Bªº»{ÃÑ,¹ê¦b¨S¿ìªk¦Û¤v¼g,
©Ò¥H·Q§ä¤HÀ°¦£,¥i¬O¤S¨S¿ìªkµoµu®ø®§µ¹±z,¥u¦n¦b³o¸Ì¯d¨¥,¥i§_µ¹§Ú±zªºÁpµ¸¤è¦¡(E-Mail«H½c),¥i¥H»P±z°µ¶i¤@¨BÁpµ¸!!
ÀH©«ªþ¤W§ÚªºEmail,¥i§_»P§ÚÁpµ¸     ÁÂÁÂ
[email protected]                                                                   Jill

TOP

¦^´_ 1# Hsieh
09.ÀÉ®×¾Þ§@½d¨Ò (Dir / Filesystem Object),¤Q¤À¨ü¥Î,25000­Ófile´N3¬í´N§¹¦¨,«Ü·Q¨Ï¥Î,§ï¤F¦h®É,,¹ï»¼Âk¤£¤ÓÁA¸Ñ,¤£±o­n»â,©Ò¥H¨D§AÀ°§U,¬Ý¯à¤£¯àÀ°§Ú§ï§ï:
1.  folder­nÅýuser¿ï¾Ü,§Ú¼g¤F­Ófunction,¦p¤U,°ò¥»¥i¥H¨Ï¥Î
Function GetFolderName() As String
    Dim fds As Object
    Set fds = CreateObject("Scripting.FileSystemObject")
    With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "½Ð¿ï¾Ü¸ê®Æ§¨"
    .AllowMultiSelect = False
    .Show
    GetFolderName = .SelectedItems(1) & "\"
    End With
End Function
2. §Ú»Ý­n±o¨ìuser¿ï¾Üªº¸ê®Æ§¨¨½©Ò¦³¤å¥ó(¥]¬A¤l¸ê®Æ§¨¨½)²M³æ,¥Î¼Æ¦C¶Ç¦^Arr(1 to n),¨C­Ó¤å¥ó¥]¬A¸ô®|©M¤å¥ó¦W
3. vb¨½¥i¥H¼g´X¥y¥Î¸ê®Æ§¨¦W©M¤å¥ó¦W¨Ó¿z¿ï©Ò»Ý­nªº¸ê®Æ§¨©M©Ò»Ý­nªº¤å¥ó.
¦Û¤v¹ê¦b§ï¤£¦n,½Ð¨DÀ°¤â,ÁÂÁ§A
lmh

TOP

¦^´_ 1# Hsieh

½Ð°Ýª©¤j¥i¤£¥i¥H¼W¥[¤@­Ó:
¦Û°Êµ{¦¡¤U³æªÑ²¼/´Á³f?
­ì¦]:
1. À³¸Ó«Ü¦h¤H·Q¾i¤@°¦¥i¥H¦Û¤v¤U³æªº¾÷¾¹¤H
2. ¨é°ÓªºAPI¤U³æ¾÷ ³£«Ü²³æ, ®³¨ì¤F®Ú¥»¨S¥Î³B,¥u¯à¤â°Ê
3. «Ü¦h¤j¤jÀ³¸Ó³£¦Û¤v¦³¼g, ¤À¨É¥X¨Ó¥i¥H¸`¬Ù·s¤â®É¶¡,Åý¤j®a¥i¥H¦hªá®É¶¡¦b¤U³æµ¦²¤¤W

·PÁÂ!!:handshake

TOP

¦^´_ 4# fifi0217
1. À³¸Ó«Ü¦h¤H·Q¾i¤@°¦¥i¥H¦Û¤v¤U³æªº¾÷¾¹¤H
2. ¨é°ÓªºAPI¤U³æ¾÷ ³£«Ü²³æ, ®³¨ì¤F®Ú¥»¨S¥Î³B,¥u¯à¤â°Ê
3. «Ü¦h¤j¤jÀ³¸Ó³£¦Û¤v¦³¼g, ¤À¨É¥X¨Ó¥i¥H¸`¬Ù·s¤â®É¶¡,Åý¤j®a¥i¥H¦hªá®É¶¡¦b¤U³æµ¦²¤¤W


³oÃä¬O°Q½×VBAªº¦a¤è¡A¦ÛµM§Æ±æ¤j®a¦h¥æ¬yVBAªº¼gªk
§A³o¼Ë§¹¥þ¥»¥½­Ë¸m¤F¡A¦ù¤â¯uªº«Ü²³æ¡C
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD