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

[µo°Ý] ±qexcelÀɮצC¦L¨ì°O¨Æ¥»°ÝÃD?

[µo°Ý] ±qexcelÀɮצC¦L¨ì°O¨Æ¥»°ÝÃD?

¾Ç©f¤S¨Ó³Â·Ð¤j®a¤F

¥´¶} EXCEL Àɦ³¸Ô²Ó»¡©ú³á

½Ð«Ó­ô/¬ü¤kª©¥D «Ó­ô/¬ü¤k¾Çªø¸ò¾Ç©j

À°¦£¾Ç©f§¹¦¨



ÁÂÁ¤F

ATTACH.rar (129.73 KB)

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-9-10 06:54 ½s¿è

¦^´_ 1# metrostar
ª½±µ¿ï¾Ü¤å¦rÀÉ­×¥¿
  1. Sub output()
  2.     Dim Fos As String, Fs As Object, i As Integer, S As Variant
  3.     With Application.FileDialog(msoFileDialogOpen)  '¶}±ÒÂÂÀÉ®×
  4.         .InitialFileName = "*.txt"   '¿ï¾Ü¤å¦rÀÉ
  5.         If .Show = 0 Then Exit Sub
  6.         Fos = .SelectedItems(1)
  7.     End With
  8.     Set Fs = CreateObject("Scripting.FileSystemObject").OpenTextFile(Fos, 1)
  9.     'OpenTextFile:¶}±Ò¤@­Ó«ü©wªºÀɮרöǦ^¤@­Ó TextStream ª«¥ó¡A¸Óª«¥ó¥i¥Î©ó¹ïÀɮ׶i¦æŪ¨ú©Îªþ¥[¡C
  10.     S = Replace(Replace(Fs.READALL, " ", ""), "-", "0")
  11.     Fs.Close
  12.     Set Fs = CreateObject("Scripting.FileSystemObject").CreateTextFile(Fos, True)
  13.     'CreateTextFile :«Ø¥ß¤@­Ó«ü©wªºÀɦW¨Ã¥B¶Ç¦^¤@­Ó¥Î©ó¸ÓÀÉ®×Ū¼gªº TextStream ª«¥ó¡C
  14.     Fs.Write S
  15.     Fs.Close
  16. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD