hallo,
ich habe ein paar Messdaten die als *.asc-Datei (ist verwendbar wie eine *.txt) ausgegeben werden. da ich Messungen mit einandere vergleich möchte, will ich diese in eine Mappe kopieren. In jede Tabelle der Mappe soll eine Messung kommen - also der Inhalt einer *.asc . Von hand ist das umständlich aber machbar. ein Makro sollte das auch schaffen. aber gibt es nicht eine Möoglichkeit mit EXCEL alle offenen Tabellen zu einer Mappe zu vereinigen?
Gruss
Liloba
ich habe ein paar Messdaten die als *.asc-Datei (ist
verwendbar wie eine *.txt) ausgegeben werden. da ich Messungen
mit einandere vergleich möchte, will ich diese in eine Mappe
kopieren. In jede Tabelle der Mappe soll eine Messung kommen -
also der Inhalt einer *.asc . Von hand ist das umständlich
aber machbar. ein Makro sollte das auch schaffen. aber gibt es
nicht eine Möoglichkeit mit EXCEL alle offenen Tabellen zu
einer Mappe zu vereinigen?
Hallo Liloba,
schließe alle asc-Dateien.
In Excel nimm eine neue leere Mappe.
Alt+F11, Einfügen—Modul, Code reinkopieren, VB-Editor schließen.
Vor dem Start in B1 den Pfad des Verzeichnisses reinschreiben, mit „“ am Ende, also so c:\test\
Ab A1 untereinander die Dateinamen
Datei1.asc
Datei2.asc
usw.
Starten/Ausführen von „Gesamt“ in Excel mit Alt+F8
Gruß
Reinhard
Option Explicit
Sub Gesamt()
Dim Zei As Long, wkb As Workbook
Application.ScreenUpdating = False
On Error GoTo hell
With ThisWorkbook.Worksheets("Tabelle1")
Set wkb = Workbooks.Add
For Zei = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
Workbooks.OpenText Filename:=.Cells(1, 2) & .Cells(Zei, 1), Origin:=xlWindows, \_
DataType:=xlDelimited
Worksheets(1).Copy after:=wkb.Worksheets(wkb.Worksheets.Count)
Workbooks(.Cells(Zei, 1).Value).Close savechanges:=False
Next Zei
Application.DisplayAlerts = False
For Zei = 1 To Application.SheetsInNewWorkbook
wkb.Worksheets(1).Delete
Next Zei
Application.DisplayAlerts = True
End With
hell:
Application.ScreenUpdating = True
If Err.Number 0 Then MsgBox Err.Number & vbCr & Err.Description
End Sub
Hallo Reinhard,
Geht das auch bei Word?
Kann ich auch ein Word Dokument mit diesem Makro aufrufen?
Es geht ja immer noch um meine Kassenbericht. Ich möchte aus dem Hauptmenü nicht nur die einzelnen Kassen aufrufen sonder nebenbei auch die Kommentare zu dem jeweiligen Bericht.
Schönen Gruß
Claude
Hallo Claude,
Geht das auch bei Word?
dazu müßte anderer Code genommen werden *schätz*
Kann ich auch ein Word Dokument mit diesem Makro aufrufen?
nein, OpenText mag nur reine Textdateien *denk*
Es geht ja immer noch um meine Kassenbericht. Ich möchte aus
dem Hauptmenü nicht nur die einzelnen Kassen aufrufen sonder
nebenbei auch die Kommentare zu dem jeweiligen Bericht.
Sorry, sagt mir wenig, um welche Beitragsfolge ging es damals?
Was soll das Gesamtergebnis sein, eine doc, eine xls?
Kommeentare sind Zellenkommentare in Excel oder was sind sie?
Gruß
Reinhard