- ©«¤l
- 26
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 33
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-7-19
- ³Ì«áµn¿ý
- 2013-5-13
|
²³æªº¨ú¥NSheet¤ºªºÈ
©êºp ¥dÃö ¤S¨Ó¸ß°Ý ,½Ð°ª¤â±Ð§Ú¤@¤U ³Â·Ð¤F ÁÂÁÂ
¥H¤U¬O§Úªº³¡¤Àcode
EQP_FAB = cells(2,18).value '(ȬOTG)
File1=dir (path & "*.xls")
Workbooks.open path & File1
set sh = activeworkbook.worksheets(shname) ' ¦p¥H¤Uªºex:
for each word in sh.range(sh.[A1],sh.[F1])
if word = "EQP_ID" Then (·í²Ä¤@¦CŪ¨ìEQP_IDªº®ÉÔ,EQP_IDªº¤U¤@¦Csampl1:TE@123©Î¬Osampl2:TF123 n´«¦¨TG@123)
CurrentCell= word.address (·Q¥h§ìCellªº¦ì§},¦ý³oÃ䤣·|¼g)
end if
next
ex: ¨âºØÀÉ®×,³£¬On¥h»{ EQP_ID
1. 2.
PDID EQP_ID ACTION PDID RE_ID EQP_ID ACTION
xxx TE@123 xxx xxx xx TF@123 xxx
xxx TE@645 xxx xxx xx TF@645 xxx
xxx TE@124 xxx xxx xx TF@124 xxx
(©¹¤UÁÙ¦³¸ê®Æ ,¥u¦C¤Tµ§)
µ²ªG:
1. 2.
PDID EQP_ID ACTION PDID RE_ID EQP_ID ACTION
xxx TG@123 xxx xxx xx TG@123 xxx
xxx TG@645 xxx xxx xx TG@645 xxx
xxx TG@124 xxx xxx xx TG@124 xxx |
|