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

[µo°Ý] ­n¿é¥X¤@­ÓÀÉ¥i¥H³o¼Ë¼g?

¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-1-7 22:20 ½s¿è

¦^´_ 1# linshin1999
½Ðµ½¥ÎVBA»¡©ú½d¨Ò

    VBA»¡©úÀÉ
Get ³¯­z¦¡½d¨Ò
¥»½d¨Ò¨Ï¥Î Get ³¯­z¦¡¨Ó±N¸ê®Æ±qÀɮפ¤Åª¨ìÅܼƤ¤¡C½d¨Ò¤¤°²³] TESTFILE Àɮפ¤§t¦³¤­µ§¨Ï¥ÎªÌ¦Û­q«¬ºAªº¸ê®Æ°O¿ý¡C

Type Record    ' ©w¸q¨Ï¥ÎªÌ¦Û­qªº¸ê®Æ«¬ºA¡C
    ID As Integer
    Name As String * 20
End Type

Dim MyRecord As Record, Position    ' «Å§iÅܼơC
' ¥HÀH¾÷¦s¨úªº¤è¦¡¨Ó¶}±ÒÀɮסC
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
' ¨Ï¥Î Get ³¯­z¦¡¨ÓŪ¨úÀɮפº®e¡C
Position = 3    ' ©w¸q°O¿ý½s¸¹¡C
Get #1, Position, MyRecord    ' ±N¦¹°O¿ýŪ¤JÅܼƤ¤¡C
Close #1    ' Ãö³¬ÀɮסC
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 7# linshin1999

VB»PVBAªº³Ì¤j®t²§
VB¬O¥þ·s±M®×¡A«Ü¦h¨ç¼Æ¡Bª«¥ó©Î¤èªk³£¥²¶·¦Û¤v¥h¼g¡AµM«á®³¨ÓÀ³¥Î
VBA¬OªþÄݦbEXCEL¤¤ªº¶}µo³nÅé
§A¥i±NVBAµø¬°VBªº°ª¶¥»y¨¥
©Ò¥HVBA¥iª½±µ¤Þ¥ÎEXCEL¤º«Øªº¨ç¼Æ¤Îª«¥ó
¦Ü©ó»¡©úÀɪº¨Ï¥Î¡A§A±N·Æ¹«´å¼Ð²¾¨ìÃöÁä¦r¤W«ö¤UF1Áä§Y¥i¨ú±o
³o¬O§AÁÙ¤£¼ô±x©Ò­P¡Aµ¥§A¼ô½m¤F´Nª¾¹D¥L¦³¦h¦n¥Î¤F
¨þ!
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD