pregunta

06/12/2003 - 00:55 por vmahot | Informe spam
Deseo convertir mi hoja de excel en base de datos , es
decir en codigo ascii, para incluirla en otro software
pero este solicita un tabulador con | y cada que termina
una captura o elemento de la lista solicita || y no se
como traducirlo pues las opciones para convertir en texto
no lo hacen
si alguien me puede ayudar lo agradeceria
 

Leer las respuestas

#1 Héctor Miguel
06/12/2003 - 12:34 | Informe spam
hola, vmahot !

... convertir mi hoja ... en base de datos ... codigo ascii para ... otro software
... este solicita un tabulador con | y cada que termina ... elemento ... ||
... como traducirlo pues las opciones para convertir en texto no lo hacen [...]



prueba con la siguiente macro y 'revisa' el archivo que 'genera'
[obviamente] puedes cambiar el nombre, la ruta y el caracter delimitador [si es necesario]
_______
Public Sub ExportarTextoDelimitado()
Application.ScreenUpdating = False
Dim Archivo As String, Delimitar As String, A_num As Integer, _
Fila As Long, Fila_1 As Long, Fila_n As Long, _
Col As Integer, Col_1 As Integer, Col_n As Integer, _
Linea As String, Celda As String
Archivo = "C:\Mis documentos\ArchiTexto.txt"
Delimitar = "|"
On Error GoTo Salida:
A_num = FreeFile
With ActiveSheet.UsedRange
Fila_1 = .Cells(1).Row
Col_1 = .Cells(1).Column
Fila_n = .Cells(.Cells.Count).Row
Col_n = .Cells(.Cells.Count).Column
End With
Open Archivo For Output Access Write As #A_num
For Fila = Fila_1 To Fila_n
Linea = ""
For Col = Col_1 To Col_n
If Cells(Fila, Col).Value <> "" _
Then Celda = Application.Text(Cells(Fila, Col), Cells(Fila, Col).NumberFormat) _
Else Celda = ""
Linea = Linea & Celda & Delimitar
Next
Linea = Left(Linea, Len(Linea) - Len(Delimitar)) & String(2, Delimitar)
Print #A_num, Linea
Next
Salida:
On Error GoTo 0
Close #A_num
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨¨¨
saludos,
hector.

Preguntas similares