export result of a macro to a text file

[nehachoubey]

Hi,
i have written a macro in my workbook whose result is in sheet2. I have to export the result in a text file. it will be done through a .bat or .csv file. plz help!!

 

[jim may]

Show your existing Macro...

 

[nehachoubey]

Sub Test()
Dim LR As Integer
Dim LR2 As Integer

With Sheets("Sheet1")
LR = .Range("A" & Rows.Count).End(xlUp).Row
LR2 = .Range("B" & Rows.Count).End(xlUp).Row
For i = 2 To LR
'For j = 2 To LR2
If Sheets("Sheet1").Range("B" & i).Value = "" Then
Sheets("Sheet2").Range("A" & i).Value = "SELECT " + "'" & Sheets("Sheet1").Range("A" & i).Value & "' NAME " & " FROM DUAL UNION"

ElseIf Sheets("Sheet1").Range("B" & i).Value = "<Mention the folder name(s) for which permission is required>" Then
Sheets("Sheet2").Range("A" & i).Value = "SELECT * FROM DUAL UNION"

Else
Sheets("Sheet2").Range("A" & i).Value = "SELECT " + "'" & Sheets("Sheet1").Range("A" & i).Value & "' NAME,'" _
& Sheets("Sheet1").Range("B" & i).Value & "' VALUE FROM DUAL UNION"
End If




Next i

End With

End Sub

 

[Warship]

maybe...

    Sheets("Sheet2").Copy
    ActiveWorkbook.SaveAs Filename:="C:\XLtest\Book1.csv", _
                          FileFormat:=xlCSV, _
                          CreateBackup:=False
    ActiveWorkbook.Close False

 

[nehachoubey]

thanks for this but actually i want to perform this action thought a batch or a vbs file.. the point is that i need not open the excel at all. Just provide the excel file path.