ayuda SaveAs excel vb2005

[kakashi20]

hola

estoy exportando a excel desde visual basic 2005 pero tengo un error en la siguiente instruccion



"Libro.SaveAs(Filename:=folder & nom & "_csv.txt", FileFormat:=xlText, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False)"





me aparece error en xlText y me dice que "no se ha dclarado el nombre xlText"



si alguien me pudicese ayudar se lo agradeceria

[kakashi20]

Alguien que me pueda ayudar por favor..!!!

[jaullo]

Que es lo que estas tratando de exportar? Un gridview,????

[kakashi20]

simplemente son datos que pego en el archivo de excel y lo quiero exportar con formato .txt

[dmassive]

Deberias poner el codigo completo, ¿de donde viene ese xlText? estara bien el espacio de nombres? que metodo usas para exportar? interop? el error es del compilador de VS o de Excel?

Y seguramente habra mas dudas...

[kakashi20]

Aqui esta el codigo completo, si me pueden ayudar se los agradeceria


Appl = New Microsoft.Office.Interop.Excel.Application
Libro = Appl.Workbooks.Open(My.Application.Info.DirectoryP ath & "\Formatos\formato_xparameters.xls")
Appl.DisplayAlerts = False
hoja1 = Libro.Worksheets(1)

'Le das el nombre del archivo y donde lo vas a guardar
nom = "x-parameters2G"
folder = "C:\Documents and Settings\jdgomezvi\Mis documentos\Programas vb6\CCT X parameters\"

Call BDSitesBD()

sql = "Delete * From Mapper_Vinc2"
rs = New OleDb.OleDbCommand(sql, Conn2)
rs.ExecuteNonQuery()

'insertas el mapper en la tabla
sql = "INSERT INTO Mapper_Vinc2 SELECT * FROM [Excel 8.0;DATABASE=\\bqaingrfdata\Ingenieria\Backup_Data bases\BD_Sites\Mapper.xls].[Mapper$]"
rs = New OleDb.OleDbCommand(sql, Conn2)
rs.ExecuteNonQuery()

sql = "SELECT BSC, Sitio, Mapper_Vinc2.[MTX Site ID], Mapper_Vinc2.[Cell Id], Mapper_Vinc2.[Lac ID], Latitud, Longitud, Mapper_Vinc2.[Orientacion Antena] FROM Mapper_Vinc2 WHERE Mapper_Vinc2.[MTX Site ID] <> '' AND Left$(Mapper_Vinc2.[Sitio],2) = 'GQ' or Left$(Mapper_Vinc2.[Sitio],2) = 'GS' ORDER BY Mapper_Vinc2.[MTX Site ID]"
rs = New OleDb.OleDbCommand(sql, Conn2)
dr = rs.ExecuteReader

hoja1.Activate()
i = 2
While dr.Read

hoja1.Cells(i, 1) = dr("BSC") & "," & dr("Sitio") & "," & dr("MTX Site ID") & ",732-123-" & dr("Lac ID") & "-" & dr("Cell Id") & ",2G," & dr("Latitud") & "," & dr("Longitud") & "," & dr("Orientacion Antena")
i = i + 1

End While


"Libro.SaveAs(Filename:=folder & nom & "_csv.txt", FileFormat:=xlText, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False)"

rs.Connection.Close()

MsgBox("Listo")

[dmassive]

Hola, puede ser un problema del namespace. Buscando rapidamente encontre estos fileformat:

xlTextMac
xlTextMSDOS
xlTextPrinter
xlTextWindows

pero no un xlText solo, puede que sea eso, verificalo.

[Germinal]

aqui te va como se salva un libro

Dim xlNormal As Long
xlNormal = -4143
Kill("C:\Análisis_Comercial.xls")
ApExcel.ActiveWorkbook.SaveAs( _
Filename:="C:\Análisis_Comercial.xls", _
FileFormat:=xlNormal, _
Password:="", _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False)


el xlText para ti, es lo q ahi es xlNormal
saludos

[dmassive]

Esas constantes que te pase son de Excel, estan en su espacio de nombres del interop, por lo tanto validas y seria recomendable que las uses.

Pero luego me mostras una variable que creaste vos, pero que sin embargo en el codigo fuente que colocaste no esta. Entonces, segun tu ejemplo, el error es que no declaraste la variable "xlText".

Por lo tanto deberias añadir a tu codigo (creo que sera asi en VB.NET):

Código vb:

Dim xlText As Long
xlText = -4143
 

Saludos!