Private Sub Save_Recordset(Filename As String, rs As Recordset)
'Esporta i dati in formato .csv On Error Goto Save_RecordSet_Err Dim i, j As Integer Open Filename For Output As #1 rs.MoveFirst For j = 0 To rs.RecordCount - 1 Print #1, Chr(34) & Trim(rs.Fields(0)) & Chr(34); For i = 1 To rs.Fields.Count - 1 Print #1, "," & Chr(34) & Trim(rs.Fields(i)) & Chr(34); Next i Print "" Print #1, Chr(13) & Chr(10); rs.MoveNext Next j Close #1 Exit Sub Save_RecordSet_Err: If Err.Number = 76 Then Resume ElseIf Err.Number = 3021 Then Resume Next Else MsgBox Err.Number & " " & Err.Description, , _ MsgCaption End If Close #1 End Sub Inputs : FileName as string; rs as recordset |