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

¤å¦rÀÉŪ¨ú°ÝÃD

¤å¦rÀÉŪ¨ú°ÝÃD

½Ð±Ð¤j¤j,°w¹ï¤å¦rÀÉ°µ¸ê®ÆŪ¨ú,·Q­n±N¥]§t¯S©w¦r¦ê¤º®eªº¬Y¤@¦C¸ê®ÆŪ¨ú¶×¤Jexcel¸Ó¦p¦ó°µ?ÁÂÁÂ~

¦^´_ 1# herhsiu
¤w¦³³\¦hµo¤å ,§A¥iª¦¤å¾é¸Ñ¤@¤U,¦p¯u¤£¸Ñ,¤]»Ý±NÃD¥Ø»¡²M·¡.  ¥]§t¯S©w¦r¦ê¤º®eªº¬Y¤@¦C¸ê®ÆŪ¨ú¶×¤Jexcel ¦p¦¹¤Ó§t½k,­nÁ|¨Ò¤~©ú¥Õ

TOP

¹ï¤£°_»¡ªº¤£°÷²M·¡,¦]¬°»Ý­n¦b¦h­Ó¤å¦rÀɤº¬d¸ß¸ê®Æ,§Æ±æ¯à°÷³z¹Lvba¦b¤å¦rÀÉ®×·j´M¬Y¤@¦r¦ê,¦A±N¥]§t¦¹¦r¦êªº¾ã¦Cdata mport¦Üexcel¤u§@ªí,½Ð¤j¤j«üÂI¤@¤G,ÁÂÁÂ~

TOP

¦^´_ 3# herhsiu
  1. Sub ¶×¤J¤å¦rÀÉ()
  2.     Dim i As Integer, ii As Integer, Mystr As String
  3.     With Application.FileDialog(msoFileDialogFilePicker)  '[Àɮ׿ï¾Ü¾¹]
  4.         .AllowMultiSelect = True                '¥i¦h­«¿ï¾ÜÀÉ®×
  5.         .Title = "¤å¦rÀÉ ¶×¤Jexcel"             '[Àɮ׿ï¾Ü¾¹] ªº¼ÐÃD
  6.         .Filters.Clear                          '²M°£ [Àɮ׿ï¾Ü¾¹] ¹ï¸Ü¤è¶ôªºÀɮ׿z¿ï
  7.         .Filters.Add "¤å¦rÀÉ", "*.txt", 1       '·s¼W [Àɮ׿ï¾Ü¾¹] ¹ï¸Ü¤è¶ôªºÀɮ׿z¿ï
  8.                                                 '¿z¿ï²M³æ¤¤·s±±¨î¶µ©Ò¦b¦ì¸mªº¼Æ­È  1
  9.         .Filters.Add "*.*", "*.*", 2            '·s¼W [Àɮ׿ï¾Ü¾¹] ¹ï¸Ü¤è¶ôªºÀɮ׿z¿ï
  10.                                                 '¿z¿ï²M³æ¤¤·s±±¨î¶µ©Ò¦b¦ì¸mªº¼Æ­È 2
  11.         .FilterIndex = 1                        '·íÀÉ®×¹ï¸Ü¤è¶ô­º¦¸¶}±Ò®É¡A¹w³]¿z¿ï§P©w©ÒÅã¥ÜªºÀÉ®×Ãþ«¬¡C
  12.         If .Show = 0 Then Exit Sub              '¨S¿ï¾ÜÀÉ®×®ÉÂ÷¶}ÀÉ®×
  13.             For i = 1 To .SelectedItems.Count   '¨Ì§Ç¦b¿ï¾ÜÀɮ׼ƥتº°j°é
  14.                 Open .SelectedItems(i) For Input As #1   '¶}±Ò¤å¦rÀÉ
  15.                 Do While Not EOF(1)                      '¤£¬OÀɮש³³¡®É °õ¦æ°j°é
  16.                     Input #1, Mystr                      '±q¤w¶}±Òªº´`§ÇŪ¨ú¸ê®Æ¡A¨Ã±N¸ê®Æ«ü©wµ¹ÅܼơC->mystr
  17.                     If Mystr Like "*test*" Then          '½Ð­×§ï"test" ¬°->­n§A·j´M¬Y¤@¦r¦ê
  18.                         Cells(ii + 1, "a") = Mystr       '¾ã¦C¶×¤J¤u§@ªí
  19.                         ii = ii + 1                      '¤U¤@¦C
  20.                     End If
  21.                 Loop
  22.                 Close #1                                 'Ãö³¬¤å¦rÀÉ
  23.            Next
  24.     End With
  25. End Sub
½Æ»s¥N½X

TOP

·PÁ¤j¤j¸ÔºÉªºµªÂÐ......

TOP

¤£¦n·N«ä,¦b¸Õªº®É­Ôµo²{¤@­Ó°ÝÃD:
¦pªG¸Ó¦C¦³¥]§t³r¸¹¸Ó¦C´N·|³QºIÂ_,¸Ó«ç»ò³B²z³o­Óª¬ªp©O?ÁÂÁÂ~

TOP

¦^´_ 6# herhsiu
  1. Sub ¶×¤J¤å¦rÀÉA()
  2.     Dim i As Integer, ii As Integer, Str As Variant, F As Object
  3.     With Application.FileDialog(msoFileDialogFilePicker)  '[Àɮ׿ï¾Ü¾¹]
  4.         .AllowMultiSelect = True                '¥i¦h­«¿ï¾ÜÀÉ®×
  5.         .Title = "¤å¦rÀÉ ¶×¤Jexcel"             '[Àɮ׿ï¾Ü¾¹] ªº¼ÐÃD
  6.         .Filters.Clear                          '²M°£ [Àɮ׿ï¾Ü¾¹] ¹ï¸Ü¤è¶ôªºÀɮ׿z¿ï
  7.         .Filters.Add "¤å¦rÀÉ", "*.txt", 1       '·s¼W [Àɮ׿ï¾Ü¾¹] ¹ï¸Ü¤è¶ôªºÀɮ׿z¿ï
  8.                                                 '¿z¿ï²M³æ¤¤·s±±¨î¶µ©Ò¦b¦ì¸mªº¼Æ­È  1
  9.         .Filters.Add "*.*", "*.*", 2            '·s¼W [Àɮ׿ï¾Ü¾¹] ¹ï¸Ü¤è¶ôªºÀɮ׿z¿ï
  10.                                                 '¿z¿ï²M³æ¤¤·s±±¨î¶µ©Ò¦b¦ì¸mªº¼Æ­È 2
  11.         .FilterIndex = 1                        '·íÀÉ®×¹ï¸Ü¤è¶ô­º¦¸¶}±Ò®É¡A¹w³]¿z¿ï§P©w©ÒÅã¥ÜªºÀÉ®×Ãþ«¬¡C
  12.         If .Show = 0 Then Exit Sub              '¨S¿ï¾ÜÀÉ®×®ÉÂ÷¶}ÀÉ®×
  13.         For i = 1 To .SelectedItems.Count   '¨Ì§Ç¦b¿ï¾ÜÀɮ׼ƥتº°j°é
  14.             Set F = CreateObject("Scripting.FileSystemObject").OpenTextFile(.SelectedItems(i), 1, -1)
  15.             'F.READALL Ū¨úÀɮתº¤å¦r, Split(¦r¦ê, ¤À¹j¦r¦ê)->¶Ç¦^¤@ºû°}¦C
  16.             For Each Str In Split(F.READALL, Chr(10))  '¶Ç¦^¤@ºû°}¦C ªº°j°é
  17.                 If Str Like "*TEST*" Then
  18.                     Cells(ii + 1, "a") = Str            '¾ã¦C¶×¤J¤u§@ªí
  19.                     ii = ii + 1                         '¤U¤@¦C
  20.                 End If
  21.             Next
  22.             F.Close                                     'Ãö³¬¤å¦rÀÉ
  23.         Next
  24.     End With
  25. End Sub
½Æ»s¥N½X

TOP

¦^´_ 7# GBKEE

¦hÁ¤j¤jªºÀ°¦£,¦ý¬O§Ú¤S¸I¨ì¥t¤@­Ó°ÝÃD¬O¦³¨Çdata ¶×¤J«áÄæ¦ì»Ý­n¦V¥ªshift¤@Äæ©Î¨âÄæ(®Ú¾ÚAÄæ­È¨M©w»Ý¤£»Ý­nshift),³o¤S¸Ó¦p¦ó°µ?ÁÂÁÂ~

   
SHIFT.zip (7.29 KB)

TOP

¦^´_ 8# herhsiu
§AªºªþÀɤ¤¨S¦³µ{¦¡½X¦p¦óÀ°§A­×¥¿.
¤å¦rÀɤ]­nªþ¤W¬Ý¬Ý µ{§Ç¬O­n¨Ì»Ý¨D¨Ó¼gªº.

TOP

£­....¤j¤j¤£¦n·N«ä,¦]¬°Àɮ׬O¦b¤½¥qê©óPIP­­¨îµLªk¤W¶Ç,§Ú¦b®a¤¤¤W¶ÇªºÀɮ׬O¥Ü·N¹Ï,§Ú·Q°µªº¨Æ±¡¬O:¬d¸ß¨ìÀɮ׸̭±¤º®e¦pªG²Å¦X¤U­±¨â¦C®æ¦¡ªºdata »Ý­n¶×¤J(³¡¤À¤º®e¬°©T©w¤w¥i¥ÑGBKEE¤j¤j©Ò´£¨Ñµ{¦¡¹F¦¨),²{¦b¸I¨ìªº°ÝÃD¬O²Ä¤G¦C®æ¦¡,¨ä¤¤¦³¤@Äæ¦ì[parentNo]«á­±ªº¼Æ¦r¬°shiftªºÄæ¦ì¼Æ,¸Ó¦Cdata»Ý¨Ì¦¹¼Æ¥Ø©¹¥ªshift,¥t¥~¦pªG§Ú§Æ±æ³o¨ÇÄæ¦ì¯à°÷¸ê®Æ­åªR¦¨³Ì«á¨â¦Cªº®æ¦¡¸Ó¦p¦ó°µ?¦]¬°TextToColumns¥u¦³¤@­Ó¦Û­qªº²Å¸¹,­n°µ¨ì¦n¹³¦³§xÃø.¤£¦n·N«ä°ÝÃD¦³ÂI¦h


"00:01:46  ¸ê®Æ = RAW values ( 'Z9.01','FG','90','SZ001.1','GL01',SYSDATE,'N','0.1','0.1' , '-0.0129','0.006','-0.0119','0.0305','-0.0047','-0.0066','-0.0158','0.0007', '-0.0233','-0.0057','-0.0124','0.0057','-0.0113','0.0174','0.0005','-0.0122', '-0.0136','-0.0074','-0.016','0.0003','0.0025','-0.0143','0.0031','0.0121', '0.0161','-0.0222','0.0013','-0.0118','0.0004','-0.0116','-0.0055','0.0155', '-0.0076','0.0391','0.0001','0.0117','-0.012','0.0159','-0.0137','0.0085')

"00:01:47 EQS send GLData_V5 to DS. [RvMsg]: [primPrcdId]Z9.01 [lotId]SZ001.1 [GLAutoRecipeId]V90_20 [GLEqpId]GL01 [stage]FG [parentNo]0 [intraTranslationX]-0.001 [intraTranslationY]0.000 [intraMagnification]-0.038 [intraRotation]0.035 [interRotation]0.042 [interOrthogonality]-0.020 [interExpansionX]-0.130 [interExpansionY]-0.256 [interTranslationX]-0.009 [interTranslationY]0.004 [asymrotation]-0.760 [asymmagnification]-0.134 [FlagSet]-00068+00036+00000+01000
/////////////////////////////////////////////

·Q­n±NÀÉ®×importÂà´«¦¨¤U¦C®æ¦¡"00:01:46        0.1        0.1        -0.0129        0.006        -0.0119        0.0305        -0.0047        -0.0066        -0.0158        0.0007        -0.0233        -0.0057        -0.0124        0.0057        -0.0113        0.0174        0.0005        -0.0122        -0.0136        -0.0074        -0.016        0.0003        0.0025        -0.0143        0.0031        0.0121        0.0161        -0.0222        0.0013        -0.0118        0.0004        -0.0116        -0.0055        0.0155        -0.0076        0.0391        0.0001        0.0117        -0.012        0.0159        -0.0137        0.0085                                                                                               
"00:01:47        -0.001        0        -0.038        0.035        0.042        -0.02        -0.13        -0.256        -0.009        0.004        -0.76        -0.134        968

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD