[µo°Ý] EXCEL¶Ç¤å¦rÀÉ°ÝÃD½Ð±Ð

rouber590324

DEAR ALL ¤j¤j
1.¨Ï¥Î¹Ï¤@¤è¦¡¥i±NEXCEL¤º®e¶Ç¦Ü¤å¦rÀÉ.­YEXCEL¸ê®Æ10¦C
   ¶Ç¦Ü¤å¦rÀÉ«á.²Ä11¦C°_.......³£·|¶ÇªÅ¥Õ
  M= Sheet2.[A65536].End(xlUp).Row
    For X = 1 To M
    of.Write (Sheet2.Cells(X, 1) & Chr(13) & Chr(10))
    Next
2.½Ð±Ð¦p¦ó­×§ï¬° EXCEL ¦³´X¦C¸ê®Æ.¶Ç¦Ü¤å¦rÀɤ]¶È¦³´X¦C¸ê®Æ.¤å¦rÀɤ£­n¥X²{ªÅ¥Õ¦C¤§ªÅ¥Õ­È
3.·Ð¤£§[½ç±Ð  THANKS*10000

¹Ï¤@
Sub ¶Ç°e¦Ü¤å¦rÀÉ()
   Sheet2.Visible = True
   Sheet1.Select
   Range("A1").Select
   If Sheet1.Range("c1") = "NG" Then
   MsgBox "¸ê®Æ¤W­­¶W¹L 5000µ§-»Ý»P³¯·C»¨½T»{"
   End If
   If Not (Sheet1.Range("c1") = "NG") Then
   '²Õ¦XÀɮצWºÙ
    OutFile = "\\89.80.70.1\imp\" & Sheet2.Range("B1") & "-CB.pm.txt"
    '«Ø¥ßÀɮת«¥ó
    Set fs = CreateObject("Scripting.FileSystemObject")
    '¶}±Ò¤@­Ó¥sofªº¤å¦rÀɪ«¥ó¨Ñ¿é¥X
    On Error Resume Next
    On Error GoTo 1
    Set of = fs.CreateTextFile(OutFile, True)
    '¿é¥X¼ÐÃD¦Üof
    M = Sheet2.[A65536].End(xlUp).Row
    For X = 1 To M
    of.Write (Sheet2.Cells(X, 1) & Chr(13) & Chr(10))
    Next
    Sheet2.Select
    Range("A1").Select
    'ÃöÀÉ
    of.Close
1:  Sheet1.Select
    Range("A1").Select
    End If
End Sub

GBKEE

¦^´_ 1# rouber590324

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim fs As Object, X As Long
   
4.     Set fs = CreateObject("Scripting.FileSystemObject")
   
5.     Set fs = fs.CreateTextFile("d:\testfile.txt", True)
   
6.     For X = 1 To Sheet2.[A65536].End(xlUp).Row
   
7.         If Sheet2.Cells(X, 1) <> "" Then fs.Writeline Sheet2.Cells(X, 1)    ' & Chr(13) & Chr(10))
   
8.     Next
   
9.     fs.Close
   
10. End Sub

½Æ»s¥N½X

rouber590324

dear GBKEE  ¤j¤j
·PÁ±z thanks*10000