前提・実現したいこと
ExcelVBAでchrome操作を行うため、seleniumを入れています。
最初はうまく動いていたのですが、最近「メモリが不足しています」とエラーが出てしまい、動かなくなりました。
エラー処理を入れたのですが、起動と同時にエラー処理へ飛んでしまい、うまく動作ができません。
seleniumが起動し続けているため起こる現象だと考えているのですが、止める方法はありますでしょうか?
ソースは以下の通りです。よろしくお願いいたします。
発生している問題・エラーメッセージ
メモリが不足しています。
該当のソースコード
Sub DM() Dim driver As New ChromeDriver Dim col As Integer Dim elements As WebElements 'ChromeDriverのインスタンスを生成しDriver変数に格納 'このDriverを使っていろいろ操作します。 '検索シートからデータ取得 Sheets("検索シート").Select maxRow = Cells(Rows.Count, 1).End(xlUp).Row '最終行を取得 MaxCol = Cells(1, Columns.Count).End(xlToLeft).Column '最終列の取得 myArray = Range(Cells(2, 1), Cells(maxRow, MaxCol)) '配列に格納 'ログイン処理 On Error GoTo myError With driver .Start "chrome" .Get "https://twitter.com/" .FindElementByCss("#react-root > div > div > div > main > div > div > div > div:nth-child(1) > div > a.css-4rbku5.css-18t94o4.css-1dbjc4n.r-1niwhzg.r-p1n3y5.r-sdzlij.r-1phboty.r-rs99b7.r-1loqt21.r-1w2pmg.r-ku1wi2.r-1vuscfd.r-1dhvaqw.r-1ny4l3l.r-1fneopy.r-o7ynqc.r-6416eg.r-lrvibr > div").Click .Close End With Set driver = Nothing Exit Sub myError: Set driver = Nothing End Sub
試したこと
パソコンの再起動
エラー処理の追加
待機時間の追加
補足情報(FW/ツールのバージョンなど)
ここにより詳細な情報を記載してください。
あなたの回答
tips
プレビュー