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

txt¤å¦rÀɶפJexcel VBA?

txt¤å¦rÀɶפJexcel VBA?

§Ú¦³¤@­Ótxtªº¤å¦rÀÉ¡A§Ú¤w«Ø¥ß¤@­ÓButton(ŪÀÉ)ªºicon¡A¦p¦ó±N¤å¦rÀɤ¤ªº¸ê®Æ¶×¤Jexcel?
txtÀɤº®e:
14:49:48        14:49:54        6        9        8        1        ¤U¦æ
14:54:50        14:55:12        22        13        6        7        ¤U¦æ
14:54:53        14:55:29        36        11        5        6        ¤U¦æ
14:54:52        14:55:43        51        11        4        7        ¤U¦æ
14:54:54        14:55:57        63        11        3        8        ¤U¦æ
14:54:57        14:56:15        78        11        1        10        ¤U¦æ
14:56:51        14:57:00        9        4        8        4        ¤W¦æ
14:56:50        14:57:15        25        4        10        6        ¤W¦æ
14:59:34        14:59:55        21        13        1        12        ¤U¦æ
14:49:41        14:49:57        16        11        12        1        ¤W¦æ
14:51:05        14:51:12        7        7        8        1        ¤W¦æ
³£¬O¥H"ªÅ®æ"¨Ó°Ï¤À¡A§Úª¾¹D½Æ»s¸ê®Æ¶K¨ìexcel¦A¥Î¸ê®Æ­åªRªºªÅ®æ¨Ó¤À¿ë:¡A¦p¦óÂIButton´N±N14:49:48¶×¤JA1¡A14:49:54¶×¤JB1¡A6¶×¤JC1...¥H¦¹Ãþ±À¡C

ª½±µ¥Îexcel¥h¶}±Ò¤å¦rÀÉ
¶}±Ò«á´N·|¦³¸ê®Æ­åªR£x¿ï¾Ü­¶­±¥X²{¤F

Sub Macro1()
    Workbooks.OpenText Filename:="C:·s¼W¤å¦r¤å¥ó.txt" _
        , Origin:=950, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), _
        TrailingMinusNumbers:=True
End Sub
boyao

TOP

¦^´_ 2# boyao

boyao¤j¤j:  ¥i¥H¸ÑÄÀ¤@¤U§Aªº»yªk¶Ü?  ÁÂÁÂ

TOP

¶}±ÒÀÉ®×£x¸ô®|
  Workbooks.OpenText Filename:="C:·s¼W¤å¦r¤å¥ó.txt"
¸ê®Æ­åªRªº¨º¨Ç¥´¤Ä¿ï¶µ(³sÄòªÅ®æ³]©w¬°³æ1.¨ä¥L³£¤£¤Ä¿ï)
      , Origin:=950, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=True, Other:=False,
³]©w¤ÀÃþ¿ï¶µ 1~7¬°²Ä´XÃþ.«á­±¨º­Ó1¬O³]©wÅã¥Ü.ÁôÂÃ.©Î®æ¦¡
FieldInfo:=Array(Array(1, 1),Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)),  TrailingMinusNumbers:=True

³Ì²³æªº°µªk...
ª½±µ¶}±ÒªÅ¥ÕExcel.µM«á¿ý»s¥¨¶°
±µµÛ¶}±Ò§A©Ò­nÂà´«ªº¤å¦rÀÉ.¨Ì·Ó§A­nªº¸ê®Æ­åªR®æ¦¡°õ¦æ¤@¦¸
¦A¶}±Òµ{¦¡½X.­×§ï¤@¤U¸ô®|´Nok¤F
boyao

TOP

¦^´_ 4# boyao

boyao¤j¤j    ¤w¸g¤F¸Ñ  ÁÂÁ§Aªº¸Ñ»¡. ·P®¦

TOP

½Ð°Ý¥i¥H§â¿ï¨úÀɮ׳¡¥÷¡A°µ¦¨¿ï¨ú¤è¦¡¡A¥H§Q¤£À´VBSªº¦P¨Æ¨Ï¥Î©O¡H
¤p§Ì¬Oexcelµ{¦¡ªì¾ÇªÌ¡A½Ð¦h¦h«ü±Ð

TOP

¦^´_ 6# chiahuo


    ¤Þ¥Î boyao ¤j¤jªºµ{¦¡  Workbooks.OpenText Filename:="C:·s¼W¤å¦r¤å¥ó.txt"

¤èªk1.¥Îtextbox ¤èªk
     ·s¼W¤@­Ó textbox ¤¸¥ó¡A±N ¿é¤JªºÀɮצWºÙ¡B¥Ø¿ý ³]¬°¬õ¦â°Ï¬q
    ¨Ò¦p
      dkk = textbox1.text       '¦¹³Bªº textbox1.text ¸ê®Æ¥²¶·¥]§t¥Ø¿ý + ÀɮצWºÙ  ¦p C:\·s¼W¤å¦r¤å¥ó.txt
       Workbooks.OpenText Filename:= dkk

        ¥i°Ñ¦Ò ¥H¤U¤å³¹(°Q½×°Ï¤º¦³¬Û¦ü¤å³¹ )
        http://forum.twbts.com/thread-1592-1-2.html

¤èªk2 ¤U©Ô¿ï³æ
         ·s¼W¤U©Ô¿ï³æ¤¸¥ó¡A±N¥Ø¿ý¹w³]¤J¤¸¥ó¤º¡A·j´M«áªºÀɮצWºÙ¦A¦C¥X¨Ó¡C

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_ 6# chiahuo
Sub Macro1()
    Dim fileToOpen
    fileToOpen = Application.GetOpenFilename(FileFilter:="Text Files (*.txt),*.txt", Title:="½Ð¿ï¾ÜÀÉ®×")
    If fileToOpen <> False Then

        Workbooks.OpenText Filename:=fileToOpen _
        , origin:=950, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), _
        TrailingMinusNumbers:=True
    End If
End Sub

TOP

¦pªG·Q¶×¤J«ü©wÀx¦s®æ©O?(¨S¦³¨Ì§Ç¶×¤J)
14:49:48Ä椺®e¶×¤JC1
14:49:54Ä椺®e¶×¤JA1¡A
6Ä椺®e¶×¤JB1...¥H¦¹Ãþ±À

TOP

¦^´_ 9# qqchange


¥LµLªk¤£¨Ì§Ç«ü©w¶×¤J
¿ï©w­n¶×¤J¸ê®Æªº¶µ¥Ø.¤£­nªº¸ê®Æ´N³]©w¤£¶×¤J
­«½Æ¶×¤J´X¦¸´N¥i¥H¤F...
boyao

TOP

        ÀR«ä¦Û¦b : «Î¼e¤£¦p¤ß¼e¡C
ªð¦^¦Cªí ¤W¤@¥DÃD