Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1320to1324
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

Makro verändern

Makro verändern
28.06.2013 10:57:31
Maris
Hallo Leute,
dieses Makro speichert eine Datei als TXT ab. Wie muß ich es ändern damit es die Datei als Xls abspeichert:
Sub export()
Sheets("Export").Activate
'Worksheets("Export").Select
Dim intFileNumber As Integer
Dim lngRow As Long
Dim vntArray As Variant
Dim strText As String
Dim i As Integer
Dim sFile
Const strPre As String = vbTab
Reset
sFile = "C:\Users\cma\Documents\AdwordsExport\Kampagnenimport\Kampimp_" & Range("J1").Value  _
& " " & Format(Now, "YYYY.MM.DD__HH.MM.SS") & ".txt"
intFileNumber = FreeFile
Open sFile For Output As #intFileNumber
With ActiveSheet.UsedRange
For lngRow = 1 To .Row + .Rows.Count - 1
vntArray = Range(Cells(lngRow, 1), _
Cells(lngRow, .Column + .Columns.Count - 1))
vntArray = WorksheetFunction.Transpose(WorksheetFunction.Transpose(vntArray))
strText = Join(vntArray, strPre)
Print #intFileNumber, strText
Next
End With
Close #intFileNumber
Worksheets("Kombinator").Select
Call loeschzellbereich
End Sub
Gruß,
Maris

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro verändern
28.06.2013 11:06:54
HTT
suche in deinem Makro
".txt"
und ersetz mit ".xls"

AW: Makro verändern
28.06.2013 11:20:41
Maris
Hab ich schon! Kommt trotzdem eine txt datei raus :-(!

,FileFormat:=xlWorkbookNormal wo hin?
28.06.2013 12:33:10
Maris
normal muß ja diese Anweisung auch irgendwo stehen, odeR?

AW: ,FileFormat:=xlWorkbookNormal wo hin?
28.06.2013 15:45:50
Luschi
Hallo Maris,
Diese vba-Zeile
Open sFile For Output As #intFileNumber
erzeugt von Hause aus eine Datei , der Du niemals die typischen Elemente & Eigenschaften einer Exceldatei mitgeben kannst, egal wie Du sie nennst und welchen Dateityp Du ihr verpaßt. Existiert sie nicht, wird sie neu angelegt, gibt es sie schon, dann wird sie überschrieben (quasi gelöscht und neu angelegt). Und das Ergebnis ist immer eine Datei, die am ehesten von Texteditor richtig interpretiert wird. Aber eine Excel- oder auch pdf-Datei kann mit mit diesem Befehl nicht erzeugen.
Gruß von Luschi
aus klein-Paris
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige