Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
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
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.
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
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