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

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - Εισαγωγή formula σε κελί μέσω VBA... (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/142-eisagogi-formula-se-keli-meso-visual-basic-applications.html)

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

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

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

Αγαπητή φίλη 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

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

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

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

Καλημέρα,

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

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

Φιλικά

iliadisk / kon73

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

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