VB从datagrid读出数据写入EXCEL的问题...

[No001]

写数据总是出现错误提示,"当前的记录不支持更新,这可能是提供程序的限制......"
不知道是不是因为ado打开excel是只读的?不知道怎么解决啊?请教大侠 谢谢

'--------------------------------------------------------------------------
DataGrid1.Row = 0
DataGrid1.Col = 1
bbb = DataGrid1.Text '这个是datagrid里日期字段的日期值
aaa = adoRS.Fields.Item(0).Value '这个是excel表里的日期字段的日期值

If Format(aaa, "yyyy-mm-dd") = Format(bbb, "yyyy-mm-dd") Then
adoRS.Fields(13).Value = "10000"
End If
'--------------------------------------------------------------------------

目的是想,如果datagrid的日期和excel日期相同的话,就在excel表中的第13行的某个格里写入"10000"

[DengXingJie]

引用：
If Format(aaa, "yyyy-mm-dd") = Format(bbb, "yyyy-mm-dd") Then
adoRS.Fields(13).Value = "10000"
End If
目的是想,如果datagrid的日期和excel日期相同的话,就在excel表中的第13行的某个格里写入"10000"
===============================================================
樓主的意思是想把10000寫入到Excel中去，可你的adoRS.Fields(13).Value = "10000"是往數據集中寫啊


給你一點代碼：
Dim objExcel As Excel.Application
Dim objBook As Excel.Workbook
Dim objSheet As Excel.Worksheet
Private Sub Command1_Click()
Dim Str As String
Set objExcel = CreateObject("Excel.Application")
Set objBook = objExcel.Workbooks.Add '新增檔
objExcel.Visible = True
Set objSheet = objBook.Worksheets(1)
objSheet.Cells(行, 列) = "需要寫入的資料"
End Sub

[tripman]

adoRS数据源是excel?要往excel写入最好不要用这种方式,用楼上的