انتقال اطلاعات از مایکروسافت پروژه به اکسل

[k.mirahmadian]

سلام
میخوام اطلاعاتms project رو پس از پردازش از طریق vba در یک فایل excel ذخیره کنم
ولی در ایجاد فایل اکس از طریق کدنویسی دچار مشکل شدم . یعنی فایل اکسل باز نمیشه
از طریق منوی tools / references/excel 12o object lib رو add کردم ولی در حین اجرا error میده

Private Sub btntable_Click()
Dim exceltable As Excel.Application
Dim wbk As Workbook
Set exceltable = New Excel.Application
Set wbk= exceltable.Workbooks.Open("C:\Program Files\Microsoft Office\Office12\EXCEL")

End Sub
ممنون میشم اگر منو راهنمایی کنید یا بتونید یه مرجع معتبر معرفی کنید
راستی شماره error 1004 هستش

[vbhamed]

سلام

تو خط يكي به آخر بايد نام فايل Execl اي كه قراره باز بشه رو بنويسيد نه مسير نصب برنامه Excel
ضمنا بايد فايل از قبل وجود داشته باشه

[مسعود رسائي]

سلام
ببين اين خيلي داستان داره:
اگه بخواهي msp را به exell تبديل كني بخاطر وجود كوئري هاي داخل msp حتما در انتقال آن مشكل پيدا ميكني چون اصلاً ساختار اين دو با هم متفاوته :
من msproject 2003 را به Sql server متصل كرذم و از طريق sqlserver برنامه هاي خودمو ادامه دادم
اول بايد يه ديتا سورس ايجاد بكني تا از طريق آن بطوني ارتباط داشته باشي اين كارو ميتوني از contol panel -adminstrative tool-datasource انجام بدي
بعد از بايد از طريق برنامت اين ديتا سورس را run كني

Public Sub Msp_file_create()
Dim k As String = "" & Application.StartupPath & "\msp\test.mpp"

Dim oleMpp As OleDbConnection = New OleDbConnection("Provider=Microsoft.Project.OLEDB.11.0;PROJECT NAME=" + k.ToString)
Dim pj As New Microsoft.Office.Interop.MSProject.Application
pj.FileOpen(k.ToString)

pj.FileSaveAs(Name:="<savemsp>" + "\" + Msp_INSERT_Shenasname.Text_Name_project.Text.ToStr ing, UserID:="", DatabasePassWord:="", FormatID:="MSProject.ODBC")

pj.FileExit(Microsoft.Office.Interop.MSProject.PjS aveType.pjDoNotSave)
End Sub