VB و Excel

[Hamedm]

سلام

میخواستم بدونم چطوری میشه Data هارو به سلولهای Excel فرستاد(از طریق VB) و این Dataهارو نرم افزار Excel بتونه بازکنه.

در پناه حق موفق باشید و پرتوان

[بابک زواری]

خودم تست نکردم ببین درسته

   Dim ExcelObj as Excel.Application

     Set ApExcel = CreateObject("Excel.Application")

     ApExcel.Visible = True

     ApExcel.Workbooks.Add 'Following is the small Example i have shown u might get a idea from it..

     ApExcel.Cells(1, 2) = "FOB"

     ApExcel.Cells(1, 3) = "FREIGHT"

     ApExcel.Cells(1, 4) = "INSURANCE"

     ApExcel.Cells(1, 5) = "CIF"

     ApExcel.Cells(1, 6) = "CIF KEN"

     ApExcel.Cells(1, 7) = "GROSS WT."

     ApExcel.Rows(1).Font.Bold = True

[بابک زواری]

اینا رو هم یک نگاه بکن

Public Sub ToExcel()

    '+++++++++++++++++++++++++++++++++++++++++++

    ' Reference : MicroSoft Excel 9.0 Object Library

    '+++++++++++++++++++++++++++++++++++++++++++

    Dim xl As Excel.Application

    Dim wb As Object

    Dim ws As Object

    Dim Osheet As Excel.Worksheet

    Dim xrng As Excel.Range

    

    Dim excelwasnotrunnung As Boolean

    

    ' Make New Object

    Set xl = CreateObject("Excel.Application")

    

    ' Display Screen

    xl.Application.Visible = True

    ' Add Excel

    xl.Workbooks.Add

    xl.ActiveSheet.Name = "HelloSheet" ' Change Name of Sheet

    

    Dim i, j, k, p As Integer

    

    

فکر کنم مثل هم هستن اما همینطور از کدم کپی کردم گذاشتم اینجا

Private Sub Form_Load() 



Set xlApp = CreateObject("excel.application") 

xlApp.Application.Workbooks.Add True 

xlApp.Cells(1, 1) = "dddddddddd" 

xlApp.Visible = True 



colIndex = 1 

rowIndex = 1 



For i = 1 To 10 

  colIndex = colIndex + 1 

  rowIndex = rowIndex + 1 

  xlApp.Cells(rowIndex, colIndex) = i 

Next 



End Sub

[Hamedm]

سلام

جناب زواری ممنون. :flower: :flower: :flower: ...

در پناه حق موفق باشید و پرتوان

[raha1986]

سلام
میخواستم بدونم چطوری میتونم داده هام رو از یک فایل Excel داخل یه جدول تو DB تو SQL Server بریزم؟

ممنون میشم کمک کنین