[Excel] Export vanuit Access type mismatch

[Barca]

Ik heb een database in Access en heb reeds diverse rapporten die ik automatisch wegschrijf naar Excel. Nu heb ik in een query de volgende definitie gemaakt:

code:

Originator: "=RTD(" & """BLOOMBERG.RTD""" & "," & """""" & "," & """" & [astISIN] & " " & [astBloomkey] & """" & "," & """ISSUER""" & ")"

deze geeft b.v. als resultaat:

code:

Originator
"=RTD(""BLOOMBERG.RTD"","""",""US00764MAA53 Mtge"",""ISSUER"")"

Bij het exporteren is het probleem dat er in Excel een ' voor komt; ofwel hij ziet het niet als formule maar als tekstveld. Er staat dus:

code:

'"=RTD(""BLOOMBERG.RTD"","""",""US00764MAA53 Mtge"",""ISSUER"")"

1. Het wijzigen van de celeigenschappen biedt geen soelaas
2. Helaas werkt een replace ' by "niks" niet
3. De code die ik nu gebruik om te exporteren is:

code:

Set rstText = CurrentDb.OpenRecordset("tbuTekst", dbOpenDynaset)
intTeller = 0
rstText.MoveFirst
Do While Not rstText.EOF
    intTeller = intTeller + 1
    objWorkbook.Sheets("FitchABS").Cells(1, intTeller).Value = rstText!namFitchABS
   rstText.MoveNext
Loop

Mijn vraag luidt derhalve; hoe kan ik ervoor zorgen dat Access bij de export geen ' toe voegt zodat Excel het als formule ziet?

Tot slot;
4. Het is geen probleem als ik een formule moet "activeren" door aan het einde te gaan staan en dan op ENTER moet drukken, want de Bloomberg Excel add-in biedt de functie dit automatisch te doen
5. Uiteraard biedt Google mij geen soelaas

[ Voor 171% gewijzigd door Barca op 20-03-2006 22:10 ]

[nescafe]

Moet je van

objWorkbook.Sheets("FitchABS").Cells(1, intTeller).Value = rstText!namFitchABS
niet
objWorkbook.Sheets("FitchABS").Cells(1, intTeller).Formula = rstText!namFitchABS

maken?

[Barca]

Nice try! Maar helaas, dit werkt niet. Nog steeds de ' ervoor. Ik weet dat het een beetje krom lijkt trouwens de code... maar dat komt omdat ik in Access in feite een Excel formule naboots. Dat kan niet anders omdat de data op een Bloomberg machine in Excel moet worden ingelezen.

[ Voor 6% gewijzigd door Barca op 20-03-2006 20:50 ]

[Lustucru]

WAt levert een

code:

debug.print rstText!namFitchABS

op?
Ik kan me amper voorstellen dat VBA eigenhandig met single quotes gaat strooien, ik kan het iig niet reproduceren.

offtopic:
Code graag tussen [code][/code] tags. Dat leest een stuk prettiger en het verschil tussen 'en " wordt ook meteen duidelijker. En als je het dan ook nog in het goede subforum zou plaatsen is iedereen weer blij

SA-->OFF

[Barca]

Opgelost met hulp van nescafe, waarvoor dank.

Het komt er op neer dat de "TransferSpreadsheet" code in mijn:

code:

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "qryBlaat", strFullFile

de mogelijkheid helaas niet biedt. Derhalve is e.e.a. herschreven.

Meer informatie is hier te vinden.