Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - salvataggio nuovo file exel
Forum - Visual Basic 6 - salvataggio nuovo file exel - Pagina 2

Pagine: [ 1 2 ] Precedente | Prossimo
Avatar
tippolo (Normal User)
Pro


Messaggi: 157
Iscritto: 21/09/2008

Segnala al moderatore
Postato alle 22:41
Lunedì, 26/01/2009
Testo quotato
Postato originariamente da moet:

Ciao a tutti !

Ho creato un programma che compila un file excel gia esistente e me ne dovrebbe salvare una copia nuova con il nome del cliente in una sotto cartella dal nome schede riparazione.

in realta' al momento del salvataggio si apre la cartella dove risiede il file gia esistente( e non nella sottocartella schede riparazione) ed invece di uscirmi il nome del cliente mi esce "copia di riparazione.xls"


Questo perchè non distruggi l'istanza XLS


Testo quotato
Postato originariamente da moet:

lo posto tutto !!!


Codice sorgente - presumibilmente VB.NET
  1. Private Sub Cmdsalva_Click()
  2. Dim oldname As String
  3. Dim newname As String
  4.  
  5. Dim XLS As New Excel.Application
  6.     With XLS
  7.         .Workbooks.Open App.Path & "\riparazione.xls"
  8.        
  9.         'oldname = App.Path & "\riparazione.xls"
  10.        
  11.        
  12.         .Worksheets(1).Select
  13.        
  14.         .Range("C4").Select
  15.  
  16.         .ActiveCell.Value = txtcliente.Text
  17.        
  18.         .Range("C6").Select
  19.  
  20.         .ActiveCell.Value = txtindirizzo.Text
  21.        
  22.         .Range("B8").Select
  23.  
  24.         .ActiveCell.Value = txtcitta.Text
  25.        
  26.        [...cut...]
  27.  
  28.  
  29.         .ActiveCell.Value = txteuro11.Text
  30.        
  31.         .Range("A27").Select
  32.         .ActiveCell.Value = txtq12.Text
  33.         .Range("B27").Select
  34.         .ActiveCell.Value = txtd12.Text
  35.         .Range("I27").Select
  36.         .ActiveCell.Value = txteuro12.Text
  37.        
  38.         .Range("I36").Select
  39.         .ActiveCell.Value = txtimponibile.Text
  40.         .Range("I37").Select
  41.         .ActiveCell.Value = txtiva.Text
  42.         .Range("I38").Select
  43.         .ActiveCell.Value = txttotale.Text
  44.        
  45.        
  46.         .Visible = False 'true
  47.        
  48.          
  49.  
  50.        
  51.         'newname = App.Path & "\SCHEDE DI RIPARAZIONE\" & txtcliente.Text & ".xls"
  52.  
  53.         .SaveWorkspace App.Path & "\SCHEDE DI RIPARAZIONE\" & txtcliente.Text & ".xls"
  54.        
  55.          MsgBox "FILE CLIENTE: " & txtcliente & " SALVATO CON SUCCESSO ", , "GARAGE MARCO"
  56.     End With
  57.  
  58.     XLS.Workbooks.Close
  59.     Set XLS = Nothing
  60.  
  61.  
  62. End Sub

Ultima modifica effettuata da tippolo il 26/01/2009 alle 22:42
PM Quote
Avatar
moet (Normal User)
Pro


Messaggi: 185
Iscritto: 13/11/2007

Segnala al moderatore
Postato alle 13:13
Martedì, 27/01/2009
Grazie mille !!!

perfetto !

PM Quote
Avatar
tippolo (Normal User)
Pro


Messaggi: 157
Iscritto: 21/09/2008

Segnala al moderatore
Postato alle 13:26
Martedì, 27/01/2009
Testo quotato
Postato originariamente da moet:

Grazie mille !!!

perfetto !  

Di niente ;)
Vedi che però il codice che hai postato non l'ho controllato, mi son limitato a segnalarti l'errore che commettevi

PM Quote
Pagine: [ 1 2 ] Precedente | Prossimo