Excel - pasar de excel a .dat

   
Vista:

pasar de excel a .dat

Publicado por john (1 intervención) el 16/09/2008 17:04:08
hola tengo un archivo de excel y lo de seo pasar a .dat me pordrian decir como hago
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:pasar de excel a .dat

Publicado por Juanco (29 intervenciones) el 17/09/2008 16:32:00
creo que te puede servir este código, yo tengo un asunto similar pero lo quiero pasar a .doc con un formato especifico.

Dim apliword As Object
Dim nume As Double
Dim ape1 As String
Dim ape2 As String
Dim nomb As String
Dim tedo As String

Set apliword = CreateObject("word.application")
With apliword
.documents.Add
.Visible = True
nume = Worksheets("Evaluador").[a5]
ape1 = Worksheets("Evaluador").[b5]
ape2 = Worksheets("Evaluador").[c5]
nomb = Worksheets("Evaluador").[d5]
tedo = "nume&ape1&ape2&nomb"

Worksheets("Evaluador").[a5:d5].Copy
.Selection.typeparagraph
.Selection.pasteexceltable linkedtoexcel:=False, wordformatting:=True, RTF:=False
.activedocument.SaveAs ("C:Documents and SettingsPsicologiaMis documentosJuan CarlosAccesando edo.doc")
.Selection.WholeStory
.Selection.Copy
Range("b1").Select
ActiveSheet.Paste

End With

apliword.Quit

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar