2枚のエクセル間でデータコピーするとエラーがでる (ID:100422)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

1つめのエクセルの１行目を配列へ格納し
クローズ後

２つめのエクセルへコピーするVBを下記へ作ったんですが

２つめの途中で「実行時エラー1004 RANGEメゾッドは失敗しました_Global」
と出ます、何故か全くわかりません  お助け下さい。

ww = pat & "\" & "e-data.csv"
   
    Set xlApp1 = New Excel.Application
    Set xlBook1 = xlApp1.Workbooks.Open(ww)

'エクセルを表示します。（表示しなくてもＯＫ）
    xlApp1.Visible = True

'少し待つ
    For i = 0 To 4000000
        DoEvents
    Next
 
     
    
   'データの取り込み
   For i = 1 To 1000
   
       ww = "A" & i
       xx(i) = Range(ww)
    
   Next
    
    
    ' Quit メソッドを使って Excel を終了します。
   xlApp1.Quit
              
   ' オブジェクトを解放します。
   Set xlSheet1 = Nothing
   Set xlBook1 = Nothing
   Set xlApp1 = Nothing
    
    
      '少し待つ
    For i = 0 To 4000000
        DoEvents
    Next
    
    
     '算出シートエクセル名取得
   sys = 3
   Call system(sys)
   wk = sys
    
   ww = pat & "\" & wk
   Set xlApp = New Excel.Application
   Set xlBook = xlApp.Workbooks.Open(ww)
   Set xlSheet = xlBook.Worksheets("dat")
   
   
    
   Call log("売買サイン算出シートオープン    " & ww)
    
    xlApp.Visible = True
    
           
    
    '少し待つ
    For i = 0 To 4000000
        DoEvents
    Next
    
    
   
    
    
  'データの書き出し
   For i = 2 To 1000
   
       ww = "A" & i
       
       Range(ww) = xx(i)   ←  ここでエラー！！！！
    
   Next
    
    
    ' Quit メソッドを使って Excel を終了します。
   xlApp.Quit
              
   ' オブジェクトを解放します。
   Set xlSheet = Nothing
   Set xlBook = Nothing
   Set xlApp = Nothing

←解決時は質問者本人がここをチェックしてください。

戻る