Kopieren Spalten aus einer Arbeitsmappe auf einen anderen

Question

ich

bin Begegnung mit

Laufzeitfehler 9

Index außerhalb des zulässigen Bereichs

Hier ist mein Code:

Sub copydatatocreatereport() 

Dim report As Workbook 
Dim datafile As Variant 

'report is the active workbook where I want data to paste 
'datafile is workbook which has data I want to copy from 

datafile = Application.GetOpenFilename 
If datafile = "false" Then 
    Exit Sub 
End If 

Workbooks.Open datafile 

Workbooks("datafile").Worksheets("sheet1").Columns("a").Copy _ 
    Destination:=Workbooks("report").Worksheets("sheet1").Columns("a1") 

End Sub 

Answer 1

Sie müssen datafile als Arbeitsmappe (zu der Arbeitsmappe, die Sie öffnen möchten) festlegen.

Sie müssen report auf ActiveWorkbook setzen (nicht empfohlen, besser zu verwenden ThisWorkbook, wo der Code liegt, oder eine bestimmte Arbeitsmappe).

Sie können die gesamte Spalte nicht in eine bestimmte Zelle einfügen.

Sub copydatatocreatereport() 

Dim report   As Workbook 
Dim datafile  As Workbook 
Dim wbPath   As String 

'report is the active workbook where i want data to paste 
Set report = ActiveWorkbook ' safer to have a name of Workbook or use ThisWorkbook (where this code lies) 

wbPath = Application.GetOpenFilename 
If wbPath = "False" Then 
    MsgBox "No Workbook was selected", vbInformation 
    Exit Sub 
End If 

' set datafile to Open workbook which I want to copy from 
Set datafile = Workbooks.Open(wbPath) 
datafile.Worksheets("Sheet1").Columns("A").Copy Destination:=report.Worksheets("Sheet1").Columns("A") 

End Sub 

Answer 2

Bitte Beachten Sie, dass dies nicht getestet ist, aber Sie sollten in die richtige Richtung zeigen

Sub copydatatocreatereport() 
Dim Report As Workbook 
Dim ReportPath As String 

'Report is the workbook where I want to paste data. We want report to be the destination - we do not need to create an object for the currently open workbook 
'ReportPath is the string used to open the Report workbook 

'Allow the user to select a workbook string 
ReportPath = Application.GetOpenFilename 
'Exit if nothing is selected 
If ReportPath = "" Then 
    Exit Sub 
End If 

'Set Report object = to the selected workbook. This was missing previously 
Set Report = Workbooks.Open(ReportPath) 

'Paste column a from the currently open workbook to the desistination workbook 
ThisWorkbook.Worksheets("sheet1").Columns("a").Copy _ 
    Destination:=Report.Worksheets("sheet1").Columns("a") 

End Sub 

Answer 3

Sie müssen:

• Gebrauch Workbooks (Daten-Datei) anstelle von Workbooks ("Daten-Datei")

• haben Datenfile gespült der nicht-Blattnamen Zeichen

Wie folgt:

Dim name As String 

    datafile = Application.GetOpenFilename 

    Workbooks.Open datafile 

    name = Right(datafile, Len(datafile) - InStrRev(datafile, "\")) 

    Workbooks(name).Worksheets("sheet1")....