|
Excel : EXCEL VBA - kein Ergebnis Datei speichern unter
commader_hugo am 25.06.2005 um 00:54 Uhr (0)
Hallo Ich moechte in einem Makro, dass das Speichern unter -Fenster sich oeffnet und eine Vorgabe fuer den Dateinamen erscheint. Dies funktioniert auch mit diesen Zeilen: Dim New_filename As String New_filename = Application.GetSaveAsFilename _ (InitialFileName:= & Code & _Liste_ & Date & .xls , _ fileFilter:= Excel-Arbeitsmappe, *.xls ) Druecke ich allerdings dann Speichern wird die Datei nicht gespeichert!? Wer kann helfen? THX!
|
| In das Form Excel wechseln |
|
Excel : EXCEL VBA - kein Ergebnis Datei speichern unter
Nepumuk am 25.06.2005 um 07:41 Uhr (0)
Hi, die GetSaveAsFilename - Methode liefert nur den Dateinamen incl. Pfad zurück. Speichern musst du schon selbst. ThisWorkbook.SaveAs New_filename ------------------ Gruß Nepumuk
|
| In das Form Excel wechseln |
|
Excel : Datenexport in *.dat Datei
melzig am 27.06.2005 um 10:31 Uhr (0)
Hallo Excel-Spezialisten! Habe eine Excel-Datei aus der ich Werte exportieren möchte. Den Code habe ich hier aus dem Forum (ist von Nancy). Sub datenexport() Application.DisplayAlerts = False Dim ws As Worksheet Dim Bereich As Range Dim Zeile As Object Dim Zelle As Object Dim s As String For Each ws In ActiveWorkbook.Worksheets ws.Activate Set Bereich = ActiveSheet.UsedRange hier schreibst Du deinen Pfad rein Open "C:Probepfad" & ActiveSheet.Name & ".dat" For Output As #1 For Each Zeile In Ber ...
|
| In das Form Excel wechseln |
|
Excel : Makro mit Rückgängigfunktion
bst am 27.06.2005 um 12:53 Uhr (0)
Hallo Bernd, Nein. Speichere einfach vorher ab und lade nach den Änderungen die Datei ggf. neu. Oder mach s im VBA per Hand selber. Siehe: http://j-walk.com/ss/excel/tips/tip23.htm HTH, Bernd
|
| In das Form Excel wechseln |
|
Excel : Datenexport in *.dat Datei
startrek am 27.06.2005 um 14:22 Uhr (0)
Moin Frank, manman was buddelst du denne für n lustiges Zeug aus? ;-)) Ähm, versuche es mal so, allerdings wie du das mit der letzten Zeile meintest, weiss ich nicht so recht, schlimmstenfalls nimm : For r = 2 to ubound(arr,1) - 1 Code: Sub to_dat_files() Dim ws As Worksheet Dim s As String, r As Long, c As Integer Dim arr For Each ws In ActiveWorkbook.Worksheets arr = ws.UsedRange Open "D:" & ws.Name & ".dat" For Output As #1 For r = 2 To UBound(arr, 1) ...
|
| In das Form Excel wechseln |
|
Excel : Datenexport in *.dat Datei
melzig am 27.06.2005 um 15:41 Uhr (0)
Hallo Nancy ! Vielen Dank für Deine Hilfe! Es hat funktioniert. Ich werde doch mein Anfängerbuch nochmal bemühen müssen. Das ich in der Schleife für die Zeilen mit 2 anfangen muß und bis zur letzten benutzten Zeile war mir klar.Wie ich aber die letzte benutzte Zeile rauskriege wußte ich nicht. Die Funktion UBound kannte ich nicht. UBound liefert die Obergrenze einer Datenfeld-Dimension. UBound(arr, 1) Und mit arr = ws.UsedRange mache den benutzten Bereich zu meiner Datenfefd-Dimension. Ich versuche auch j ...
|
| In das Form Excel wechseln |
|
Excel : Datenexport in *.dat Datei
melzig am 27.06.2005 um 16:35 Uhr (0)
Hallo Nancy ! Hatte mich zu früh gefreut! Jetzt macht er mir aus meiner Uhrzeit eine Zahl. sdf|dfg|erg|15.06.2005|F-18|123|17.06.2005|0,729166666666667|55|3|0,729166666666667|fgh|hgj|gh| gju|hj|kikl|16.06.2005|F-19|34|18.06.2005|0,770833333333333|rt|4|0,770833333333333|hj|hj|hj| zjuj|loö|oöpoäö|17.06.2005|F-20|53|19.06.2005|0,8125|uzzu|6|0,8125|hj|hj|hj| Habe einen Überwachungsausdruck auf arr(r,c) gelegt und dort sehe ich, daß er das Datum als variant/date behandelt aber die Uhrzeit als variant/double. D ...
|
| In das Form Excel wechseln |
|
Excel : Datenexport in *.dat Datei
startrek am 27.06.2005 um 17:54 Uhr (0)
Hi Frank, Mist! ;;-)) Fällt mir auf die Schnelle auch nix ein, ausser wieder ein direktes Auslesen, hübsch eine Zelle nach der Anderen;-) Usedrange.Value als auch usedrange.value2 bringen nix und Usedrange.Text gibbets nicht. Dim arr() as string geht auch nicht, da der Herr Range ein Variant braucht. Und ein cstr(arr(r,c]] ist zu spät, die Messe wird bei der Übergabe des Rangebereiches an das Variant gelesen. Ich hoffe deine Tabellen sind keine Riesenteile, wird also etwas langsamer, keine andre Idee grad ...
|
| In das Form Excel wechseln |
|
Excel : Datenexport in *.dat Datei
startrek am 27.06.2005 um 20:18 Uhr (0)
Ich nochmal ;-) menno, die Zwischenablage - thats it! Hätt ich eigentlich drauf kommen müssen tun ..., stümmts @Bernd/Max? ;;-)) Also Frank, das wäre zB ein Ansatz der auf dem besten Weg zum Erreichen der Lichtgeschwindigkeit wäre. Wobei da irgendwie noch Müll drinnen steht, konnte die Zeichen jetzt auf die Schnelle nicht festzurren. Geht ja nurmal ums Prinzip, ich mein das Abklopfen jeder Zelle funzt zwar auch, aber das Clipboard dagegen ist sowas wie die Geschwindigkeit eines Skilifts aber mit Mach3 ; ...
|
| In das Form Excel wechseln |
|
Excel : Datenexport in *.dat Datei
melzig am 28.06.2005 um 08:00 Uhr (0)
Hallo Nancy ! Vielen Dank nochmal! Habe jetzt die Variante mit dem Zellenweise auslesen genommen. Funktioniert gut. Ich werde aber die andere Variante auch nochmal probieren. Vielleicht wieder ein wenig Wissensgewinn. Ich würde Dir ja gerne mehr als 10U´s geben, aber das funktioniert irgendwie nicht. Tschüß Frank!
|
| In das Form Excel wechseln |
|
Excel : Datenexport in *.dat Datei
melzig am 28.06.2005 um 08:13 Uhr (0)
Hier nochmal zur Geschwindigkeit: Habe die 14 Spalten auf 65536 Zeilen mit Werten gefüllt. Zum Exportieren werden ca. 30 sec. benötigt. Aber diesen Umfang wir die Tabelle eigentlich nie haben. Mal sehen was die andere Variante bringt. Tschüß Frank!
|
| In das Form Excel wechseln |
|
Excel : Datenexport in *.dat Datei
bst am 28.06.2005 um 13:08 Uhr (0)
Hi Nancy, solange keine bösen Sonderzeichen drinne sind, ist s doch so bestens, oder etwa nicht ;-) CU , Bernd
|
| In das Form Excel wechseln |
|
Excel : Hilfe zu Verknüpfung;Makro zuweisen
Gazelle am 28.06.2005 um 14:06 Uhr (0)
Hallo zusammen, die Hitze hat mein letztes bischen Hirn ausgetrocknet. Ich kleb auf der Leitung. Schaut euch die angehängte Datei bitte mal an. Gruß ------------------ Gazelle Gilde der Erfinnder
|
| In das Form Excel wechseln |
