Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1324to1328
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
Inhaltsverzeichnis

activesheet.saveas txt

activesheet.saveas txt
04.08.2013 11:32:56
Günter
Hallo,
kämpfe mich als Neuling durch VBA.
Ich habe ein xls-Arbeitsblatt mit x Zeilen.
Möchte nun jeweils 5 Zeilen als txt speichern.
Habe dazu folgenden code erstellt
Range("A2:A6").Select
Selection.Copy
Sheets("Tabelle2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.SaveAs Filename:="C:\Users\LAPTOP\Documents\spei_01.txt", _
FileFormat:=xlTextMSDOS, CreateBackup:=False
Selection.ClearContents
Sheets("Tabelle1").Select
Mein Problem:
Ich starte mit dem Excelblatt txt-speichern.xlsm
Nach dem Speichern und zurückspringen in "sheets("Tabelle1").select" befinde ich mich im Excelblatt spei_01.txt, ich will aber zurück in txt-speichern.xlsm
Im Endausbau möchte ich natürlich anhand der gefüllten Zeilen und einer variablen Stückelung die Anzahl und Grösse der txt-Dateien bestimmen.
Daran arbeite ich noch.
Viele Grüße
Günter

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

Betreff
Datum
Anwender
Anzeige
AW: activesheet.saveas txt
04.08.2013 13:08:38
Gerd
Hallo Günter,
es geht bestimmt noch komplizierter. :-)
Sub test()
Dim X As Workbook, Y As Worksheet, temp As Workbook
Set X = ActiveWorkbook
Set Y = X.ActiveSheet
Set temp = Workbooks.Add(xlWBATWorksheet)
Y.Range("A2:A6").Copy temp.Sheets(1).Cells(1, 1)
Application.CutCopyMode = False
'ACHTUNG: SPEICHERPFAD WIEDER ANPASSEN
temp.SaveAs Filename:=ThisWorkbook.Path & "\spei_01.txt", _
FileFormat:=xlTextMSDOS, CreateBackup:=False
ActiveWorkbook.Close False
X.Activate
End Sub
Gruß Gerd

AW: activesheet.saveas txt
04.08.2013 13:17:28
Gerd
Hallo Günter,
es geht bestimmt noch komplizierter. :-)
Sub test()
Dim X As Workbook, Y As Worksheet, temp As Workbook
Set X = ActiveWorkbook
Set Y = X.ActiveSheet
Set temp = Workbooks.Add(xlWBATWorksheet)
Y.Range("A2:A6").Copy temp.Sheets(1).Cells(1, 1)
Application.CutCopyMode = False
'ACHTUNG: SPEICHERPFAD WIEDER ANPASSEN
temp.SaveAs Filename:=ThisWorkbook.Path & "\spei_01.txt", _
FileFormat:=xlTextMSDOS, CreateBackup:=False
ActiveWorkbook.Close False
X.Activate
End Sub
Gruß Gerd

Anzeige
AW: activesheet.saveas txt
04.08.2013 15:41:59
Günter
Hallo Gerd,
vielen Dank für die schnelle Antwort.
...und sorry für die "dumme" Frage eines VBA-Anfängers :-)
Viele Grüße
Günter

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige