1,217
社区成员




For i = 0 To Adodc1.Recordset.RecordCount - 1
For j = 0 To Adodc1.Recordset.Fields.Count - 1
On Error Resume Next
DataGrid1.Row = i
DataGrid1.Col = j
Range("i:j").NumberFormatLocal = "@"
newsheet.Cells(i + 1, j + 1) = DataGrid1.Text
Next j
Next i