Hi: This program write the second textfile but the first not i want the 2 textfiles in different tabs, please let me know where is the problem, thanks


Dim xl As Object
xl = CreateObject("Excel.Application")
xl.Visible = False

For x = 1 To 2
xl.Workbooks.Add()
xl.worksheets(x).select()
xl.Workbooks.OpenText(Filename:="C:\Documents and Settings\User\Desktop\429\medica" & x & ".txt", Origin:=Excel.XlPlatform.xlMSDOS, StartRow:=1, _
DataType:=Excel.XlTextParsingType.xlFixedWidth, TextQualifier:=Excel.XlTextQualifier.xlTextQualifierNone, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False, Space:=False, Other:=False, _
FieldInfo:=New Object() {New Object() {0, 2}, New Object() {9, 9}, _
New Object() {11, 1}, New Object() {12, 9}, New Object() {14, 1}, New Object() {46, 1}, _
New Object() {56, 9}, New Object() {58, 5}, New Object() {64, 9}, New Object() {66, 1}, _
New Object() {74, 9}, New Object() {76, 1}, New Object() {82, 9}, New Object() {84, 1}, _
New Object() {89, 9}, New Object() {91, 5}, New Object() {97, 9}, New Object() {99, 5}, _
New Object() {105, 9}, New Object() {107, 5}, New Object() {113, 9}, New Object() {115, 1}, _
New Object() {116, 9}})

Next x

xl.worksheets(1).SaveAs("C:\Documents and Settings\User\Desktop\filetemp\bo" & ".xls", Microsoft.Office.Interop.Excel.XlSaveAsAccessMode.xlNoChange)

xl.Quit()
xl = Nothing
End