cadsys-chemnitz
Mar 20, 2009, updated at 14:38:10 (UTC)
view3767
view3
0
Goto Top

Probleme fall Excel

GermansolvedQuestionVB for ApplicationsDevelopment
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
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 111995

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

Printed on: April 19, 2024 at 05:04 o'clock

3 Comments
Latest comment
Goto Top
Member: bastla
bastla Mar 20, 2009 at 15:17:14 (UTC)
Goto Top
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
Mitglied: 76109
76109 Mar 20, 2009 at 15:49:16 (UTC)
Goto Top
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
Member: Cadsys-Chemnitz
Cadsys-Chemnitz Mar 23, 2009 at 06:43:15 (UTC)
Goto Top
Vielen Dank Euch ,

konnte es zwar erst heute testen aber hat sehr gut funktioniert.


MfG

Tino
GermansolvedQuestionVB for ApplicationsDevelopment
Hotly discussed
AlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 CommentsjstrickerWIREGUARD VPN ON UDM PRO BEHIND FRITZBOX - HANDSHAKE DID NOT COMPLETEjstricker - 2 CommentsDaniEnd of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment