Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Excel Makro automatisch starten - Textimport

55 views
Skip to first unread message

uli

unread,
Nov 12, 2003, 2:42:00 AM11/12/03
to
Hallo zusammen,

folgendes Problem:
ich möchte das beim Öffnen eines bestimmten Excel Dokuments ein
Makro (zum Importieren von Text) automatisch startet.
Die Daten sollen jedes mal in eine neue Spalte importiert werden
damit die alten nicht überschrieben werden.

Wie kriegt man das Makro dazu automatisch zu starten?
Das "Textimportmakro" funktioniert hat, aber den Schönheitsfehler
die vorhandene Tabelle zu aktualisieren bzw. zu überschreiben.
Lässt sich der Vorgang automatisieren - möglichst ohne Benutzer-
eingaben, so das ich mich nur mit dem Dokument beschäftigen muß
wenn ich die Tabelle brauche?

Danke im voraus
uli

Martin Fischer

unread,
Nov 12, 2003, 3:31:24 AM11/12/03
to
uli wrote:
> Hallo zusammen,
Hallo Uli,

>
> folgendes Problem:
> ich möchte das beim Öffnen eines bestimmten Excel Dokuments ein
> Makro (zum Importieren von Text) automatisch startet.
> Die Daten sollen jedes mal in eine neue Spalte importiert werden
> damit die alten nicht überschrieben werden.
>
> Wie kriegt man das Makro dazu automatisch zu starten?
Gehe in den Visual Basic Editor, Doppelklicke auf dieseArbeitsmappe (im
Projekt-Explorer) und gebe folgenden Code ein:

Private Sub Workbook_Open()
DeinMakroName
End Sub

DeinMakroName muss natürlich entsprechend ersetzt werden. Die
Ereignisprozedur Workbook_Open wird bei jedem Öffnen des Excel
Dokuments durchlaufen.

> Das "Textimportmakro" funktioniert hat, aber den Schönheitsfehler
> die vorhandene Tabelle zu aktualisieren bzw. zu überschreiben.
> Lässt sich der Vorgang automatisieren - möglichst ohne Benutzer-
> eingaben, so das ich mich nur mit dem Dokument beschäftigen muß
> wenn ich die Tabelle brauche?

Ja das lässt sich automatisieren. Du musst zuerst die erste frei Spalte
suchen und dann diese für den Import gebrauchen.
>
> Danke im voraus
> uli
Gruss
Martin Fischer

Melanie Breden

unread,
Nov 12, 2003, 3:49:01 AM11/12/03
to
Hallo Uli,

"uli" schrieb:


> ich möchte das beim Öffnen eines bestimmten Excel Dokuments ein
> Makro (zum Importieren von Text) automatisch startet.
> Die Daten sollen jedes mal in eine neue Spalte importiert werden
> damit die alten nicht überschrieben werden.
>
> Wie kriegt man das Makro dazu automatisch zu starten?

schreibe den Code in das Workbook_Open-Ereignis in DieseArbeitsmappe

> Das "Textimportmakro" funktioniert hat, aber den Schönheitsfehler
> die vorhandene Tabelle zu aktualisieren bzw. zu überschreiben.
> Lässt sich der Vorgang automatisieren - möglichst ohne Benutzer-
> eingaben, so das ich mich nur mit dem Dokument beschäftigen muß
> wenn ich die Tabelle brauche?

Passe in der Prozedur noch den Tabellenblattnamen an deine Umgebung an.

Private Sub Workbook_Open()
Dim wks As Worksheet
Dim strFile As String
Dim intCol As Integer

Set wks = Worksheets("Tabelle1")
strFile = "C:\Eigene Dateien\Dateiname.txt"
' letzte benutzte Spalte in Zeile 1
intCol = wks.Cells(1, Columns.Count).End(xlToLeft).Column

' Textdatei einlesen
With wks.QueryTables.Add(Connection:= _
"TEXT;" & strFile, Destination:=wks.Cells(1, intCol + 1))
.Refresh BackgroundQuery:=False
End With
End Sub

--
Mit freundlichen Grüßen

Melanie Breden
Microsoft MVP für Excel

uli

unread,
Nov 12, 2003, 11:16:20 AM11/12/03
to
Vielen herzlichen Dank für die schnelle Hilfe.
Klappt super.
Wie bewege ich Excel jetzt dazu beim Start nicht zu fragen
ob die Macros aktiviert werden sollen sondern es einfach zu tun?
Wie bewege ich Excel dazu die Änderungen automatisch abzuspeichern
und sich gegebenenfalls ohne irgendwelche Fragen zu beenden?

Wenn ich dies noch wüßte wäre ich glücklich. ;-)

Grüße vom
uli

Willi

unread,
Nov 12, 2003, 2:03:31 PM11/12/03
to
Hallo,

über Extras - Makros - Sicherheit die Stufe auf Gering
setzen. Aber Vorsicht, alle Makros werden ausgeführt, auch
Makrovieren. Besser ist das Makro digital zu signieren.
Wie das geht findest du in der Hilfe.

mfg
Willi

>-----Originalnachricht-----

>.
>

uli

unread,
Nov 13, 2003, 7:17:15 AM11/13/03
to
Danke Willi, klappt super mit der Digitalen Signatur.

Wie bewege ich Excel dazu die Aenderungen automatisch

abzuspeichern
und sich gegebenenfalls ohne irgendwelche Fragen zu
beenden?

klingt komisch, ist aber so. Ich mißbrauche Excel nur um
per Batch gesammelte Daten zu speichern und irgendwann
eine Statistik zu machen.

Grueße vom
uli

Melanie Breden

unread,
Nov 13, 2003, 7:32:23 AM11/13/03
to
Hallo Uli,

"uli" schrieb:


> Wie bewege ich Excel dazu die Aenderungen automatisch
> abzuspeichern

wenn diese Datei noch die aktive ist, dann einfach:
ActiveWorkbook.Close True

> und sich gegebenenfalls ohne irgendwelche Fragen zu
> beenden?
> klingt komisch, ist aber so. Ich mißbrauche Excel nur um
> per Batch gesammelte Daten zu speichern und irgendwann
> eine Statistik zu machen.

die Excel-Anwendung beendest du mit:
Application.Quit

0 new messages