½Ð°Ý¦p¦ó±N¿ï¨úªºtxtÀɤº®e¶×¤J«ü©wÀx¦s®æ©O?
- ©«¤l
- 31
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 59
- ÂI¦W
- 0
- §@·~¨t²Î
- win 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2013-4-4
- ³Ì«áµn¿ý
- 2013-9-2
|
½Ð°Ý¦p¦ó±N¿ï¨úªºtxtÀɤº®e¶×¤J«ü©wÀx¦s®æ©O?
¥»©«³Ì«á¥Ñ Mindyj ©ó 2013-4-23 14:48 ½s¿è
½Ð±Ð¦U¦ì«e½ú¡A§Ú¥Ø«eª¦¤å§ä¨ì±NtxtÀÉ¥Hexcel¼Ò¦¡¶}±Ò
¥i¬O©|¥¼§ä¨ì¥ô¦ó¥i¥Hª½±µÅª¨ú©M½Æ»stxtÀɤº®e¶K¤W¦Ü«ü©wsheet1Àx¦s®æA6¡A¨Ã¥B©T©wÀx¦s®æ¤j¤p
¥i¥H½Ð±Ð¦U¦ì«e¨ì¸Ó¦p¦ó°õ¦æ³oÓ³¡¥÷¶Ü? ÁÂÁÂ
[attach]14754
ª¦¤åªº¤º®e¦p¤U
Dim fileToOpen
fileToOpen = Application.GetOpenFilename(FileFilter:="Text Files (*.txt),*.txt", Title:="please select the file")
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 |
-
-
Import txt.zip
(16.38 KB)
import
-
-
Import txt.zip
(16.38 KB)
|
|
|
|
|
|
- ©«¤l
- 31
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 59
- ÂI¦W
- 0
- §@·~¨t²Î
- win 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2013-4-4
- ³Ì«áµn¿ý
- 2013-9-2
|
|
|
|
|
|
|
- ©«¤l
- 31
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 59
- ÂI¦W
- 0
- §@·~¨t²Î
- win 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2013-4-4
- ³Ì«áµn¿ý
- 2013-9-2
|
¤p¤k¤£¤~¡A¤£ª¾¦p¦ó§ó§ï¦¹½X¡A°ÝÃD¦p¤U
°ÝÃD1. txtÀÉ·|ÀHµÛ¨Ï¥ÎªÌ©Ò¿ï¾ÜªºÀɮצӦ³©Ò¤£¦P¡A©Ò¥H¤~·|¨Ï¥Îmacro¶i¦æÀɮ׿ï¨úªº°Ê§@
°ÝÃD2. ¨Ï¥ÎªÌ¦b¿ï¨úÀɮ׫á¡Amacro·|±N¿ï¨úÀɮפ§¤º®e½Æ»s¨Ã¶K¤W¦Ü«ü©wsheet»P«ü©wÀx¦s®æ¤¤ |
|
|
|
|
|
|
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 247
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-13
|
¦^´_ 4# Mindyj - Sub import()
- Dim A As Range
- fs = Application.GetOpenFilename("Text Files (*.txt), *.txt")
- Set A = Application.InputBox("¿ï¾Ü¤å¦rÀÉn©ñ¸mªº¦ì¸m", , "$A$1", , , , , 8)
- Open fs For Input As #1
- Do While Not EOF(1) ' °õ¦æ°j°éª½¨ìÀɧÀ¬°¤î¡C
- Line Input #1, TextLine
- A.Offset(i, 0) = TextLine
- i = i + 1
- Loop
- Close #1
- End Sub
½Æ»s¥N½X |
|
¾Ç®üµL²P_¤£®¢¤U°Ý
|
|
|
|
|
- ©«¤l
- 31
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 59
- ÂI¦W
- 0
- §@·~¨t²Î
- win 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2013-4-4
- ³Ì«áµn¿ý
- 2013-9-2
|
·PÁª©¥D¡B´ú¸Õ¦¨¥\!!! |
|
|
|
|
|
|
- ©«¤l
- 31
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 59
- ÂI¦W
- 0
- §@·~¨t²Î
- win 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2013-4-4
- ³Ì«áµn¿ý
- 2013-9-2
|
½Ð°Ýª©¥D¡B¦pªG¿ï¾ÜªºÀɮ׫¬ºA¤£¨î¡B¨Ã±N¶K¤WÄæ¦ì©T©w¦bA1¸Ó«ç»òקï©O?
§Ú¸Õ¹L±NÀÉ®×Ãþ«¬§ï¬°all¡A¥i¬O¨Ã¤£¾A¥Î¡C- Dim A As Range
- fs = Application.GetOpenFilename("Files (*.all), *.all")
- Set A = Application.InputBox("Choose the file position", , "$A$1", , , , , 8)
- Open fs For Input As #1
- Do While Not EOF(1) ' Loop to the end of the file?
- Line Input #1, TextLine
- A.Offset(i, 0) = TextLine
- i = i + 1
- Loop
- Close #1
½Æ»s¥N½X ¦^´_ 5# Hsieh |
|
|
|
|
|
|
- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 15
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-12
|
½Ð°Ýª©¥D¡B¦pªG¿ï¾ÜªºÀɮ׫¬ºA¤£¨î¡B¨Ã±N¶K¤WÄæ¦ì©T©w¦bA1¸Ó«ç»òקï©O?
§Ú¸Õ¹L±NÀÉ®×Ãþ«¬§ï¬°all¡A¥i¬O ...
Mindyj µoªí©ó 2013-6-3 11:20
§Aªº 02. ¦æµ{¦¡n§ï¦¨ :
fs = Application.GetOpenFilename("All Files (*.*), *.*")
§Y¥i.
¦b Windows ¨t²Î¤¤ *.all ¨Ã¤£¬O "Àɮ׫¬ºA¤£¨î" ªº·N«ä,
¦Ó¬O¦p :
1.all
efaew.all
cfg.all
³oÃþ °ÆÀɦW¬° all ªºÀÉ®×,
Y·Q¦C¥X "Àɮ׫¬ºA¤£¨î" ªºÀÉ®×,
À³¸Ón¥Î *.* ¨Ó§@¬°¿z¿ï±ø¥óªº¤å¦rªí¥Ü. |
|
|
|
|
|
|
- ©«¤l
- 31
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 59
- ÂI¦W
- 0
- §@·~¨t²Î
- win 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2013-4-4
- ³Ì«áµn¿ý
- 2013-9-2
|
¦^´_ 8# luhpro
ÁÂÁÂluhpro¡A§Ú¾Ç²ß¨ì¹ê¥Îªº¤@½Ò¡C
¤£¹L²{¦b©µ¦ù¥X¥t¤@Ó°ÝÃD¡An«ç»ò¼Ë¤~¯àÅý¥ô¦óÀɮ׳£Âରhtmlªº¤è¦¡¶K¨ìexcel¤W±©O? |
|
|
|
|
|
|
- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 15
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-12
|
¦^´_ luhpro
...
¤£¹L²{¦b©µ¦ù¥X¥t¤@Ó°ÝÃD¡An«ç»ò¼Ë¤~¯àÅý¥ô¦óÀɮ׳£Âରhtmlªº¤è¦¡¶K¨ìexcel¤W±©O?
Mindyj µoªí©ó 2013-6-6 07:27
¬Ý¤£À´§Aªº·N«ä.
Âରhtmlªº¤è¦¡¶K¨ìexcel?
¦b Excel ¥»¨ªº¨¤«×¤W,
¥¦¤W±ªº¨CÓÀx¦s®æ³£¥i¥H¦³¦Û¤vªº®æ¦¡,
¦ý¦L¶H¤¤¦ü¥G¨Ã¨S¦³©Ò¿×ªºhtml®æ¦¡,
ÁÙ¬O»¡§A·Qn§â Excel ·íÂsÄý¾¹¥Î¶Ü?
Y¬O¨º©Î³\§A¥i¥H¥ý·s¼W¤@Óªí³æ,
¦A´¡¤J¤@ÓWebBrowserª«¥ó¨Ó¹ê²{.
(¦Ü©ó«ç»ò¹ê²{§Ú¤]¤£·|,¥i¯àn½Ð¨ä¥L¤H¦^µª¤F) |
|
|
|
|
|
|