Buona sera a tutti,
ho un Datagrid popolato di dati, tra questi ci sono delle date che visualizzo correttamente.
Quando copio il DG su un foglio excel la data mi viene invertita ( da 03 gennaio 08 al 01 marzo 08).
Qualcuno sa indicarmi quale è l'istruzione giusta da inserire.
inoltre, come posso fare per copiare i valori di alcune colonne del foglio 1 sul foglio 2?
Questo è il codice che uso:
Private Sub Command12_Click()
' Copia tutto l'archivio compreso l'intestazione
Dim oExcel As Object
Set oExcel = CreateObject("Excel.Application")
Dim oWorkBook As Object
Dim oWorkSheet As Object
Dim i As Integer, j As Integer
Dim lRow As Long
Dim LastRow As Long
Dim LastCol As Long
oExcel.Visible = True
oExcel.Workbooks.Open App.Path & "\Richiami.xls"
Set oWorkSheet = oExcel.Workbooks("Richiami.xls").Sheets("Foglio1")
oWorkSheet.Range("A1", "AU100").Value = ""
For i = 1 To DataGrid1.Columns.Count
oWorkSheet.Cells(1, i) = DataGrid1.Columns(i - 1).Caption
For j = 0 To DataGrid1.VisibleRows - 1
oWorkSheet.Cells(j + 2, i) = DataGrid1.Columns(i - 1).CellText(DataGrid1.RowBookmark(j))
Next j
Next i
'oWorkSheet.xlApplication.Visible = True
Set oExcel = Nothing
Set oWorkBook = Nothing
Set oWorkSheet = Nothing
End Sub