MS Project

[semika]

Ηθελα να ρωτήσω αν έχει κανείς από εσάς ασχοληθεί με το MS Project. Θέλω να δημιουργήσω ένα vb script που να παίρνει πίνακα από Project και να το μετατρέπω σε excel. Γίνεται κάτι τέτοιο??

Εναλλακτικά θα ήθελα να δημιουργήσω ένα vb.net που να μετατρέπει το project σε xml. Kαμμιά ιδέα?
Ευχαριστώ...

[HdkiLLeR]

Δυστιχώς με Project πέρα απο κάποια βασικά δεν έχω παίξει καθόλου. Στο MSDN έψαξες καθόλου;

[semika]

Βασιλάκη παιδέυτηκα αλλά το βρήκα.

Θα ήθελα να ρωτήσω το εξής:
θέλω να ανοίξω από το vb.net ένα ήδη υπάρχον αρχείο EXCEL
και να του προσθέσω τιμές σε ορισμένα κελιά:
Κάνω το εξής:

Code: Select all

Imports Microsoft.Office.Interop

        Dim xlApp As Excel.Application
        Dim xlWorkbook As Excel.Workbook
        Dim xlSheet As Excel.Worksheet
        Dim xlRng As Excel.Range


        xlApp = New Excel.Application
        xlApp.Visible = False

        Dim oldCI As System.Globalization.CultureInfo = System.Threading.Thread.CurrentThread.CurrentCulture
        System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("en-US")

        xlWorkbook = xlApp.Workbooks.Open("C:\Documents and Settings\Template.xls")
        System.Threading.Thread.CurrentThread.CurrentCulture = oldCI

        xlSheet = xlWorkbook.ActiveSheet

        xlRng = xlSheet.Range("A8")
        xlRng.Value = 10


        xlApp.ActiveWorkbook.Save()
        xlRng = Nothing
        xlSheet = Nothing
        xlWorkbook = Nothing
        xlApp.Application.Quit()
        'System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
        xlApp = Nothing

και παίρνω το λάθος:

An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in mscorlib.dll

Additional information: Exception from HRESULT: 0x800A03EC.

Καμιά ιδέα!
HELP!

[mikem4600]

Δεν αναφέρεις σε ποια γραμμή σου βγάζει το exception.

Ψάξε στο documentation των COM components του Office στην MSDN (λογικά θα περιλαμβάνει και το λάθος που σου βγαίνει).

[semika]

To βγάζει
xlRng = xlSheet.Range("A8")
xlRng.Value = 10

Δεν ξέρω τι φταίει..
Εψαξα εκεί που λες και δε βρήκα τπτ.