Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
532to536
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

brauche dringend Hilfe beim Exportieren

brauche dringend Hilfe beim Exportieren
13.12.2004 14:45:27
Harald
Hallo
Erstmals muss ich sagen kenne ich mich in VBA nicht so gut aus
brauche unbedingt einen Quelltext wie man eine Exceltabelle in eine Textdatei Exportieren und die Textdatei automatisch speichert habe eine bestehende Textdatei die leer ist abgespeichert und in diese soll die Tabelle mit Tabstops Exportiert werden über VBA. Bitte helft mir bevor ich hier verzweifle.
ich danke jedem der mir helfen kann. Bin noch bis 15:15 Uhr am Arbeitsplatz
wenn es später wird schaut doch morgen noch mal rein ab 11:00 Uhr danke Junks und Mädels
Gruß Harald

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: brauche dringend Hilfe beim Exportieren
Harald
Habe ganz vergessen das das Exportieren erst ab Zeile 6 beginnen soll.
AW: brauche dringend Hilfe beim Exportieren
u_
Hallo,
kannst du dir ein bisschen anpassen.
Option Explicit

Sub Export()
Dim strSep As String, strDat As String, _
iCol As Byte, iRow As Integer, _
iR As Integer, iC As Byte, strTxt As String, _
strMldg As String
iRow = ActiveSheet.UsedRange.Rows.Count
iCol = ActiveSheet.UsedRange.Columns.Count
strSep = InputBox("Trennzeichen?" & vbLf & "('Abbrechen' für TAB)")
If strSep = "" Then
strSep = Chr(9)
Else
strSep = Left(Trim(strSep), 1)
End If
DateiName:
strDat = InputBox("Dateiname?", "DateiName", ThisWorkbook.Path & "\")
If strDat = "" Then Exit Sub
If InStr(strDat, ":\") = 0 Then
strDat = ThisWorkbook.Path & "\" & strDat
End If
If Dir(strDat) <> "" Then
strMldg = MsgBox("Datei bereits vorhanden. Überschreiben?", vbYesNo)
If strMldg = vbNo Then GoTo DateiName
End If
On Error GoTo DateiFehler
Open strDat For Output As #1
For iR = 6 To iRow
strTxt = ""
For iC = 1 To iCol
strTxt = strTxt & Cells(iR, iC) & strSep
Next iC
strTxt = Left(strTxt, Len(strTxt) - 1)
Print #1, strTxt
Next iR
Close #1
MsgBox ("Die Datei " & strDat & " wurde angelegt.")
Exit Sub
DateiFehler:
MsgBox ("Fehler in Dateinamen!")
Resume DateiName
End Sub

Anzeige
AW: brauche dringend Hilfe beim Exportieren
Marco
Hallo U_
Vielen Dank dein das Programm läuft wie geschmiert
Gruß Marco

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige