Microsoft Excel

Herbers Excel/VBA-Archiv

TXT-Spalten leeren

Betrifft: TXT-Spalten leeren von: Ludicla
Geschrieben am: 22.10.2014 13:41:56

Hallo Profis,

ich steh auf dem Schlauch
ich öffne aus Excel per Commandbutton eine TXT-Datei und möchte die
Spalte A und B leeren. Anschließend aus Excel Daten hineinkopieren.

Columns A:B. select komm ich auf einen Laufzeitenfehler

Wie muss es heissen das TXT Spalten geleert werden.

schon mal im voraus Dank für die Hilfe

Gruss Ludicla.

  

Betrifft: Range("A:B").Clear oT. von: Tino
Geschrieben am: 22.10.2014 13:52:41




  

Betrifft: AW: Range("A:B").Clear oT. von: Ludicla
Geschrieben am: 22.10.2014 14:03:10

Hallo Danke für die Hilfe

aber es wird mir die Spalte A:B in Excel geleert und nicht in der Txt-Datei

dies ist die Aufzeichnung ohne leeren der Spalten der Txt-Datei
Workbooks.OpenText Filename:="L:\Förderenergien\Batchinput\tennet.txt", _
Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True



Windows("EEG-Abschlagsrechnung ab Oktober14.xlsm").Activate
Range("J2:K127").Select
Selection.Copy
Windows("tennet.txt").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("EEG-Abschlagsrechnung ab Oktober14.xlsm").Activate
Range("F10").Select

wo müsste das clear stehen ??


Gruss Ludicla


  

Betrifft: AW: Range("A:B").Clear oT. von: Tino
Geschrieben am: 22.10.2014 14:24:59

Hallo,
ich dachte du willst die Änderung nur in Excel machen.
Sonst müsstest du die Daten noch in die Textdatei schreiben.
Die alte TxT-Datei wird gelöscht, also erst mal nur testen!!!!!!!!

Hier ein Beispiel:

Sub Beispiel()
Dim F%, sFileName$, sLine$, n&
Dim ArData
'Pfad
sFileName = "C:\Datei.txt"
'löschen wenn vorhanden
If Dir(sFileName, vbNormal) <> "" Then Kill sFileName
'Tabelle1 benutzter Bereich, evtl. anpassen
With Tabelle1.UsedRange
  'in Textdatei, Zeilenweise einfügen
  F = FreeFile
  Open sFileName For Append As #F
  
  For n = 1 To .Rows.Count
    ArData = Application.Transpose(.Rows(n))
    'Trennzeichen angeben für die Spalten, hier vbTab
    sLine = Join(Application.Transpose(ArData), vbTab)
    Print #F, sLine
  Next n
  
  Close #F
End With

End Sub
Gruß Tino


  

Betrifft: AW: Range("A:B").Clear oT. von: Ludicla
Geschrieben am: 22.10.2014 14:28:00

Danke ich mach mich an die Arbeit

Gruss Ludicla


 

Beiträge aus den Excel-Beispielen zum Thema "TXT-Spalten leeren"