Macro

[#1]

Buenas tardes:

Espero que alguien me pueda ayudar con la siguiente inquietud: Estoy construyendo una macro que me controle la semana actual del año pero no he podido a travez de la funcion Week(now()). He podido controlar el Year(now()), el Month(now()), etc, pero me aparece un error "Type mismatch: 'week' ". Espero que alguien me pueda ayudar u orientar.

Gracias

[#2]

Sergio, buenos días:

Espero no ser inoportuno. Tengo una inquietud con un gráfico de Pie. Cuando reviso mi modelo diseñado en Qv Enterprise 8.2 puedo ver los graficos Pie con unos porcentajes a su alrededor; pero cuando verifico el modelo a traves de la Web puedo ver el grafico de Pie pero no los porcentajes. Esos porcentajes son el resultado de una formula (Expresión) y adicionalmente estoy trabajando con IE 7.0.57

Alguna sugerencia?

Muchas gracias por tu orientación.

[#3]

hola a todos

mil disculpas por meter este tema aqui..... pero cuando la puse para que alguien me ayude no tuve exito espero alguien me pueda ayudar

Necesito Exportar a un Archivo de Texto dos tablas Que cree en QV, investigue y ya se como enviar UNA,

Pero No Puedo HACER  que se exporten dos tablas o mas en un Solo Archivo

esta es la macro que tengo:

Sub Guardar_en_Server

establecer tb = ActiveDocument.GetSheetObject ("CH01")

tb.ServerSideExportEx "C: \ Blog \ Tesoreria.xml", ";", 1

end sub

LO QUE QUIERO HACER ES EXPORTAR CH01 CH02 CH03 A UN SOLO ARCHIVO COMO LO HAGO??????

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------

O SI BIEN NO SE PUEDE HACER ESTO NECESITO ALGUNA MANERA DE TENER UNA TABLA EN QV QUE ME PERMITA TENER

UNA CABECERA

DETALLE

PIE

POR EJEMPLO

2012050840000                                                 CABECERA

DANNA       15             20       60

FIDEL         30             15       40                       DETALLE

NANCY       50             56       30

50304060                                                         PIE

COMO HAGO UNA TABLA ASI EN QV..................

LES AGRADESCO SU AYUDA

[#4]

sub launchXL2 (archivo )

          set oXL=CreateObject("Excel.Application")

          oXL.visible=false

          set wbLibro= oXL.Workbooks.Add

  ' lista de controles a poner en el excel y cuales de estos son imagenes

          '---------------------------------------

          aSheetObj=Array("CH56","CH57","CH60","CH58","CH59","CS01")

          imagenes=Array("CH58","CH59","CH60")

          '---------------------------------------

          for i= UBound(aSheetObj) to 0 step -1

                    oXL.Sheets.Add

                    img=false

                    Set oSH = oXL.ActiveSheet

              oSH.Range("A1").Select

              Set obj = ActiveDocument.GetSheetObject(aSheetObj(i))

     ActiveDocument.GetApplication.Refresh

    for j=0 to UBound(imagenes)

                        if aSheetObj(i)=imagenes(j) then

                                  img=true

                        end if

              next

              if img=false then

                        'msgbox "tabla"

                        obj.CopyTableToClipboard True

                        oSH.Paste

                        sCaption=obj.GetCaption.Name.v

                        oSH.Rows("1:1").Select

                              oXL.Selection.Font.Bold = True

                        oSH.Cells.Select

                        oXL.Selection.Columns.AutoFit

                        oSH.Range("A1").Select             

                              oSH.Name=left(sCaption,30)

              else

                        'msgbox "imagen"

                        obj.CopyBitmapToClipboard

                        sCaption=obj.GetCaption.Name.v

                              oSH.Name=left(sCaption,30)

                        oSH.Paste

              end if             

              set obj=Nothing

                    set oSH=Nothing

          next

    wbLibro.SaveAs archivo

          oXL.Quit

          Set wbLibro=Nothing

          Set oXL=Nothing

end sub

sub enviar

     launchXL2  "archivo.xlsx"

ensd sub