Utilizamos Cookies de terceros para generar estadísticas de audiencia y mostrar publicidad personalizada analizando tu navegación. Si sigues navegando estarás aceptando su uso. Más información X
PortadaForo AyudaTutoriales
InicioForosForo Office

Macro en excel para análisis de fourier

Nav_13
2008-10-09 10:50 - Respuestas: 0 - Tema nº: 2546661


Características: Windows XP Home Packard Bell EASYNOTE V7912.

Estoy trabajando en una macro de excel para realizar un análisis de Fourier de unos datos. Por internet hay bastantes ejemplos del código, pero yo solo obtengo un error 1004 "Error definido por la aplicación o el objeto" al llegar a la línea de Fourier. El código es el siguiente:

Dim DataIn, DataOut

'Rango de entrada y salida
Set DataIn = Worksheets("In").Range("$B$125:$B$132")
Set DataOut = Worksheets("Out").Range("$E$31")

'// Quick Check of input size...
n = DataIn.Cells.Count
t = Round(Log(n) / Log(2), 10)

If t - Int(t) 0 Then
MsgBox "Wrong size of input..." & n
Exit Sub
End If

'Llamo a FFT
'// FFT Bug...Clear Output first
DataOut.Resize(n, 1).ClearContents
Application.Run "ATPVBAEN.XLA!Fourier", DataIn, DataOut, False, False

¿Alguna idea de porqué?. Ya no se que hacer

Página:1

Respuestas relacionadas:

Macro en excel 2003Macro en excel 2003Foro
Habilitar macro en excel 2003Habilitar macro en excel 2003Foro
Macro para excel con outlookMacro para excel con outlookForo
Macro en excel cronometro con decimasMacro en excel cronometro con decimasForo
Macro de búsqueda y eliminacion de excelMacro de búsqueda y eliminacion de excelForo
Macro excel buscar celdaMacro excel buscar celdaForo
Incorporar macro en excel u otra sugerenciaIncorporar macro en excel u otra sugerenciaForo
Macro en código vb para excel (solucionado)Macro en código vb para excel (solucionado)Foro
Ayuda macro excel-visual basic(api)Ayuda macro excel-visual basic(api)Foro
Macro en excel para notificar en outlookMacro en excel para notificar en outlookForo
InicioSecciones
^ SubirAviso legal
Política Privacidad
Configurarequipos26 Abril 2024