Ciao a tutti, stò lavorando su una applicazione excel da access, funziona tutto bene tranne quando vado a salvare alla fine che mi caccia questo messaggio "Esiste già un file denominato 'RIPRENDI.XLW' in questa posizione. sostituire il file esistente?" si no annulla, chiaramente questo file non l'ho creato io, se lo crea lui non sò per quale arcano motivo, se glielo faccio sostituire il salvataggio va a buon fine, però non posso mettermi a spiegare all'utente questa cosa, e comunque non riesco proprio a capire come evitare di fargli creare questo file.
Mi potete aiutare?
vi posto un pò di codice
codice:Private Sub Comando35_Click() sSource = "Z:\Archivio\schedacliente.xls" sSheet = "Foglio2" Set xl = CreateObject("Excel.Application") xl.Workbooks.Open sSource, ReadOnly:=False Set Rec = Me.Recordset Do Until Rec.EOF x = 3 + x z = x - 3 y = 6 + z xl.Rows(5).Select xl.Selection.Copy xl.Rows(5 + x).Select xl.ActiveSheet.Paste xl.Rows(6).Select xl.Selection.Copy xl.Rows(6 + x).Select xl.ActiveSheet.Paste xl.cells(y, 2) = Registrazione xl.cells(y, 3) = MTOW xl.cells(y, 5) = Seats xl.cells(y, 7) = cctipo Rec.MoveNext Loop xl.cells(1, 2) = Intestazione xl.Visible = False xl.Save xl.Quit Set xl = Nothing End Sub

Rispondi quotando