Makro verändern
28.06.2013 10:57:31
Maris
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