viernes, 8 de marzo de 2013

Formación Excel a empresas.

Cursos de Excel para empresas programados de todos los niveles.
Destinados a aquellos departamentos con necesidades de explotar las hojas de cálculo.
• Cursos personalizados: donde tú decides qué es lo que necesitas.
• o Cursos estándar o general: para aprender diferentes aspectos de Excel.

Puedes informarte y leer más en Formación Excel para empresas por Excelforo.


Por supuesto, puedes optar por la oferta de Cursos de Excel y Macros en modalidad elearning (online):

Curso Excel Financiero

(ver más)

Curso Tablas dinámicas en Excel

(ver más)

Curso Excel Avanzado para versiones 2007/2010

(ver más)

Curso Excel Medio 2007/2010

(ver más)

Curso Macros Iniciación

(ver más)

Curso Macros Medio

(ver más)

Curso preparación MOS Excel 2010 (Examen 77-882)

(ver más)


Con la confianza de siempre....Anímate!!

Exige tu factura... es tu derecho.

2 comentarios:

  1. hola que tal, mi nombre es Andrés y espero que puedan ver mi consulta a través de sus pantallas, pero tengo una consulta ya que soy novato en el tema de las macros y quiero aprender.

    tengo este código para poder tomar un archivo word luego agregar los datos, y finalizar guardando este archivo como pdf, pero no resulta ya que lo utilizo como objeto. la verdad es que quiero aprender pero no se mucho y de verdad se que lo estoy haciendo mal, pero no me ha resultado mucho algunos tips en google. les dejo el código. saludos y gracias por la ayuda

    Private Sub Crear_Click()
    Dim datos(0 To 1, 0 To 6) As String '(columna,fila)

    Line = 7
    E = 0

    While Cells(Line, 1) <> ""

    patharch = ThisWorkbook.Path & "\XX_XXX_MAO4_3G_850_NewSite.docx"
    Set objword = CreateObject("Word.Application")
    objword.documents.Add template:=patharch, NewTemplate:=False, DocumentType:=0


    datos(0, 1) = "[SITE]"
    datos(1, 1) = Hoja1.Cells(Line, 1)
    'datos(columna,fila) = Hoja1.cells(fila,columna)
    datos(0, 5) = "[NAME-CREATOR]"
    datos(1, 5) = Hoja1.Cells(Line, 5)
    'datos(columna,fila) = Hoja1.cells(fila,columna)
    datos(0, 3) = "[DATE-CREATION]"
    datos(1, 3) = Hoja1.Cells(Line, 3)
    'datos(columna,fila) = Hoja1.cells(fila,columna)





    For i = 0 To UBound(datos, 2)

    textobuscar = datos(0, i)
    objword.Selection.Move 6, -1
    objword.Selection.Find.Execute FindText:=textobuscar

    While objword.Selection.Find.found = True
    'LO QUE HACE ES TOMAR EL VALOR QUE ENCUENTRA EN DATOS(1, NUMERO) Y LO REEMPLAZA
    objword.Selection.Text = datos(1, i) 'texto a reemplazar
    objword.Selection.Move 6, -1
    objword.Selection.Find.Execute FindText:=textobuscar
    Wend

    Next i

    sitio = Cells(Line, 1)
    band = Cells(Line, 4)
    cadena = sitio & "_MAO4_3G_" & band & "_NewSite"


    'objword.ActiveDocument "D:\Cesar Arauna\Excel\MAO2013\" & cadena & ".pdf", OutputFileName:=ExportFormat:= wdExportFormatPDF


    objword.Quit
    Set objword = Nothing
    'Application.ScreenUpdating = True
    Line = Line + 1

    Wend
    'Application.DisplayAlerts = True


    MsgBox ("Los archivos ya estan creados")
    End Sub

    ResponderEliminar
    Respuestas
    1. Hola Cesar,
      la verdad me pierdo en qué quieres hacer con la parte media del código
      objword.Selection.Move 6, -1
      objword.Selection.Find.Execute FindText:=textobuscar

      While objword.Selection.Find.found = True
      'LO QUE HACE ES TOMAR EL VALOR QUE ENCUENTRA EN DATOS(1, NUMERO) Y LO REEMPLAZA
      objword.Selection.Text = datos(1, i) 'texto a reemplazar
      objword.Selection.Move 6, -1
      objword.Selection.Find.Execute FindText:=textobuscar

      pero si quieres crear un archivo en Word desde Excel, e incorporar cierta información en ese Docx., prueba con algo como esto:
      Sub CrearNuevoDoc()
      Dim wrdApp As Word.Application
      Dim wrdDoc As Word.Document
      Dim i As Integer
      Set wrdApp = CreateObject("Word.Application")
      wrdApp.Visible = True
      Set wrdDoc = wrdApp.Documents.Add
      With wrdDoc
      For i = 7 To 10
      .Content.InsertAfter "Dato---" & Hoja1.Cells(i, 1)
      .Content.InsertParagraphAfter
      Next i
      If Dir("E:\Excelforo\NuevoDoc.docx") <> "" Then
      Kill "E:\Excelforo\NuevoDoc.docx"
      End If
      .SaveAs ("E:\Excelforo\NuevoDoc.docx")
      .Close
      End With
      wrdApp.Quit
      Set wrdDoc = Nothing
      Set wrdApp = Nothing
      End Sub

      Y lo más importante, añade la referencia de Word !!
      Espero te pueda orientar.
      Slds

      Eliminar