Dovendo salvare dei dati in determinate celle in un foglio excel ho usato questo codice:
Il problema è che il "comando" che ho usato per salvare il file excel nn è corretto. Mi sapete dire come fare?codice:Private Sub Form_Load() Dim xlAppl As Object Dim xlWorksheet Set xlAppl = CreateObject("excel.application") Set xlWorksheet = GetObject("d:\Nomecartella1\Nomecartella2\FILE.xls") xlWorksheet.Sheets("Foglio1").Range("A1").Value = Text1 xlWorksheet.Sheets("Foglio1").Range("B1").Value = Text2 xlWorksheet.Sheets("Foglio1").Range("C1").Value = Text3 xlWorksheet.Sheets("Foglio1").Range("D1").Value = Text4 xlWorksheet.Sheets("Foglio1").Range("E1").Value = Text5 xlAppl.save "d:\Nomecartella1\Nomecartella2\FILE.xls" Form1.Show End Sub
Io devo "solamente" riuscire a salvare le modifiche apportate al file excel.
Grazie mille a tutti!
![]()

Rispondi quotando