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

[µo°Ý] ½Ð°ª¤â«ü¾É¦p¦ó±N¤å¦rÀɤºªº¼Æ­ÈÂà¨ìEXCELL¤º

¦^´_ 1# lcctno

¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim ST, xAr, Ar()
  4.     '**»Ý­×§ï¬°­ìªo.TXT¥¿½Tªº¸ê®Æ§¨****
  5.     Open "D:\­ìªo.TXT" For Input As #1
  6.     '**********************************
  7.     ReDim Ar(0)
  8.     Do While Not EOF(1)
  9.         Line Input #1, ST
  10.         xAr = Split(ST, vbTab)
  11.         If UBound(Ar) = 0 Then xAr = Array("¤é´Á", "¦¬½L»ù", "¶}½L»ù", "³Ì°ª»ù", "³Ì§C»ù", "¥æ©ö¶q", "¦Ê¤À¤ñ")
  12.         Ar(UBound(Ar)) = xAr
  13.         If Not EOF(1) Then ReDim Preserve Ar(0 To UBound(Ar) + 1)
  14.     Loop
  15.     Close #1
  16.     With Sheets(1)
  17.         .UsedRange.Clear
  18.         .Range("a1").Resize(UBound(Ar) + 1, 7) = Application.Transpose(Application.Transpose(Ar))
  19.     End With
  20. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# lcctno
  1. Option Explicit
  2. Sub Ex()
  3.     Dim ST, xAr, Ar()
  4.     '**»Ý­×§ï¬°­ìªo.TXT¥¿½Tªº¸ê®Æ§¨****
  5.     Open "D:\­ìªo.TXT" For Input As #1
  6.     'Open ThisWorkbook.Path & "\­ìªo.TXT" For Input As #1
  7.     '**********************************
  8.     ReDim Ar(0)
  9.     Do While Not EOF(1)
  10.         Line Input #1, ST
  11.         xAr = Split(ST, vbTab)           'Split
  12.         'Split ¨ç¼Æ ¶Ç¦^¤@­Ó³¯¦C¯Á¤Þ±q¹s¶}©lªº¤@ºû°}¦C¡A¥¦¥]§t«ü©w¼Æ¥Øªº¤l¦r¦ê¡C
  13.         '³o¤@ºû°}¦Cªº¤º®e³£¬O¤å¦r
  14.         If UBound(Ar) = 0 Then xAr = Array("¤é´Á", "¦¬½L»ù", "¶}½L»ù", "³Ì°ª»ù", "³Ì§C»ù", "¥æ©ö¶q", "¦Ê¤À¤ñ")
  15.         Ar(UBound(Ar)) = xAr
  16.         If Not EOF(1) Then ReDim Preserve Ar(0 To UBound(Ar) + 1)
  17.     Loop
  18.     Close #1
  19.     With Sheets(1)
  20.         .UsedRange.Clear
  21.         .Range("a1").Resize(UBound(Ar) + 1, 7).Value = Application.Transpose(Application.Transpose(Ar))
  22.         With .UsedRange.Columns(1).Offset(1)
  23.             '** ­×§ï¬°¤é´Á®æ¦¡ ***
  24.             .Replace "¦~", "/"
  25.             .Replace "¤ë", "/"
  26.             .Replace "¤é", ""
  27.         End With
  28.     End With
  29. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD