Macro en excel para análisis de fourier

agarciag
09 de Octubre del 2008
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