Ｅｘｃｅｌ ＶＢＡ "エラー70 書き込みできません"について 削除
| Message#1 2015年11月4日(水)20時31分 From: 技術は全ての人に |
| Ｅｘｃｅｌ ＶＢＡ "エラー70 書き込みできません"について 現在下記のコートを記載したファイルを 知人に送付して、利用してみてもらったのですが、 上記のエラーが発生し、処理が進まない状態であるとの事でした。 ネット上で色々調べ、 2台のPCでIEのバージョンを'11に揃えてやってみたりしたのですが 同様のエラーは私の方では見受けられない状態です。 一つ可能性として管理者権限での操作では無い為 エラーが発生している可能性も感じてはいるのですが、 対応策には悩んでおります。 このエラー発生時には何か対応策はあるのでしょうか。 ご教授をお願い致します。 <<<環境>>> -当方 Windows8 Ｅｘｃｅｌ2013 IE10 Windows7 Ｅｘｃｅｌ2013 IE11 -先方 Windows8 Ｅｘｃｅｌ2013 IE11 ---------------------------------------------- Sub sample() Dim objIE As Object Dim URL01 As String Dim s As String Dim ss As String Dim sss As String Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True s = Sheets("Sheet2").Range("A1").Value ss = Sheets("Sheet1").Range("D1").Value sss = Sheets("Sheet1").Range("D2").Value URL01 = s URL02 = "URL02" ID01 = ss PASS = sss Sheets("Sheet2").Visible = True Worksheets("Sheet2").Select objIE.Navigate URL01 Call IE作業待機(objIE) objIE.document.getElementBYID("txtLoginId").Value = ID01 objIE.document.getElementBYID("txtLoginPass").Value = PASS Call IE作業待機(objIE) objIE.document.forms("formlogin").submit Call IE作業待機(objIE) For Each objTAG In objIE.document.body.all 'テーブルのタグを探す If objTAG.tagName = "TABLE" Then 'カウンタの初期化 y = 0 '行カウンタ 'テーブル内のITEMでループする For Each objTableItem In objTAG.all If objTableItem.tagName = "tbody" Then End If If objTableItem.tagName = "TR" Then y = y + 1 '行カウンタを+1 x = x + 1 '列カウンタを+１(次にする) End If If objTableItem.tagName = "TH" Then Cells(y, x) = objTableItem.innerText x = x + 1 '列カウンタを+１(次にする) End If If objTableItem.tagName = "TD" Then 'テキストデータをセットする Cells(y, x) = objTableItem.innerText End If Next End If Next For Each objTAG In objIE.document.body.all 'テーブルのタグを探す If objTAG.tagName = "h2" Then 'カウンタの初期化 Range("A1").End(xlDown).Select 'テーブル内のITEMでループする For Each objTableItem In objTAG.all If objTableItem.tagName = "tbody" Then End If If objTableItem.tagName = "TR" Then y = y + 1 '行カウンタを+1 x = x + 1 '列カウンタを+１(次にする) End If If objTableItem.tagName = "TH" Then Cells(y, x) = objTableItem.innerText x = x + 1 '列カウンタを+１(次にする) End If If objTableItem.tagName = "TD" Then 'テキストデータをセットする Cells(y, x) = objTableItem.innerText End If Next End If Next 'ログアウトを行う objIE.Navigate URL02 Call IE作業待機(objIE) objIE.Quit End Sub ---------------------------------------------- |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
