Εισαγωγή formula σε κελί μέσω VBA...

Γειά σας και καλό μήνα...μήπως μπορεί να με βοηθήσει κάποιος με το εξής:
Θέλω μέσα από Access 2000 να γράψω κώδικα ώστε να εισάγω formula σε ένα κελί ενός αρχείου excel.
Μήπως ξέρει κανείς πως μπορώ να το κάνω???
Thanks in advance....

[kon73]

Αγαπητή φίλη ChryssaV καλημέρα,

Σε ένα module της Access μπορείς να εισάγεις αυτόν τον κώδικα που δημιουργεί ένα αρχείο xls και εισάγει την συνάρτηση Sum, (Αντικαθειστάς όποια συνάρτηση θέλεις).Το όνομα του αρχείου αποθηκεύεται στο C:\Formula.xls.
Η ιδιότητα κλειδί είναι η Formula ιδιότητα του oExcel Object όπου εκεί εισάγεται η formula και όχι οι τιμές 1,2 που γίνεται με την ιδιότητα value.

Public Function ImportFormulaExcel()
   Dim oExcel As Object
   Dim oBook As Object
   Dim oSheet As Object

   'Start a new workbook in Excel
   Set oExcel = CreateObject("Excel.Application")
   Set oBook = oExcel.Workbooks.Add


   'Add data to cells of the first worksheet in the new workbook
   Set oSheet = oBook.Worksheets(1)
   oSheet.Range("A1").Value = "Price1"
   oSheet.Range("B1").Value = "Price2"
   oSheet.Range("A2").Value = "2"
   oSheet.Range("B2").Value = "1"
   'Save the Workbook and Quit Excel
   oSheet.Range("C2").Formula = "=SUM(A2:B2)"
   oBook.SaveAs "C:\Formula.xls"
   oExcel.Quit

End Function

Φιλικά

iliadisk / kon73

Καλημέρα...thanks, κάπως έτσι το έκανα και εγώ...

[kon73]

Καλημέρα,

Πως φαίνεται δεν πρόλαβα να σε εξυπηρετήσω καθότι είχες ήδη βρει την λύση.

Ζητώ συγνώμη για την καθυστέρηση.

Φιλικά

iliadisk / kon73

Η καθυστέρηση ορισμένες φορές είναι και για καλό...άθελα σου με "έσπρωξες" να βρω λύση...
Όπως και να έχει, κράτησα και τον δικό σου κώδικα για πάσα νόσο και πάσα μ...κία που θα μου ζητήσουνε...

Καλή συνέχεια...