اضافه کردن ستون به select زده شده بر روی table ای که از exel خوانده شده

[alja4824]

در ویژوال من برنامه ای نوشتم که اطلاعات داخل فایل exel را می خواند به این طریق

Dim sheetname As String = dt.Rows(sheet_count)("table_name").ToString()
Dim da As New OleDbDataAdapter("SELECT *,0 as Checked FROM [" & sheetname & "]", cn)
da.Fill(ds, sheetname)

مشکل من اینه که این فیلدی که خودم اضافه کردم (0 as Checked) رو که داخل datagridview میریزم رو بصورت checkbox ببینم داخل datagridview

[mohammadriano]

سلام سوال شما رو من متوجه نشدم بقیه رو نمی دونم
اگه توضیح بیشتر در خصوص مشکل بدین فکر کنم حتما جواب بگیرید

[alja4824]

این برنامه قراره اطلاعات درون فایل exel را بخواند و بعد داخل datagridview بریزد
من میخوام که به اطلاعات خوانده شده از فایل exel یک فیلد اضافه کنم که وقتی وارد datagridview میشود ستونی ازنوع checkbox در datagridview اضافه شود

[mohammadriano]

سلام
خب یک حلقه بزار اطلاعات رو از تک تک سلول های اکسل بخونه ++ شود وبه دیتاگرید بریزه
دسترسی به سلول اکسل
در vb6
OLE.object.worksheets(1).range("A1") 'o
در vb.net
این تابع برای باز کردن اکسل هست

Private Function useexcel() As Boolean
Dim ExExportSecond As Boolean
On Error GoTo Errormsg
Dim exapp , shtgas as object
useexcel = True

exapp = CreateObject("Excel.Application")

shtgas = exapp.Workbooks.Add
ExExportSecond = True
exapp.Visible = True
Exit Function

Errormsg:
useexcel = False

End Function



و این تابع هم برای ارسال به اکسل


Private Sub ExportToexcel()
Dim StrClipboard As String
If useexcel() Then 'تابعی که اکسل را باز می کند
StrClipboard = ""
حالا StrClipboard رو با اطلاعات خودتون پر کنید و بعد

StrClipboard = StrClipboard.Substring(0, Len(StrClipboard) - 1)
StrClipboard = StrClipboard & vbCrLf

''''''insert to clipboard
Clipboard.Clear()
Clipboard.SetText(StrClipboard)
exapp.ActiveSheet.Range("A1").Select()
exapp.ActiveSheet.PasteSpecial(Format:="Text", Link:=False, DisplayAsIcon:=False)
End If
End Sub
البته این بهتره
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Set oExcel = CreateObject("Excel.Application") 'o
Set oBook = oExcel.Workbooks.Add

Set oSheet = oBook.Worksheets(1)'o
oSheet.Range("A1").Value