PDA

View Full Version : سوال: انتقال داده به ايكسل



sajjad1365
دوشنبه 06 دی 1389, 11:52 صبح
سلام .من اين كدها رو براي انتقال داده به ايكسل مينويسم.ولي خطاي : invalid library رو ميگيره.
به نظر شما اشكال كجاست. اصلا اين كدها درسته ؟؟؟؟؟؟؟؟؟؟؟
ممنون ميشم پاسخ بدين.

Microsoft.Office.Interop.Excel.Application m_objExcel = new Microsoft.Office.Interop.Excel.Application();
Microsoft.Office.Interop.Excel.Workbooks m_objBooks = (Microsoft.Office.Interop.Excel.Workbooks)m_objExc el.Workbooks;
Microsoft.Office.Interop.Excel.Workbook m_objBook = (Microsoft.Office.Interop.Excel.Workbook)m_objBook s.Add(XlSheetType.xlWorksheet);

// Add data to cells in the first worksheet in the new workbook.
Microsoft.Office.Interop.Excel.Sheets m_objSheets = (Microsoft.Office.Interop.Excel.Sheets)(m_objBook. Worksheets[1]);
Microsoft.Office.Interop.Excel.Worksheet m_objSheet = (Microsoft.Office.Interop.Excel.Worksheet)(m_objSh eets.get_Item(1));
Microsoft.Office.Interop.Excel.Range m_objRange = m_objSheet.get_Range("A1", XlSheetType.xlWorksheet);
m_objRange.Value2 = "Last Name";
m_objRange = m_objSheet.get_Range("B1", XlSheetType.xlWorksheet);
m_objRange.Value2 = "First Name";
m_objRange = m_objSheet.get_Range("A2", XlSheetType.xlWorksheet);
m_objRange.Value2 = "Doe";
m_objRange = m_objSheet.get_Range("B2", XlSheetType.xlWorksheet);
m_objRange.Value2 = "John";
// Apply bold to cells A1:B1.
m_objRange = m_objSheet.get_Range("A1", "B1");
Microsoft.Office.Interop.Excel.Font m_objFont = m_objRange.Font;
m_objFont.Bold = true;
// Save the Workbook and quit Excel.
//m_objBook.SaveAs(foll+ "Book1.xls", m_objOpt, m_objOpt,
// m_objOpt, m_objOpt, m_objOpt, Microsoft.Office.Interop.Excel.XlSaveAsAccessMode. xlNoChange,
// m_objOpt, m_objOpt, m_objOpt, m_objOpt);
//m_objBook.Close(false, m_objOpt, m_objOpt);
//m_objExcel.Quit();
m_objExcel.Visible = true;




ودر vb هم همين خطا رو ميگيره.
Imports xl = Microsoft.Office.Interop.Excel


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim app As New xl.Application : Dim WorkBook As xl.Workbook : Dim Worksheet As xl.Worksheet
Dim obj_Value As Object = System.Reflection.Missing.Value
Dim r, c As Integer
WorkBook = app.Workbooks.Add(obj_Value)
Worksheet = WorkBook.Sheets("sheet1")
For r = 0 To 10
For c = 0 To 10
Worksheet.Cells(r + 1, c + 1) = c.ToString()
Next
Next
app.Visible = True
End Sub


در ضمن افيس 2003 دارم.