Snasui Excel Forum

Code: Select all

Sub test()

        Dim objStream
        Set objStream = CreateObject("ADODB.Stream")
        Dim myRange As Range
        Dim ce As Range
        
        objStream.Charset = "UTF-8"
        objStream.Open
        objStream.SaveToFile "C:\Users\AccountName\Desktop\sample.txt", 2
        
        Open "C:\Users\AccountName\Desktop\sample.txt" For Output As #1
        
        Set myRange = Worksheets("INPUT").Range("A1:A10")
        
        For Each ce In myRange
         
        Print #1, ce.Value
        
        Next ce
        Close #1
        
         MsgBox ("Done")
End Sub

Code: Select all

Sub Macro1()
'
' Macro1 Macro
'

'
Dim myRange As Range
Dim ce As Range

Open "d:\sample.txt" For Output As #1


Set myRange = Worksheets("INPUT").Range("A1:A1")
answer = Application.WorksheetFunction.Min(myRange)

Range("A1").Select
Sheets("OUTPUT").Select


For Each ce In Range("A1" & ":A" & answer)
 
Print #1, ce.Value

Next ce
    Close #1



Sheets("INPUT").Select
Range("A1").Select

 MsgBox ("Done")
    

End Sub