Formula desde Acces

Y no es mas facil llevar los datos de tu campo1 y campo2 al Excel y
despues, ahi mismo colocar las formulas??? O la pregunta solo para
saber si se puede directamente enviarlo del campo3 y que Excel lo
inlcuya como formula? Esto ultimo es complicarse, yo lo haria con ADO,
pero repito, es complicarse:

Sub xxx()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim x As Long, y As Long
Set cnn = New ADODB.Connection

cnn.ConnectionString = _
"Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=D:\Base de datos1.accdb" & ";" & _
"Jet OLEDB:Database Password=xxx"
cnn.Open

Set rst = New ADODB.Recordset


Sql$ = "select * from tabla2"

With rst
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open Sql$, cnn, , , adCmdText
End With

rst.MoveFirst
y = 1

For x = 1 To rst.RecordCount
Cells(y, 1) = rst.Fields!campo1
Cells(y, 2) = rst.Fields!campo2
Cells(y, 3) = rst.Fields!campo3
Range("C65536").End(xlUp).Formula = Range("C65536").End(xlUp).Formula
rst.MoveNext
y = y + 1
Next x

Set cnn = Nothing
Set rst = Nothing

End Sub


Abraham

Hola Abraham, muchas gracias por tu respuesta, el tema de pasar directamente
el formato de las formulas desde access es por que son muchas y tendria que
generarlas una a una cada vez que saco el informe y no es un informe estatico
si no que cada mes tiene mas o menos lineas, y hacer las formulas ha mano es
un mucho trabajo ya que es bastante grande, esto lo sacaba en un listado
access, pero ahora me lo piden igual pero en formato excel.

Por otro lado solo comentarte que investigando he encontrado una solución,
un poco rudimentaria, pero funciona, lo dejo aqui por si a alguien le viene
bien.
Simplemente hago una busqueda del valor "=" que es como comienzan todas las
formulas que le paso al informe, y lo sustituyo por ese mismo valor "=" y
automaticamente cambia los literales a formulas en todos los campos.

Un saludo
Javier

"Abraham" wrote:

Y no es mas facil llevar los datos de tu campo1 y campo2 al Excel y
despues, ahi mismo colocar las formulas??? O la pregunta solo para
saber si se puede directamente enviarlo del campo3 y que Excel lo
inlcuya como formula? Esto ultimo es complicarse, yo lo haria con ADO,
pero repito, es complicarse:

Sub xxx()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim x As Long, y As Long
Set cnn = New ADODB.Connection

cnn.ConnectionString = _
"Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=D:\Base de datos1.accdb" & ";" & _
"Jet OLEDB:Database Password=xxx"
cnn.Open

Set rst = New ADODB.Recordset


Sql$ = "select * from tabla2"

With rst
..CursorLocation = adUseClient
..CursorType = adOpenKeyset
..LockType = adLockOptimistic
..Open Sql$, cnn, , , adCmdText
End With

rst.MoveFirst
y = 1

For x = 1 To rst.RecordCount
Cells(y, 1) = rst.Fields!campo1
Cells(y, 2) = rst.Fields!campo2
Cells(y, 3) = rst.Fields!campo3
Range("C65536").End(xlUp).Formula = Range("C65536").End(xlUp).Formula
rst.MoveNext
y = y + 1
Next x

Set cnn = Nothing
Set rst = Nothing

End Sub


Abraham

.

Hola JAvier. Para nada rudimentario tu metodo, justo por eso te hacia
las preguntas si era tan necesario hacerlo al llevar los datos, ya que
en lugar de complicarte como dije usando codigo, pues tu optaste por
la salida mas simple he igual de efectiva, y lo mejor, desde el mismo
Excel

saludos

Abraham