IE8です。
エクセルで
Sub test()
ActiveWorkbook.FollowHyperlink "http://www.yahoo.co.jp/"
End Sub
を実行すると
既に開いているブラウザが上記のURLに更新されちゃったり
新規のブラウザが立ち上がったり
動作がまちまちなのですが
何を基準に決まるのでしょうか?
こんばんは。よろしくお願いします。
ie操作でボタンが押せる時と押せない時があるのですが、
違いがわかりません。
---------------------------------------------------------
Sub test1()
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "http://www.mitsui-direct.co.jp/customer/" 'ダイレクトにログインページへはいけない。
Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop
objIE.Navigate "javascript:gotoMyhp();"
Set objIE = Nothing
End Sub
---------------------------------------------------------
これなのですが、http://www.mitsui-direct.co.jp/customer/のサイトへいって、
右側の「Myホームページログイン」を押したいのですが、
最初は、objIE.Navigate "javascript:gotoMyhp();" でうまくいってたのですが、
なぜか出来なくなってしまいました。
そんな事ありますか?
コードが間違ってるのでしょうか?
ご教授よろしくお願いします。
「セルに入ってる値が数値ならA列からE列まで赤色にする」
を正規表現で行いたいのですがよくわかりません。
http://officetanaka.net/excel/vba/tips/tips38.htm
を参考にしているのですが
Sub Sample1()
Dim RE, strPattern As String, r As Range
Set RE = CreateObject("VBScript.RegExp")
strPattern = "SUM\("
With RE
.Pattern = strPattern ''検索パターンを設定
.IgnoreCase = True ''大文字と小文字を区別しない
.Global = True ''文字列全体を検索
For Each r In ActiveSheet.UsedRange
If .test(r.Formula) Then r.Interior.ColorIndex = 3
Next r
End With
Set RE = Nothing
End Sub
を、どう改造すれば、私のやりたい事になるのでしょうか?
【1】
まずstrPattern で、「数値ならば」はどうやればいいでしょうか?
【2】
次にtest(r.Formula)は、数式だからFormulaを使ってるのですよね?
数値を検索する場合はFormulaを何に変えればいいでしょうか?
【3】
最後に、 r.Interior.ColorIndex = 3はそのセルだけの色を変えるのですよね?
A列からE列までにするにはどうすればいいでしょうか?
例えば
A3セルに「1」が、A6セルに「3」が入っていたら、
A列からE列まで赤色にしたいです。
Excel2003のVBAで
With .FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = True '複数選べる
If .Show =true Then
for each eachFiles in .SelectedItems(1)'←ここ
(いろいろ処理)
next eachFiles
End If
End With
という処理はよく使うと思います。ここで、
Dim tmp As variant と宣言しておいて
tmp=.SelectedItems
と格納しようとすると、引数は省略できないとエラーになるのですが、考え方のどこが間違っているのでしょうか?
.SelectedItemsって配列だから、このやり方で格納できると考えたのですが、何がダメなのでしょうか?
原因が分かったとして、格納だけは兎に角したいのですが、どうすればいいでしょうか。
格納して、with文に縛られた状態から早く脱したいです。
こんばんは。いつもお世話になっております。
ie操作でうまく行かないので教えてください。
イトーヨーカドーのサイトにログインしたいのですがログインボタンが押下できません。
Sub test()
Dim objIE As InternetExplorer
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "https://www.iy-net.jp/"
Do While objIE.Busy = True
DoEvents
Loop
objIE.Document.all("userId").Value = ID
objIE.Document.all("password").Value = PW
objIE.Document.forms(0).submit
Set objIE = Nothing
End Sub
---------------------------------------------------------
だと、
「ハイフンを除く7ケタを半角数字でご入力ください」になってしまいます。
ログインボタンが押せてないのかもしれないけど、よくわかりません。
---------------------------------------------------------
Sub test()
Dim objIE As InternetExplorer
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "https://www.iy-net.jp/"
Do While objIE.Busy = True
DoEvents
Loop
objIE.Document.all("userId").Value = ID
objIE.Document.all("password").Value = PW
For i = 0 To objIE.Document.Links.Length - 1
If objIE.Document.Links(i).innerText = "ログイン" Then
objIE.Document.Links(i).Click
Exit For
End If
Next i
Set objIE = Nothing
End Sub
---------------------------------------------------------
にすると、
https://www.iy-net.jp/nspc/logininput.do
のURLが表示されて会員認証の画面になってしまいます。
だからって
objIE.Navigate "https://www.iy-net.jp/"
を
https://www.iy-net.jp/nspc/logininput.do
にして
objIE.Document.forms(0).submit
すると
https://www.iy-net.jp/nspc/searchresult.do
のページが表示されて
「再度 TOPページよりログインいただけますようお願い申し上げます。」
になってしまいます。
ログインする方法を教えていただけますか?
ご教授よろしくお願いします。