Daten speichern VBA
andreas
habe hier eine Anwendung mit Code zum speichern in externe Tabelle.
Hat bei Office 2003 problemlos funktioniert, aber in 2007 will Excel immer eine Kopie der Tabelle speichern.
Was muss man an diesem Code ändern dass die Daten wieder übertragen werden und die externe _
Tabelle sich mit den geänderten Werten ohne Abfrage schliesst.
Private Sub CommandButton1_Click() 'Neue Kunden in externe Kundenliste übertragen_Pfad anpassen
Dim lastrow As Integer
Dim ws As Worksheet
Dim exapp As New Application
Set exapp = New Excel.Application 'Neue Excel Instanz eröffnen
exapp.Visible = False 'Excel bleibt unsichtbar
exapp.Workbooks.Open "C:\Users\Andi\Kalkulation_Frästeile\kundenliste.xlsm" 'Quelldatei ö _
ffnen
Set ws = exapp.Worksheets("Kundenliste") 'Quelltabelle angeben...
lastrow = ws.Cells.SpecialCells(xlCellTypeLastCell).Row
ws.Range("A" & lastrow + 1) = TextBox1.Text
ws.Range("B" & lastrow + 1) = TextBox2.Text
ws.Range("C" & lastrow + 1) = TextBox3.Text
ws.Range("D" & lastrow + 1) = TextBox4.Text
ws.Range("E" & lastrow + 1) = ComboBox1.Text
ws.Range("F" & lastrow + 1) = TextBox6.Text
ws.Range("G" & lastrow + 1) = TextBox7.Text
ws.Range("H" & lastrow + 1) = TextBox8.Text
ws.Hyperlinks.Add Anchor:=ws.Range("I" & lastrow + 1), Address:= _
"mailto:" & TextBox9.Text, TextToDisplay:=TextBox9.Text
ws.Range("A" & lastrow).Sort Key1:=ws.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Set ws = Nothing
exapp.Workbooks("Kundenliste.xlsm").Close Savechanges:=True
exapp.Quit
Unload Me
End Sub
bin für jede Hilfe dankbar
Gruß Andreas