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

[µo°Ý] ¸óÀɮקì¸ê®Æ.txt

[µo°Ý] ¸óÀɮקì¸ê®Æ.txt

½Ð°Ý¦p¦ó§â¸ê®Æ½Æ»s¡B¶K¤W¨ìEXCEL¸Ì­±ªºÀx¦s®æ¡A¦³´X¦Ê­ÓÀÉ®×­n§ì¦n¦h¦¸¡A¦nÀYµh¡C
Snipaste_2021-07-15_15-12-55.png
2021-7-15 15:16

¼Æ¾Ú¸ê®Æ.rar (150 Bytes)

¤å¦rÀÉ

¶}¤ß¾Ç²ß,¾Ç²ß«Ü¶}¤ß

Sub ¸ü¤J¤å¦rÀÉ()
Dim PH$, FN$, Arr(1 To 30000, 1 To 3), j%, N&, T, TR
ActiveSheet.UsedRange.ClearContents
PH = ThisWorkbook.Path & "\GRD File\"
Do
   If FN = "" Then FN = Dir(PH & "*.grd") Else FN = Dir
   If FN = "" Then Exit Do
   Open PH & "\" & FN For Input As #1
   While Not EOF(1)
         Line Input #1, T
         TR = Split(T & "  ", " "): N = N + 1
         For j = 0 To 2
             Arr(N, j + 1) = TR(j)
         Next j
   Wend
   Close #1
Loop
If N > 0 Then [a1].Resize(N, 3) = Arr
End Sub

TEST001.rar (8.44 KB)


======================

TOP

¤]¥i¥H§Q¥ÎDOS«ü¥O¦X¨Ö

WIN °õ¦æ CMD «ü¥O¡A¶}±ÒDOS
CD ¨ì§Aªº¥Ø¿ý
COPY *.grd All_grd.txt
±N©Ò¦³ grdÀÉ®×¥þ³¡¦X¨Ö¦¨¤@­ÓÀɮסA¦bECELE¦b¶}±Ò©Î¶×¤J
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¼Ó¤Wªº¤è¥H¥i¥HÅܧó¤@¤U¬°  CSVÀÉ®×·|§ó¦n¤@ÂI
OPY *.grd All_grd.CSV
µ{¦¡¤H­û

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD