Excel ¿é¥X txt¡A¦h¾lªÅ¥Õ¦æ
- ©«¤l
- 57
- ¥DÃD
- 36
- ºëµØ
- 0
- ¿n¤À
- 94
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-9-10
- ³Ì«áµn¿ý
- 2024-8-13
|
Excel ¿é¥X txt¡A¦h¾lªÅ¥Õ¦æ
¤j®a¦n
¥Ø«en±N¤u§@³¡ªºÄæ¦ìAªº¼Æ¾Ú¡A¿é¥X¨ì¤å¦rÀÉtxt¤¤¡A¦Aµ¹¨ä¥Lµ{¦¡°õ¦æ¨Ï¥Î
µ{¦¡½X¥Dn¦p¤U¡A¦ý·|¦³Ó°ÝÃD´N¬O¿é¥X§¹¦¨«áªºtxtÀɮפ¤
¹ê»Ú¤W¥½ºÝ·|¦³¤@Ӫťզæ
³o¾ÉP¨ä¥Lµ{¦¡°õ¦æ®É·|¥X¿ù
·Q½Ð°Ý¬O§_¦³¿ìªkÅýexcel¿é¥X®É¡A¥i¥HÁקK¦³³oªÅ¥Õ¦æ
ÁÂÁÂ- torget = folderPath & "javainput.txt"
- Open torget For Output As #1
- For i = 1 To filledCellsCount
- outputinfo = Trim(ActiveSheet.Cells(i, 1).Value)
- Print #1, outputinfo
-
-
- Next i
- Close #1
½Æ»s¥N½X
|
|
|
|
|
|
|
- ©«¤l
- 154
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 200
- ÂI¦W
- 31
- §@·~¨t²Î
- windwos 7
- ³nÅ骩¥»
- 64bit
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2017-5-29
- ³Ì«áµn¿ý
- 2024-11-28
|
¦^´_ 1# yenwang
Sub test()
Dim fso As Object, filledCellsCount As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
Set target = fso.CreateTextFile("d:\javainput.txt", True)
filledCellsCount = 8
For i = 1 To filledCellsCount - 1
target.WriteLine Cells(i, 1)
Next
target.Write Cells(filledCellsCount, 1)
target.Close
Set fso = Nothing
End Sub |
|
|
|
|
|
|
- ©«¤l
- 57
- ¥DÃD
- 36
- ºëµØ
- 0
- ¿n¤À
- 94
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-9-10
- ³Ì«áµn¿ý
- 2024-8-13
|
¦^´_ 2# quickfixer
¸U¤À·PÁÂ
¦¨¥\¤F:D |
|
|
|
|
|
|
- ©«¤l
- 1447
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1471
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-12-5
|
|
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
|
|
|
|
|