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 بریزم؟

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