| |
▼かみちゃん さん：
>こんにちは。かみちゃん です。
>
>>なぜこのような現象がおきるのでしょうか？
>> どのように解決すればいいのでしょうか？
>> ご存知の方がいましたら、わかりやすく教えてください。
>
>まず、うまくいかないコードを提示されてはいかがでしょうか？
失礼しました。
コードをコピペで張り付けたのですが、
「本文に禁止語句が含まれています。」
とのエラーメッセージが返ってきて、貼り付けることが出来なかったもので…
原因がＵＲＬのスラッシュとわかったので、ＵＲＬは全て書き直しました。
また、長くてごちゃごちゃしていたので、必要な部分をまとめています。
他ページからコピペをして、よくわかっていない部分もありますが、
これでお願いできないでしょうか？
Sub 出品中商品一覧表()
'---------- 閲覧したいyahooIDとPASS
myID = Worksheets("出品中商品一覧表").Range("c3").Value
myPASS = Worksheets("出品中商品一覧表").Range("d3").Value
myP = "ヤフーログインページのＵＲＬ"
'---------- IEで通常使用するyahooIDとPASS
myID2 = Worksheets("出品中商品一覧表").Range("c4").Value
myPASS2 = Worksheets("出品中商品一覧表").Range("d4").Value
'---------- IEひらく
Set myIE = CreateObject("InternetExplorer.application")
'---------- まずログアウトする
myPAGE = "ログアウト出来るＵＲＬ"
myIE.Navigate myPAGE
Do Until myIE.busy = False And myIE.readyState = 4: Loop '***待ち合わせ
'---------- ログインページへ
myPAGE = "ヤフーログインページのＵＲＬ"
myIE.Navigate myPAGE
Do Until myIE.busy = False And myIE.readyState = 4: Loop '***待ち合わせ
'---------- ID PASSの入力
myIE.Document.getElementById("username").Value = myID
myIE.Document.getElementById("passwd").Value = myPASS
myIE.Document.getElementById("persistent").Checked = True
'---------- SUBMIT
myIE.Document.getElementsByName("login_form")(0).Submit
Do Until myIE.busy = False And myIE.readyState = 4: Loop '***待ち合わせ
'---------- データの読み込み
'出品中商品データ
With Worksheets("出品中商品一覧表").QueryTables.Add(Connection:= _
"URL;読み込みたいページのＵＲＬ" _
, Destination:=Range("b6"))
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "26"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
.Delete
End With
'---------- まずログアウトする
myPAGE = "ログアウト出来るＵＲＬ"
myIE.Navigate myPAGE
Do Until myIE.busy = False And myIE.readyState = 4: Loop '***待ち合わせ
'---------- ログインページへ
myPAGE = "ヤフーログインページのＵＲＬ"
myIE.Navigate myPAGE
Do Until myIE.busy = False And myIE.readyState = 4: Loop '***待ち合わせ
'---------- ID PASSの入力
myIE.Document.getElementById("username").Value = myID2
myIE.Document.getElementById("passwd").Value = myPASS2
myIE.Document.getElementById("persistent").Checked = True
'---------- SUBMIT
myIE.Document.getElementsByName("login_form")(0).Submit
Do Until myIE.busy = False And myIE.readyState = 4: Loop '***待ち合わせ
Set myIE = Nothing
'----------
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 11/8/5(金) 5:34 -
