Probleme fall Excel

Ich habe ein VB 2008 ein Programm geshcrieben welches mir bei erstellen von Angeboten hilft, Es hat eine Oberfläche mit der ich einige Konfigurationsparameter zusammenklickern kann Kundendaten eingeben kann und dann schreibt er mir das ganze in ein geschütztes Bestellformular vom Distributor welches Vorlage.xls heisst.

Dieses Druck ich dann aus und schicke es weg.

Mein Programm funktioniert soweit ganz gut, alle werte sind im Excelfile richtig eingetragen. jedoch möchte ich jetzt das mein Programm das ganze nicht wieder unter Vorlage.xls speichert sondern unter einem anderen Name.

Da ich diesen aber nicht immer eingeben will soll er automatisch als Firmenname.xls speichern.

dieser liegt in der Textbox4

nun zu meinem Problem...

Auszug aus meinem Programm

Testa.ActiveWorkbook.ActiveSheet.Range("b9").Value = DateTimePicker1.Text  
Testa.ActiveWorkbook.ActiveSheet.Range("b10").Value = DateTimePicker2.Text  
Testa.ActiveWorkbook.ActiveSheet.Range("c6").Value = DateTimePicker3.Text  
Testa.ActiveWorkbook.ActiveSheet.Range("b4").Value = DomainUpDown1.Text  

Testa.ActiveWorkbook.Saved = True
Testa.ActiveWorkbook.SaveAs("M:\VERTRIEB\Lieferanteninfos\\Formular_Bestellungen\vorlage.xls")  
Testa.ActiveWorkbook.Close()

statt Vorlage.xls sollte jetzt was in der Form "textbox4.text".xls stehen

nur funktioniert das nicht. habe es so probiert ...

Testa.ActiveWorkbook.ActiveSheet.Range("b9").Value = DateTimePicker1.Text  
Testa.ActiveWorkbook.ActiveSheet.Range("b10").Value = DateTimePicker2.Text  
Testa.ActiveWorkbook.ActiveSheet.Range("c6").Value = DateTimePicker3.Text  
Testa.ActiveWorkbook.ActiveSheet.Range("b4").Value = DomainUpDown1.Text  

Testa.ActiveWorkbook.Saved = True
Testa.ActiveWorkbook.SaveAs("M:\VERTRIEB\Lieferanteninfos\\Formular_Bestellungen\"textbox4.text".xls")  
Testa.ActiveWorkbook.Close()

kann mir einer helfen?

MfG tino

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 111995

Url: https://administrator.de/contentid/111995

Ausgedruckt am: 22.11.2024 um 10:11 Uhr

3 Kommentare

Neuester Kommentar

Hallo Cadsys-Chemnitz!

Versuch es so:

Testa.ActiveWorkbook.SaveAs("M:\VERTRIEB\Lieferanteninfos\\Formular_Bestellungen\" & textbox4.text & ".xls")

Die beiden "\" vor Formular sind vermutlich ein Tippfehler ...

Grüße
bastla

Hallo,

So funktioniert's:

With Testa.ActiveWorkbook
    With .ActiveSheet
        .Range("B9") = DateTimePicker1.Text   
        .Range("B10") = DateTimePicker2.Text   
        .Range("C6") = DateTimePicker3.Text   
        .Range("B4") = DomainUpDown1.Text   
    End With
   .Saved = True
   .SaveAs "M:\VERTRIEB\Lieferanteninfos\\Formular_Bestellungen\textbox4.text.xls"  
   'oder wie bei bastla  
   .Close
End With

Gruß Dieter