AW: Makro regelmäßig wiederholen. Nachlieferung Co
25.07.2005 15:25:43
micwil
Hallo, hier wäre mal - leicht gekürzt - mein "Arbeitsmakro" (= Makro1):
Sub AdrImp()
Dim Datei, L_Fa, L_Anr, L_Vn, L_Nm, L_StrNr, L_PLZOrt, IDCd As String
Dim AlterPfad, NeuerPfad As String
Dim Gesamt, Boegen, Rest, bearbeitete As Integer
Application.CommandBars("IP").Controls(1).Visible = False
Application.CommandBars("IP").Controls(2).Visible = True
Application.CommandBars("IP").Controls(3).Visible = True
'Pfade usw. (ggf. ändern):
IP = "S:\Auftragsdok\"
Eingang = "S:\Adok\IP\"
Erledigt = "S:\Adok\IP\gelesen\"
'+++ Beginn Import
'Dateien im IP-Ordner zählen:
Datei = Dir(Eingang & "*.txt")
If Datei <> "" Then
Gesamt = 1
End If
Do Until Datei = ""
Datei = Dir
If Datei <> "" Then Gesamt = Gesamt + 1
Loop
Datei = Dir(Eingang & "*.txt")
Do Until Datei = ""
'Textdatei öffnen, Inhalte in Variablen umsetzen:
Workbooks.OpenText Filename:=Eingang & Datei _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:= _
False, Comma:=False, Space:=False, Other:=True, OtherChar:="|"
L_Anr = [A2]
L_Vn = [B2]
L_Nm = [C2]
L_StrNr = [D2]
L_PLZOrt = [E2]
L_Fa = [F2]
IDCd = [G2]
Windows("IP_L.xls").Activate
' erste leere Zeile finden:
Application.Run ("leere_Zeile_finden")
'Druckdaten aus Variablen zusammenstellen:
If L_Fa = "" Then
Range("A" & i) = L_Anr
Range("B" & i) = L_Vn & " " & L_Nm
Else
Range("A" & i) = L_Fa
Range("B" & i) = L_Anr & " " & L_Vn & " " & L_Nm
End If
Range("C" & i) = L_StrNr
Range("D" & i) = L_PLZOrt
Range("E" & i) = IDCd
'Textdatei schließen:
Windows(Datei).Close SaveChanges:=False
'erledigte Textdatei verlagern
AlterPfad = Eingang & Datei
NeuerPfad = Erledigt & Datei
Name AlterPfad As NeuerPfad ' Datei verschieben.
Datei = Dir
Loop
'+++ Ende Import
ActiveWorkbook.Names.Add Name:="Adressen", RefersToR1C1:=Range("A1", "E" & i)
ActiveWorkbook.Save
End Sub