Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Excel Daten in eine Textdatei exportieren
Autor: gisi81
Datum: 08.12.03 15:24
Hallo zusammen, ich möchte Daten aus einem Excelfile per Makro in ein Textdokument exportieren. Für den Fall ein Worddokument auszulesen und die Daten in ein Excelfile einzufügen, habe ich folgenden Code verwendet. (Dank Hilfe von Danzi!) Sub WordToExcel() Dim MeinExcel As Excel.Application Dim i As Long Dim WordDokuPfad As String Dim ExcelDokuPfad As String Dim WordDatei As String Dim Absatz As String Dim ZeilenZähler1 As Long Dim ZeilenZähler2 As Long Rem Hier den Pfad zu den Word-Dokumenten eingeben WordDokuPfad = "U:\Zoller\Word\" Rem Hier den Pfad zu den Excel-Dokumenten eingeben (leeres Verzeichnis) ExcelDokuPfad = "U:\EigeneDateien\Zoller1\" Rem ACHTUNG !!! Beide Verzeichnisse müssen unterschiedlich sein !!! On Error Resume Next Set MeinExcel = GetObject(, "Excel.Application") If MeinExcel Is Nothing Then Set MeinExcel = New Excel.Application End If MeinExcel.Visible = True On Error GoTo 0 WordDatei = Dir(WordDokuPfad) While WordDatei <> "" MeinExcel.Workbooks.Add Documents.Open FileName:=WordDokuPfad & WordDatei ZeilenZähler1 = 0 ZeilenZähler2 = 0 For i = 1 To ActiveDocument.Paragraphs.Count ActiveDocument.Paragraphs(i).Range.Select Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend Absatz = Selection.Range.Text If Selection.Information(wdWithInTable) Then ZeilenZähler2 = Selection.Information(wdMaximumNumberOfRows) MeinExcel.Range(Chr$(Selection.Information(wdStartOfRangeColumnNumber) + 64) & Selection.Information(wdStartOfRangeRowNumber) + ZeilenZähler1).Select MeinExcel.ActiveCell.FormulaR1C1 = Absatz Else ZeilenZähler1 = ZeilenZähler1 + ZeilenZähler2 ZeilenZähler2 = 0 ZeilenZähler1 = ZeilenZähler1 + 1 MeinExcel.Range("A" & ZeilenZähler1).Select MeinExcel.ActiveCell.FormulaR1C1 = Absatz End If Next ActiveDocument.Close MeinExcel.ActiveWorkbook.SaveAs ExcelDokuPfad & Mid$(WordDatei, 1, Len(WordDatei) - 3) & "xls" MeinExcel.ActiveWorkbook.Close WordDatei = Dir Wend MeinExcel.Quit Set MeinExcel = Nothing MsgBox "Ich bin fertig." End Sub Kann mir jemand weiter helfen??? Danke im Voraus Gisi

Excel Daten in eine Textdatei exportieren	1.113	gisi81	08.12.03 15:24
Re: Excel Daten in eine Textdatei exportieren	681	Danzi	08.12.03 17:35
Re: Excel Daten in eine Textdatei exportieren	652	gisi81	08.12.03 17:38
Re: Excel Daten in eine Textdatei exportieren	627	Danzi	08.12.03 19:49
Re: Excel Daten in eine Textdatei exportieren	551	gisi81	09.12.03 15:37
Re: Excel Daten in eine Textdatei exportieren	637	Danzi	09.12.03 19:10
Re: Excel Daten in eine Textdatei exportieren	591	gisi81	10.12.03 15:53

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen