Kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Import() Dim sFileX As String, sFileY As String Dim wkbX As Workbook, wkbY As Workbook, iColumn, arrColumns sFileX = "c:\temp\x.xls" sFileY = "c:\temp\y.xls" arrColumns = Array(15, 9, 8, 2, 1) Application.ScreenUpdating = False Set wkbX = Workbooks.Open(sFileX) Set wkbY = Workbooks.Open(sFileY) With wkbX.Sheets("X") .Rows("1:7").Delete For iColumn = 0 To UBound(arrColumns) .Columns(arrColumns(iColumn)).Delete Next .Range("A1").CurrentRegion.Copy End With With wkbY.Sheets("y") .Cells(Rows.Count, 1).End(xlUp).Offset(1).Paste End With End Sub

Sub Import() Dim sFileX As String, sFileY As String Dim wkbX As Workbook, wkbY As Workbook, iColumn, arrColumns sFileX = "c:\temp\x.xls" sFileY = "c:\temp\y.xls" arrColumns = Array(15, 9, 8, 2, 1) Application.ScreenUpdating = False Set wkbX = Workbooks.Open(sFileX) Set wkbY = Workbooks.Open(sFileY) With wkbX With .Sheets("X") .Rows("1:7").Delete For iColumn = 0 To UBound(arrColumns) .Columns(arrColumns(iColumn)).Delete Next .Range("A1").CurrentRegion.Copy End With .Close False End With With wkbY With .Sheets("y") .Cells(Rows.Count, 1).End(xlUp).Offset(1).Paste End With .Close True End With Kill sFileX End Sub

Sub Import() Dim sFileX As String, sFileY As String Dim wkbX As Workbook, wkbY As Workbook, iColumn, arrColumns sFileX = "c:\temp\x.xls" sFileY = "c:\temp\y.xls" arrColumns = Array(15, 9, 8, 2, 1) Application.ScreenUpdating = False Set wkbX = Workbooks.Open(sFileX) Set wkbY = Workbooks.Open(sFileY) With wkbX With .Sheets("X") .Rows("1:7").Delete For iColumn = 0 To UBound(arrColumns) .Columns(arrColumns(iColumn)).Delete Next .Range("A1").CurrentRegion.Copy _ wkbY.Sheets("y").Cells(Rows.Count, 1).End(xlUp).Offset(1) End With .Close False End With wkbY.Close True Kill sFileX End Sub

Hallo,
verstehe ich nicht.

Sub Import()
Dim sFileX As String, sFileY As String
Dim wkbX As Workbook, wkbY As Workbook, iColumn, arrColumns
sFileX = "c:\temp\x.xls"
sFileY = "c:\temp\y.xls"
arrColumns = Array(15, 9, 8, 2, 1)
Application.ScreenUpdating = False
Set wkbX = Workbooks.Open(sFileX)
Set wkbY = Workbooks.Open(sFileY)
With wkbX
With .Sheets("X")
.Rows("1:7").Delete
For iColumn = 0 To UBound(arrColumns)
.Columns(arrColumns(iColumn)).Delete
Next
.Range("A1").CurrentRegion.Copy
End With
.Close False
End With
With wkbY
With .Sheets("Y")
.Paste .Cells(Rows.Count, 1).End(xlUp).Offset(1)
End With
.Close True
End With
Application.CutCopyMode = False
Kill sFileX
End Sub

Gruß
Rudi

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread