VBAファイルからデータをコピーし、別のファイルの末尾に貼り付けます

Question

ファイルからデータをコピーしてマクロファイルに読み込むこのマクロファイル（ "graphPrint.xls"）があります。ペーストされたデータを使用してグラフ化します。 これで、4つのファイルからデータを読み込み、すべてのデータをマクロファイルで結合し、すべてのデータを含む1つのグラフを作成できるように、このマクロを変更する必要があります。

私がやろうとしています何を、

1. が近い
2. 、マクロファイルに貼り付け
3. 、ファイルにデータをコピー
4. からデータを読み取るために、ファイルを開いていますファイル。そして、私はforループでこのプロセスを繰り返す必要があります。

ここで問題となるのは、マクロファイルに読み込まれたデータを貼り付けるときに、データの最後に貼り付けられていることを確認する必要があるためです。

ファイル名がfile0.csv〜file3.csvであるとします。 私はこのマクロを持っている：

Dim readFile As String; 
For i = 0 To 3 
    readFile = "file" + CStr(i) + ".csv" 'get file name 
    WorkbooksOpen Filename:= readFile  'open file 
    ActiveSheet.Cells.Select 'select all data from the file 
    lastRow = Range("A1").End(xlDown).Row 'edited 
    Selection.Copy    'copy all 
    Windows("graphPrint.xls").Activate 'open macro file 

    ActiveSheet.Paste     'paste here in macro file   

    Application.CutCopyMode = False 'cancel the copy mode 
    Windows(readFile).Activate 
    ActiveWindow.Close   'close this file 
Next i 

たびに貼り付けたときただし、このマクロは、新しいものと古いデータに置き換えられ、したがって、示されたグラフは、最後の読み込まれたファイルからのデータを使用します。ファイルの欄には、「Z1」から「A1」から起動するので、私はそれがマクロファイルの末尾に毎回、それを貼り付け、このことだろう期待して、

ActiveSheet.Paste 

と

Range(Range("A1:Z1" & lastRow), ActiveCell.End(xlDown)).Offset(1,0).PasteSpecial 

を変更します私はすべてのデータをグラフに反映させることができます。しかし、これは

与え

エラー "object'_Worksheetのメソッド '範囲'」失敗しました"。

誰かが私を解決に導くことができますか？ありがとうございました。

Answer 1

Find関数を使用して、列 "A：Z"からLastRowを取得してください。

Dim readFile As String 
Dim LastCell As Range 
Dim LastRow As Long 

For i = 0 To 3 
    readFile = "file" + CStr(i) + ".csv" 'get file name 
    Workbooks.Open Filename:=readFile ' open file 

    ' get last row in columns "A:Z" using the Find method 
    Set LastCell = ActiveSheet.Range("A:Z").Find(What:="*", After:=Cells(1), Lookat:=xlPart, LookIn:=xlFormulas, _ 
         SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False) 

    If Not LastCell Is Nothing Then 
     LastRow = LastCell.Row ' get last Row with data 
    End If 

    ' Copy >> Paste in 1 line 
    Range("A1:Z" & LastRow).Copy Destination:=Workbooks("graphPrint.xls").ActiveSheet.Range("A1") 

    Application.CutCopyMode = False 'cancel the copy mode 
    Windows(readFile).Activate 
    ActiveWindow.Close   'close this file 
Next i