ayuda con macro para excel

[virla]

Necesito hacer una macro en excel que me permita abrir un documento word y pasar los datos al excel, en el documento word los datos estan separados por espacios.
bueno espero que algun maestro me explique como podria hacer esto, yo programo en visual basic 6, no soy el super programador pero me defiendo, pero en el tema de macros en office nada, si bien se que la programacion es similar al visual basic.
desde ya muchas gracias a los maestros que me puedan dar una mano.
virla

[judoka]

hola mira la siguiente macro abre un archivo numeros.txt y copia los valores en la hoj ade caculo a pertirde la celda A10

Sub Macro1()
ChDir "C:\mis documentos"
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\mis documentos\numeros.txt", Destination:=Range("a10"))
.Name = "numeros"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With
End Sub
estoy lejos de ser un maestro , pero espero haberte podido ayudar

[RadicalEd]

MIRA ESTA PAGINA TAL VES TE SIRVA
http://www.xltoday.net/sitemap.asp

[virla]

todavia no lo prove, pero se puede hacer que en vez de ponerle el nombre del archivo pueda abrir una ventana abrir para que se pueda seleccionar el archivo necesario, lo otro es que necesitaria que sea un archivo doc y no txt
gracias igual por tu ayuda ahora voy a probarlo de cualquier manera

[virla]

helpme, plissss
he probado el de yudoca, y funciona pero el tema es que en el archivo doc, las columnas vienen diferentes a la de la plantilla excel se puede solucionar esto, y lo otro es que necesito que se pueda abrir el documento word y no el txt, para agilizar el trabajo.
si no se puede, se prodria hacer algo desde visual basic 6 digamos, un programita que me abra la plantilla excel y que con un boton me habra el word y me haga la transicion de los datos de uno al otro?
gracias y espero tu ayuda

[judoka]

o intente con un .doc , pero no resulta....vere si encuentro una solución ...podrias mandarme un ejemplo del archivo .doc para intentar algo??? te doy mi correo en un privado.

[virla]

ok, mandame un privado con tu email

[virla]

alguien que me de una mano con esto plisssss
lo necesitaria solucionar urgente
gracias

[andersj]

Hola, has probado la funcion CreateObject? /anders

Option Base 1
Public varText()

Sub AbrirWordDesdeExcel()

Dim strWordArchivo As Variant
Dim i, r, intLineas As Integer
Dim appWord As Word.Application
Dim appDoc As Word.Document
Dim rngDoc As Word.Range

'dialogo 'abrir archivo'
strWordArchivo = Application.GetOpenFilename ("Documentos Word (*.doc), *.doc"): On Error GoTo 99

'crear objeto Word
Set appWord = CreateObject("Word.Application")
Set appDoc = appWord.Documents.Open(strWordArchivo)

'leer Word
intLineas = appDoc.Paragraphs.Count: ReDim varText(intLineas)

r = 1
For i = 1 To intLineas
Set rngDoc = appDoc.Range( _
Start:=appDoc.Paragraphs(i).Range.Start, _
End:=appDoc.Paragraphs(i).Range.End)
varText(i) = rngDoc.Text
r = r + 1
Next i

'traspasar datos...
For x = 1 To UBound(varText)
Cells(x, 1) = varText(x)
Next x

appDoc.Close: Set appDoc = Nothing
appWord.Quit: Set appWord = Nothing

99:
End Sub

[virla]

lo prove pero me sale definicion de usuario no valida o algo por el estilo
me gustaria probarlo para ver si funciona bien
gracias amigo

[andersj]

No olvides marcar 'Microsoft Word x.xx Object Library' en Herramientas - Referencias del editor VBA/anders

[virla]

haa ok gracias en un rato lo pruebo muchas gracias

[virla]

sigo en la espera de una ayuda con esto, si alguien puede darme una mano, estoy mas que apurado ya que es para el trabajo y sino esto lo tengo que hacer manualmente.
Desde ya muchas gracias y felices fiestas a todos los maestros y a los no maestros tambien

[virla]

andersj lo que vos me pasastes no funciona porque me pone todo los datos en una sola columna y ademas con basura.
pliss alguien que me de una mano, porque esto sino tengo que hacerlo a mano y me lleva mucho tiempo
espero sus colaboraciones muchas gracias

[virla]

La otra podria ser, hacer un programita que me permita hacer lo mismo, quizas sea mas facil.
AYUDENMEEEEEEEEEEEEE

[andersj]

Bueno, inserta estas líneas de código justo antes del "99:".

'a columnas
Columns("A:A").TextToColumns _
Destination:=Range("A1"), _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, _
Tab:=False, _
Semicolon:=False, _
Comma:=False, _
Space:=True, _
Other:=False

'suprimir filas vacías
intUltimaFila = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count
For i = intUltimaFila To 1 Step -1
If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete
Next r

[virla]

Muchas gracias, ahora mismo voy a probarlo
Felices Fiestas a todos

[virla]

La verdad que lo prove pero no funciona, no se porque
Alguien puede darme una mano con esto
gracias