[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