Bereich in txt-File exportieren

Forumthread: Bereich in txt-File exportieren

06.10.2006 08:47:32

Frederic

Hi Leute,
ich habe eine DVD-Datei, welche recht aufwendig und umfangreich mit UF's gesteuert wird. Läuft auch alles perfekt bis jetzt.
Nun möchte ich gerne einen Tabellenblatt-Bereich ("Liste!A7:G3000") in ein Textfile exportieren, sauber getrennt, so dass ich auch die 7 Spalten jederzeit wieder importieren kann.
Hab schon einiges hier gefunden, aber nicht das, was ich brauche.
Bei den gängigsten Exporten speichert er das Sheet und benennt es dann um.
Gibt es eine Möglichkeit, nur den Zellbereich in ein TXT-File zu speichern?
Danke für Eure Hilfe und Anregungen.
Gruß
Frederic

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bereich in txt-File exportieren

06.10.2006 09:11:14

Rudi
AW: Bereich in txt-File exportieren

06.10.2006 09:22:29

Frederic
AW: Bereich in txt-File exportieren

06.10.2006 09:26:22

Frederic

AW: Bereich in txt-File exportieren

06.10.2006 09:11:14

Rudi

Hallo,


Sub SaveAsTxt()
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, strTmp As String
If ActiveSheet Is Nothing Then Exit Sub
reset
With ActiveSheet.UsedRange
iRow = .Rows.Count
iCol = .Columns.Count
End With
strSep = InputBox("Trennzeichen?")
If strSep = "" Then Exit Sub
Select Case strSep
Case "chr(9)", "tab", "Tab": strSep = Chr(9)
Case Else:   strSep = Left(Trim(strSep), 1)
End Select
DateiName:
strDat = InputBox("Dateiname?", "DateiName", ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & ".csv")
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
With ActiveSheet.UsedRange
For iR = 1 To iRow
strTxt = ""
For iC = 1 To iCol
strTmp = .Cells(iR, iC)
'If IsDate(strTmp) Then strTmp = Format(strTmp, "DD.MM.YYYY")
strTxt = strTxt & strTmp & strSep
Next iC
strTxt = Left(strTxt, Len(strTxt) - 1)
Print #1, strTxt
Next iR
End With
Close #1
MsgBox ("Die Datei " & strDat & " wurde angelegt.")
Exit Sub
DateiFehler:
Close 1
MsgBox ("Fehler in Dateinamen!")
Resume DateiName
End Sub

Gruß
Rudi

AW: Bereich in txt-File exportieren

06.10.2006 09:22:29

Frederic

Hi Rudi,
er legt zwar alles sauber an, aber in dem exportierten File sind null daten, sie ist zwar 24 kb groß ist aber nichts drin?
Vielleicht noch eine Hilfe?
Gruß
Frederic

AW: Bereich in txt-File exportieren

06.10.2006 09:26:22

Frederic

Hi Rudi,
habs geschafft. Logo, activesheet geht ja nicht, weil es ein hiddensheets ist. Hab die Sheets und Range angepasst. Läuft perfekt...Super, tausend Dank.
Gruß und schönes WE.
Frederic

Beliebteste Forumthreads (12 Monate)

Forumthread: Bereich in txt-File exportieren

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread