掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
2枚のエクセル間でデータコピーするとエラーがでる (ID:100427)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんにちは。 多分 >Range(ww) = xx(i) ← ここでエラー！！！！ xlSheet.Range(ww) = xx(i) でよいかと。 下記のようにも書けます。 ww = pat & "\" & "e-data.csv" Set xlApp = New Excel.Application Set xlBook = xlApp.Workbooks.Open(ww) Set xlSheet = xlBook.Worksheets(1) 'シート名がわからない 'エクセルを表示します。（表示しなくてもＯＫ） xlApp1.Visible = True 'データの取り込み vD = xlSheet1.Range("A1:A1000").Value xlBook1.Close False ' オブジェクトを解放します。 Set xlSheet = Nothing Set xlBook = Nothing '算出シートエクセル名取得 sys = 3 Call system(sys) wk = sys ww = pat & "\" & wk Set xlBook = xlApp.Workbooks.Open(ww) Set xlSheet = xlBook.Worksheets("dat") Call Log("売買サイン算出シートオープン " & ww) xlSheet.Range("A1").Resize(1000).Value = vD xlBook.Save xlBook.Close False ' Quit メソッドを使って Excel を終了します。 xlApp.Quit ' オブジェクトを解放します。 Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.