22/05/2014, 11:36
Kod:
Dim csv As String = "C:\otomasyon"
Dim oExcel As Excel.Application = CreateObject("Excel.Application") 'bunu kullanmazsan excel nesnen oluşmaz.
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Worksheet
oBook = oExcel.Workbooks.Open(csv & "\son form.xlsx") 'burada açılır dosya
oSheet = oBook.Worksheets("Sayfa1")
'oSheet.Range("A1:I1:J1:A2:B2:C2:D2:E2:F2:G2:H2:J2").Font.Bold = True
'oSheet.Range("A2:B2:C2:D2:E2:F2:G2:H2:J2").Borders.Color = Color.Black
'oSheet.Range("A2:B2:C2:D2:E2:F2:G2:H2:J2").Interior.ColorIndex = 5
'oSheet.Range("A2:B2:C2:D2:E2:F2:G2:H2:J2").Font.Color = Color.White
'oSheet.Range("B2:C2:D2:E2:F2:G2:H2:J2").EntireColumn.AutoFit()
'oSheet.range("A1").cells.Merge.center()
Dim dr As DataRow
Dim i As Int32 = 17
Dim columnsheet As String = ""
oSheet.Range("b7").Value = Today.Date
oSheet.Range("b8").Value = TextBox6.Text
oSheet.Range("b9").Value = TextBox9.Text
oSheet.Range("b10").Value = TextBox3.Text
oSheet.Range("d10").Value = TextBox4.Text
oSheet.Range("e7").Value = TextBox7.Text
oSheet.Range("f10").Value = TextBox17.Text
oSheet.Range("i10").Value = TextBox16.Text
oSheet.Range("i7").Value = MaskedTextBox1.Text
oSheet.Range("i8").Value = TextBox2.Text
oSheet.Range("i9").Value = TextBox20.Text
For Each dr In DT.Rows
oSheet.Range("A" + i.ToString()).Value = dr("stokkodu")
oSheet.Range("C" + i.ToString()).Value = dr("parcaadi")
oSheet.Range("F" + i.ToString()).Value = dr("adet")
oSheet.Range("G" + i.ToString()).Value = dr("toplamtutar")
oSheet.Range("I" + i.ToString()).Value = dr("adet") * dr("toplamtutar")
i = i + 1
Next
MsgBox("AKTARMA İŞLEMİ BAŞARIYLA GERÇEKLEŞTİRİLMİŞTİR", MsgBoxStyle.Information, )
oExcel.Visible = True
connection1.Close()
End Sub
iyi günler Excel e kayıt yaparken ilk başta çalışan kodum şimdi konu başlığında belirttiğim hatayı veriyor yardımcı olursanız sevinirim. Şimdiden teşekkür ederim