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

Question

写数据总是出现错误提示,"当前的记录不支持更新,这可能是提供程序的限制......"
不知道是不是因为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"

Answer 1

引用：
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

Answer 2

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